toInt :: (String -> Int)
toInt x = read x ::Int

getInts :: IO [Int]
getInts = do
  x <- getLine
  let y = (map$toInt)$words x
  return y



solve :: Int -> Int -> Int
solve n m = 1 + div n m



main = do
  n <- getInts
  putStrLn $ show (solve (n!!0) (n!!1))
