#!/usr/bin/perl
@n=split//,pop;while(@n>0){print@n,$/;my@s;for($i=1;$i<@n;$i++){$e=$n[$i-1]+$n[$i];$e=substr($e,0,1)+substr($e,1,1)if$e>9;push@s,$e;}@n=@s;}