(import sam-macros)

(define-beh main-beh (self)
  ((system) =>
   (send-message system 'print "Hello, what is your name?")
   (send-message system 'read
                 (make-actor (make-beh (self)
                                       ((name) =>
                                        (send-message system 'print "Hello, " name "!")
                                        'done))))
   (send-message system 'ping
                 (make-actor (make-beh (self)
                                       (('pong) =>
                                        (send-message system 'print
                                                      "Received pong from system!")
                                        'done))))
   (send-message-later system 10 'print "Boo!")
   'done))