#lang racket
(require racket/generator)
(define nats
(generator ()
(let ([n 0])
(define (loop)
(yield n)
(set! n (add1 n))
(loop))
(loop))))
(+ (nats) (nats) (nats))
#lang racket
(require racket/generator)
(define nats
(generator ()
(let ([n 0])
(define (loop)
(yield n)
(set! n (add1 n))
(loop))
(loop))))
(+ (nats) (nats) (nats))