for i=10000to 10300do
let rec($)a b c d=a=0&()=Printf.printf"%d
"b||c>0&(a$b)(d mod c)c||(a-1$b+1/d)(a-1)i in(i$0)0i
done