while 1=1do let v,r=read_int(),ref 0in for i=1to v do if v/i*i=v then r:=!r+i done;Printf.printf"%d: %d
"v!r done