import Control.Applicative
import Data.List

main :: IO ()
main = do
    s <- getLine
    putStrLn $ show (solve (sort s))
    
solve :: String -> Int 
solve s | "++++" == s = 4
        | "+++-" == s = 2
        | "++--" == s = 0
        | "+---" == s = -2
        | "----" == s = -4