main = getLine >>= print . (`div` 10000) . (foldr (*) 1) . map ((read :: String -> Int) . filter (/= '.')) . words