import Control.Applicative

f n k = div n (k+1) + 1

main = do
  [n,k] <- (map read . words) <$> getLine
  putStrLn . show $ f n k