import Control.Applicative
import Text.Printf

main = do
  n <- (read :: String -> Integer) <$> getLine
  m <- (read :: String -> Integer) <$> getLine
  printf "%d\n" $ n `div` m `div` 1000 * 1000