Scanf.scanf "%f %f" (fun xp yp -> let c = int_of_float (ceil (0.000001 +. 2. *. sqrt (xp *. xp +. yp *. yp))) in Printf.printf "%d\n" c )