If this global variable is bound to an event object, the event is signalled with every incoming message.
(define primitive-message-event (make-event))(let loop () (let ((message (wait primitive-message-event))) (event.clear! primitive-message-event) (write-line message)))