3 (define-beh main-beh (self)
5 (send-message system 'print "Hello, what is your name?")
6 (send-message system 'read
7 (make-actor (make-beh (self)
9 (send-message system 'print "Hello, " name "!")
11 (send-message system 'ping
12 (make-actor (make-beh (self)
14 (send-message system 'print
15 "Received pong from system!")
17 (send-message-later system 10 'print "Boo!")