import Control.Monad

solver :: Int -> [Char] -> Int
solver n []     = n
solver n (x:xs)
    | x == '+'  = solver (n+1) xs
    | otherwise = solver (n-1) xs

main :: IO()
main = do
    line <- getLine
    print $ solver 0 line
