main=interact$foldl1(zipWith(#)).lines
a#'+'=succ a
a#'-'=pred a
a#_=a