REBOL[]while[a: do input][print join""["digital_root("a")="1 + mod(a - 1)9]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page