A modest Scheme poem ...

[Jean Abou Samra]

(let ((be values))
  (when values
        (yield)
        *unspecified*)
  (if values
      (do ()
        (not
         (values be quit)))))