import Control.Applicative
main = do
  n <- read <$> getLine
  m <- read <$> getLine
  print $ (*1000) $ (`div` 1000) $ n `div` m