let
rec($)z?(n=read_int())d=d>n/2&0$(Printf.printf"%d: %d
"n(z+n);1);($)~n(n/d*d/n*d+z)(d+1);;0$1