main :: IO()
main = do
    str <- getLine
    print $ getsolve str 0
    
    
    
getsolve :: String -> Int -> Int
getsolve str num
    | str == []		  = num
    | head str == '+' = getsolve (tail str) (num + 1)
    | head str == '-' = getsolve (tail str) (num - 1)