module Main where


nho_str :: IO ()
nho_str =
    do
        putStrLn "a b"
        str <- getLine
        let
            w = words str
            a = read (w !! 0)
            b = read (w !! 1)
        print $ nho a b

nho :: Int -> Int -> Int
nho a b = iter b 0
    where
        iter i j    | i == 0    = j
                    | i < a     = (j + 1)
                    | otherwise = iter (i - a) (j + 1)

main :: IO()
main = nho_str