while 0=0do
let x,y=read_int(),ref 0in
for z=1to x do y:=!y+z*Obj.magic(x/z*z=x)done;Printf.printf"%d: %d
"x!y done