(flet ((next-string (make-string-enumerator ))) (loop for str = (next-string) until (null str) do )) ##

##

(dostrings (str )
  )

##

##

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