import Control.Applicative

getInt :: IO Int
getInt = (\a -> read a :: Int) <$> getLine

getInteger :: IO Integer
getInteger = (\a -> read a :: Integer) <$> getLine

{-
ListInt :: IO [Int]
ListInt = (map (\a -> read a :: Int) $ words) <$> getLine

ListInteger :: IO [Integer]
ListInteger = (map (\a -> read a :: Integer) $ words) <$> getLine
-}

count "" = 0
count ('-':res) = (count res) - 1
count ('+':res) = (count res) + 1

main = do
    print =<< count <$> getLine
