The call/cc yin yang puzzle extended to arbitrarily large n.

yin-yang.rkt

(define (yin-yang n)
  (define yv
    (for/vector ([i (in-range n)])
      ((lambda (cc) (printf "~a " i) cc) (call/cc (lambda (k) k)))))
  (for ([i (in-range (- n 1))])
    ((vector-ref yv i) (vector-ref yv (+ i 1)))))

;; > (yin-yang 0)
;; > (yin-yang 1)
;; 0 
;; > (yin-yang 2)
;; 0 1 0 1 1 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 ...
;; > (yin-yang 7)
;; 0 1 2 3 4 5 6 0 1 2 3 4 5 6 1 2 3 4 5 6 0 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 0 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 0 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 0 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 0 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 0 ...