open Num#load"nums.cma";;while 1=1do let n,c=read_int(),ref(Int 1)in for i=1to n do c:=Int(n+i)//Int i*/ !c done;print_endline(string_of_num!c)done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page