main :: IO ()
main = interact $ show . solve . words

solve :: [String] -> Int
solve [v, t] = i * s `div` 10000
    where
        s = (read :: String -> Int) t
        i = (read :: String -> Int) $ drop 2 v