let f (a : int[]) =
    match a.[0] / a.[1] with
    | 0 -> 1
    | q -> q + 1

(stdin.ReadLine ()).Split ' '
    |> Array.map int
    |> f
    |> printfn "%d"