import Control.Applicative ((<$>)) import Control.Monad import Data.List main :: IO () main = do solve <$> getl (map read . words) >>= print solve :: [Int] -> Int solve [x, y] = (y + x - 1) `div` x getl :: (String -> a) -> IO a getl f = f <$> getLine