#!/usr/bin/perl
$x=pop;while(print($x.$/),$x>9){$r='';@x=split//,$x;for($i=0;$i<$#x;$i++){$_=$x[$i]+$x[$i+1];split//;$_=$_[0]+$_[1]if$_>9;$r.=$_}$x=$r}