while 1=1do Scanf.scanf"%f %f "(fun a b->let rec e=1.-.(b/.a)**2.and g t=if t>0.then sqrt(1.-.e*.sin t**2.)+.g(t-.0.0002)else 0.in Printf.printf"%.f "(g 1.5707*.0.0008*.a))done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).