main :: IO()
main = do
  x <- getLine
  putStrLn $ show (charToInt x 0)

charToInt :: String -> Int -> Int
charToInt [] n = n
charToInt (x:xs) n = if x == '-' then (charToInt xs (pred n)) else (charToInt xs (succ n))