main :: IO ()
main = do
    input <- getContents
    let [s, t] = map read (words input)
    print ((s `div` t) + 1)