main :: IO ()
main = do
    n <- readLn :: IO Int
    m <- readLn :: IO Int
    print $ n `div` m `div` 1000 * 1000