import Control.Monad (replicateM)
main = do
    [n, m] <- map read <$> replicateM 2 getLine
    print $ (n `div` 1000) `div` m * 1000