import Control.Arrow
import Data.Char
import Data.List

main :: IO ()
main = do
  s <- getString
  print . uncurry (-) . (countIf (== '+') *** countIf (== '-')) $ (s, s)

getString :: IO String
getString = getLine

countIf :: (a -> Bool) -> [a] -> Int
countIf f = length . filter f
