(define (cleanse e)
  (local [(define (cleanse-item i)
            (local [(define (keep-word? w)
                      (not (string=? w "@#$%")))

                    (define (cleanse-word w curr-output)
                      (cond
                        [(string? w) (if (keep-word? w)
                                         (cons w curr-output)
                                         curr-output)]
                        [(enumeration? w) (cons (cleanse w) curr-output)]))]
              (foldr cleanse-word '() (item-low i))))]
    (cond
      [(bullets? e) (make-bullets (map cleanse-item (bullets-loi e)))]
      [(points? e) (make-points (map cleanse-item (points-loi e)))])))