Nick

(define (fix-bang params accum)
  (if (null? params)
      accum
      (if (is-prefix-bang? (car params))
          (fix-bang '()
                      (append accum
                              (list (remove-prefix-bang (string-join params)))))
          (fix-bang (cdr params)
                      (cons (car params) accum)))))