(defun uniq (lst)
  (labels ((rec (l acc)
              (if (null l) (reverse acc)
                (let ((top (car l)) (rests (cdr l)))
                  (if (member top acc)
                    (rec rests acc)
                    (rec rests (cons top acc)))))))
    (rec lst nil)))