(loop(do*((n(read))(k n(reduce'+(#0=format()"~A"k):key'digit-char-p)))((< k 10)(#0#t"digital_root(~A)=~D
"n k))))