let rec f?(x=read_int())?(s=ref 0)u=for y=1to x do x/y*y=x&u=(s:=!s+y)done;f(Printf.printf"%d: %d\n"x!s);;f()