main = do
    let x = 0
    xs <- getLine :: IO String
    print $ solve 0 xs

solve :: Int -> String -> Int
solve ac []     = ac
solve ac ('+':xs) = solve (succ ac) xs
solve ac ('-':xs) = solve (pred ac) xs