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