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