include../local/euphoria/include/get.e
object n
while 1do
n=get(0)printf(1+n[1],"digital_root(%s%d)=%s%d\n",n&1+remainder(n-1,9))end while