main = getLine >>= print . parse 0

parse acc [] = acc
parse acc ('+':cs) = let (n,xs) = head (reads cs) in parse (acc*n) xs
parse acc ('*':cs) = let (n,xs) = head (reads cs) in parse (acc+n) xs
parse acc cs = let (n,xs) = head (reads cs) in parse n xs