procedure main()
while write("digital_root(",n:=read(),")=",0<n%9|9)
end