(let ((s (read))(ans 0))
  (if (char=? (string-ref s 0) #\+)
      (set! ans (+ ans 1))
      (set! ans (- ans 1))
      )
  (if (char=? (string-ref s 1) #\+)
      (set! ans (+ ans 1))
      (set! ans (- ans 1))
      )
  (if (char=? (string-ref s 2) #\+)
      (set! ans (+ ans 1))
      (set! ans (- ans 1))
      )
  (display ans)
  )
