myFloor :: Int -> Int -> Int
myFloor a b = floor $ fromIntegral a / fromIntegral b

main :: IO ()
main = interact $ show . (\[a, b] -> (myFloor a b) + 1) . map read . words