#! perl -nl
chomp($a=$_);$c="digital_root($a)=";
while($a>9){$b=0;for(split//,$a){$b+=$_;}$a=$b;}$c.=$b;
while(25-length($c)){$c.=" "}print$c;