#!/usr/bin/perl
$_=$ARGV[0];print"$_\n";while(length$_>1){$i=0;s/(.)/if($i){$s=$x+$1;$x=$1;if(length$s>1){$s=~s|(.)(.)|$1+$2|e;$s}else{$s}}else{$i=1;$x=$1;''}/ge;print"$_\n"}