myCeiling :: Int -> Int -> Int
myCeiling a b = ceiling $ fromIntegral a / fromIntegral b

main :: IO ()
main = interact $ show . (\[a, b] -> myCeiling a b) . map read . words