>
<pre class="example">(set-default-event-loop!) ;; if none has yet been set
(define m1 (make-meeting))

(a-sync (lambda (await resume)
	  (let loop ((datum (meeting-receive await resume m1)))
	    (when (not (eq? datum 'stop-iteration))
	      (display datum)
	      (newline)
	      (loop (meeting-receive await resume m1))))))

(a-sync (lambda (await resume)
	  (let loop ((count 0))
	    (if (&lt; count 4)
		(begin
		  (meeting-send await resume m1 count)
		  (loop (1+ count)))
		(meeting-close m1)))))
(ev