(define* (random-list #:key (length 1000) (limit 8))
    (let loop ((seed '()) (index 0))
        (if (= length index)
            seed
            (loop (cons (random limit) seed) (1+ index)))))

(define nl (random-list #:length 10000))
(define sl (random-list #:length 10000))

(define (scm-uniq! lst eq)
    (let loop ((it lst))
        (when (pair? (cdr it))
              (if (eq (car it) (cadr it))
                  (begin
                      (set-cdr! it (cddr it))
                      (loop it))
                  (loop (cdr it)))))
    lst)