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