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