(use srfi-1)

(define (uniq a)
  (if (null? a) a
    (cons (car a) (uniq (remove (pa$ = (car a)) (cdr a))))))

(print (uniq '(3 1 4 1 5 9 2 6 5 3 5 8 9 7 9)))