(define (gen-list seq #!key (max 10) (length #f))
  (let loop ((sample (draw-samples seq length max)) (seq seq))
    (lazy-seq
     (let ((new-seq (lazy-drop (lazy-length sample) seq)))
       (cons (lazy-seq->list sample) (loop (draw-samples new-seq length max) new-seq))))))