import Control.Applicative ((<$>))

main :: IO ()
main = do
    n <- read <$> getLine
    m <- read <$> getLine
    putStrLn $ show $ (*) 1000 $ flip div m $ div n 1000