(define (dedup/e lst)
  (cond
    [(empty? lst) empty]
    [(member? (first lst) (rest lst))
     (cons (first lst) (dedup/e (remove-all (first lst) (rest lst))))]
    [else (cons (first lst) (dedup/e (rest lst)))]))