(define (for-each->stream-maker for-each) 
   (stream-lambda (collection) 
     (call-with-current-continuation 
       (lambda (return-cdr) 
         (for-each 
           (lambda (element) 
             (call-with-current-continuation 
               (lambda (return-to-for-each) 
                 (return-cdr 
                   (stream-cons element 
                     (call-with-current-continuation 
                       (lambda (return-next-cdr) 
                         (set! return-cdr return-next-cdr) 
                         (return-to-for-each)))))))) 
           collection) 
         (return-cdr stream-null)))))