func n m = n `div` m `div` 1000 * 1000

main = getContents >>= (\(n:m:_) -> print $ func n m) . map read . lines