import Text.Read (readMaybe) import Control.Monad (guard) import System.IO (stderr, hPutStrLn) processLine :: String -> Maybe Int processLine line = case words line of [aStr, bStr] -> do a <- readMaybe aStr b <- readMaybe bStr guard (a /= 0) return $ (b + a - 1) `div` a _ -> Nothing main :: IO () main = do line <- getLine case processLine line of Just result -> print result Nothing -> hPutStrLn stderr "Error: Expected exactly two valid integers (where a /= 0)."