let rec(^)i s n=if i=0 then s else (i-1^s+(if n mod i=0 then i else 0))n;;while 1=1 do(fun n->Printf.printf"%d: %d "n((n^0)n))(read_int())done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page