(let ((next-string (make-string-enumerator <num>)))
  (labels ((looper (body enumerator)))
    (let ((str (funcall enumerator)))
      (when str
        (funcall body str)
        (looper body enumerator)))))