import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> words <$> getLine >>= print

solve :: [String] -> Int
solve [v, t] = let vi = read (drop 2 v)
                   ti = read t
               in vi * ti `div` 10000