ceilDiv :: Integral a => a -> a -> a ceilDiv t s = (t + s - 1) `div` s main :: IO () main = do [a,b] <- map read . words <$> getLine :: IO [Int] print $ b `ceilDiv` a