myCeiling :: Int -> Int -> Int
myCeiling a b = ceiling $ fromIntegral a / fromIntegral b

main :: IO ()
main = interact $ show . (\[a, b] -> if a == b then (a `div` b)  + 1 else myCeiling a b) . map read . words