module Main where

main :: IO ()
main = do
  { [s,f] <- getInts
  ; print (s `div` f + 1)
  }

getInts :: IO [Int]
getInts = map read . words <$> getLine