main :: IO () main = do -- Read a line from standard input, split it by spaces, and parse as integers [a, b] <- map read . words <$> getLine -- Perform the integer division calculation and print the result print ((b + a - 1) `div` a)