readDigits = map read <$> words <$> getLine 

main :: IO ()
main = do
    [a,b] <- readDigits :: IO [Double]
    putStrLn . show $ ceiling (b/a)