;;; AtCoder Beginner Contest 101
;;; A - Eating Symbols Easy
(define eating-symbols-easy
  (lambda ()
    (let ((S-list (string->list (symbol->string (read)))))
      (let ((p (count (lambda (c) (char=? #\+ c)) S-list)))

        (display (- p (- 4 p)))
        (newline)))))

(eating-symbols-easy)
