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