let (|Divisible|Indivisible|) (a,b) =
    match a % b with
    | 0L -> Divisible   (a / b)
    | _  -> Indivisible (a / b + 1L)

let N, K =
    let t = stdin.ReadLine().Split() |> Array.map int64
    t.[0], t.[1]
    
let ans =
    match (N, K + 1L) with
    | Divisible   x -> x
    | Indivisible x -> x
    
ans |> printfn "%i"