do input""n d=mod(n-n^0,9) ?"digital_root(",n,")=",d+1loop