let f n = let xs = ref 0 in for i=1 to n do (if (n mod i==0) then xs:=!xs+i else ()) done;(string_of_int n) ^ ": " ^ (string_of_int !xs);;
while true do Printf.printf"%s\n"(f(int_of_string(read_line()))) done;;