let () = let arr = Array.make 2 0. in Scanf.scanf "%d %d\n" (fun s f -> arr.(0) <- float_of_int s; arr.(1) <- float_of_int f); let s, f = arr.(0), arr.(1) in (s +. 1.) /. f |> ceil |> int_of_float |> Printf.printf "%d\n"