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

main :: IO ()
main = do
  s <- getString
  print . sum . map f $ s
  where
    f '+' = 1
    f '-' = -1

getString :: IO String
getString = getLine
