main :: IO () main = interact $ show . solve . map read . words solve :: [Int] -> Int solve [a, b] = ceiling $ fromIntegral b / fromIntegral a