let () =
  let f v = ceil(((4.9*.v*.v)/.(9.8*.9.8)+.5.)/.5.) 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 ();;