#!/usr/bin/perl -l

$_=pop;@a=split'';while(@a){print@a;for(2..@a){unshift(@b,pop(@a)+$a[-1])}@a=@b;for(@a){$_=$1+$2if/(.)(.)/};@b=()}