import Data.Functor ((<$>))
main = do
  [s,f] <- (map read . words) <$> getLine
  putStrLn . show $ div s f + 1