import Control.Applicative

solve :: String -> Int -> Int
solve [] a = a
solve ('+':s) a = solve s (a+1)
solve ('-':s) a = solve s (a-1)

main = do
    s <- getLine
    let ans = solve s 0
    putStrLn $ show ans