main = do
	[n, m] <- getContents >>= return . map read . lines
	print $ (n `div` (m * 1000)) * 1000