open System let N, K = Console.ReadLine().Split() |> Array.map int64 |> fun a -> a.[0], a.[1] Console.WriteLine((N + K) / (K + 1L))