{-# LANGUAGE OverloadedStrings #-}

import Data.Maybe
import qualified Data.ByteString.Char8 as C
import Control.Monad(forM_)
import Data.Int

yes :: C.ByteString
yes = "YES"

no :: C.ByteString
no = "NO"

getInts :: IO [Int]
getInts = do
  ss <- C.getLine
  return $ map (fst . fromJust . C.readInt) $ C.words ss

getIntss :: Int -> IO [[Int]]
getIntss 0 = return []
getIntss n = do
  xs <- getInts
  xss <- getIntss (n - 1)  
  return $ xs : xss

-- end template --

main :: IO ()
main = do
  [n,k] <- getInts
  let y = solve n k
  print y

solve :: Int -> Int -> Int64
solve n k = n' `div` (k' + 1) + 1
  where
    n' = toEnum n :: Int64
    k' = toEnum k :: Int64