#load"nums.cma"open Num let rec($)a i b=i>1500&output stdout(approx_num_fix 499(a//b))1 501=()||(a+/b$i+1)a;;(Int 1$0)(Int 1)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page