(define (uniq a)
  (reverse
    (fold (lambda (e knil)
            (if (member e knil)
              knil
              (cons e knil))) () a)))