DE DE MOUSEの楽曲「flesh! + blood」から想起したRacketの関数

flesh+blood.rkt

#lang racket

(define *blood*
  '(abraham issac jacob judah perez hezron ram ammin\'adab
            nahshon salmon bo\'az obed jesse david-the-king
            solomon rehobo\'am abi\'jah asa jehosh\'aphat
            joram uzzi\'ah jotham ahaz hezeki\'ah manas\'seh
            amos josi\'ah jechoni\'ah she-al\'ti-el
            zerub\'babel abi\'ud eli\'akim azor zadok achim
            eli\'ud elea\'zar matthan jacob joseph jesus))

(define flesh!+blood
  (let ((b *blood*))
    (lambda ()
      (if (null? b)
          '()
          (let ((res (car b)))
            (set! b (cdr b))
            res)))))