t next ((count 0))
	    (when (&lt; count 2)
	      (simple-format #t &quot;Message received from ~a~%&quot;
			     (meeting-receive await resume m1 m2))
	      (next (1+ count))))))
(event-loop-run!)
</pre></div>

<p>Once a datum exchange has taken place, the meeting object(s) can be
reused for making another exchange (provided the meeting objects have
not been closed).
</p>
<p>This procedure must be called in the native OS thread in which the
event loop concerned runs.  To have other native OS threads
co