main = do
  [a,b] <- (map read . words) <$> getLine
  putStrLn . show $ div (b+a-1) a