REBOL[]while[a: do input][print join""["digital_root("a")="1 + mod(a - 1)9]]