#! /usr/bin/env stack
-- stack --resolver lts-12.20 --install-ghc script
module Main where
main :: IO ()
main = interact $ show . \input ->
let changes = fmap (read . dropWhile (=='+')) $ lines input
in (sum changes :: Int)