import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as BC
import Data.Maybe(fromJust)

main :: IO ()
main = BS.getLine >>= print.(+1).(\[x, y] -> x `div` y).map (fst.fromJust.BC.readInteger).BC.words