import Control.Applicative

main :: IO ()
main = do
  { [a, b] <- readLineInputs
  ; print $ solve a b
  }

{- |
>>> solve 4 10
3
>>> solve 8 9
2
>>> solve 8 8
1
-}
solve :: Int -> Int -> Int
solve a b = iter a b 1 0
  where
    iter a b c d = if b <= c then d
      else iter a b (pred c + a) (succ d)

readLineInputs :: Read a => IO [a]
readLineInputs = map read . words <$> getLine

