import Control.Applicative ((<$>), (<*>))

main :: IO ()
main = do
  solve <$> getl read <*> getl read >>= print

solve :: Int -> Int -> Int
solve n m = n `div` (m * 1000) * 1000

getl :: (String -> a) -> IO a
getl f = f <$> getLine