let () =
    let s, f = Scanf.scanf "%d %d\n" (fun a b -> a, b) in
    Printf.printf "%d\n" (s / f + 1)