module Main where

import System.IO

main :: IO ()
main = do
  s <- getLine
  print $ foldr f 0 s

                                                                                                                                                                             
f :: Char -> Int -> Int
f a x
  | a == '+' = x + 1
  | a == '-' = x - 1