main :: IO ()
main = interact $ format . solve . parse

parse :: String -> (Int, Int)
parse input = (h, a) where
    [h, a] = map read . words . head . lines $ input

solve :: (Int, Int) -> Int
solve (h, a) = - ((-h) `div` a)

format :: Int -> String
format = (++ "\n") . show
