main = getLine >>= print . (\[s, f] -> 1 + s `div` f ) . map read . words