(define fred (lambda ()
(progn (print "fred iteration" \#newline )
(yield 25000)
(fred))))
(define bella (lambda (x)
(progn (print "bella iteration" x \#newline)
(yield 50000)
(bella (+ x 1)))))
(spawn '(fred) '(bella 0))