(define (uniq l) (cond ((null? l) '()) ((null? (cdr l)) l) ((equal? (car l) (cadr l)) (uniq (cdr l))) (else (cons (car l) (uniq (cdr l))))))
