let rec($)i k j l=l<2&()=Printf.printf"%d
"k||l/i*i=l&(i$j*k)i(l/i)||(i+1$k)i l;;for j=10000to 10300do(2$1)1j done