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