m:-readln([A]),format("digital_root(~d)=~d
",[A,9+A mod-9]),m.