(define festiveMessage "Happy Holidays")
(define counter 0)

(define (make-thread-thunk name)
  (letrec ((loop (lambda ()
                   (if (> counter (-(string-length festiveMessage) 1))
                       (quit))
                   (display "in thread ")
                   (display name)
                   (display "; Festive Message string reference = ")
                   (display (string-ref festiveMessage counter))
                   (newline)
                   (set! counter (+ counter 1))
                   (yield)
                   (loop))))
    loop))