readDigits = map read <$> words <$> getLine 
main :: IO ()
main = do
    [a,b] <- readDigits :: IO [Int]
    putStrLn . show $ (1 + a `div` b)