#lang racket

(for ((lst (in-permutations (range 10)))
      (i (in-range 5)))
  (displayln `(,i ,lst)))


(require racket/generator)

(let ((g (sequence->generator (in-permutations (range 10)))))
  (displayln (g))
  (displayln (g))
  (displayln (g))
  (displayln (g)))