main :: IO ()
main = getLine >> getLine >>= print . solve

solve :: String -> Int
solve = head . foldl f [] . words
  where
    f (y : x : s) "+" = x + y : s
    f (y : x : s) "-" = x - y : s
    f s x = read x : s