(while:prn"digital_root("(= r[sum[- int._ 48](+""_)]n(read))")="(r:r:r:* n))