let rec($)z?(n=read_int())d=d>n/2&0$(Printf.printf"%d: %d "n(z+n);1);($)~n(n/d*d/n*d+z)(d+1);;0$1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page