-- Pure logic: No IO, completely deterministic and testable solve :: [Int] -> Int solve [a, b] = (b + a - 1) `div` a solve _ = error "Expected exactly two integers" -- Impure logic: Handles the outside world main :: IO () main = do input <- getLine print . solve . map read . words $ input