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