let () =
  let f v = ceil(4.9*.v*.v/.(5.*.9.8*.9.8)+.1.) in
  let rec read () =
    try let v = read_float () in
        int_of_float (f v) |> string_of_int |> print_endline;read ()
    with End_of_file -> ()
  in
  read ();;