import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> map read . words <$> getLine >>= print

solve :: [Int] -> Int
solve [n, k] = n `div` (k + 1) + 1