cheap.bf

#! /usr/bin/env gosh

(define (main args)
  (let ((li (string->list (cadr args))))
    (fold (lambda (a b)
      (cond ((eq? #\+ a) (+ b 1))
		  ((eq? #\- a) (- b 1))
		  (else (display (integer->char b))
			b)))
	  0
	  li))
  0)