ceil :: Int -> Int -> Int ceil a b = a + b - 1 `div` a main :: IO () main = interact $ show . solve . map read . words solve :: [Int] -> Int solve (a:b:_) = ceil a b