#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)