Scanf.scanf "%d %d" (fun s f ->
    Printf.printf "%d\n" (s / f + 1)
)