(import matchable
        (chicken process-context)
        srfi-18)

(define (main-beh self system)
  (send-message system 'print "Hello, what is your name?")
  (send-message system 'read
                (make-actor (lambda (self . message)
                              (match message
                                ((name)
                                 (send-message system 'print "Hello, " name "!")
                                 'done)))))

  (send-message-later system 10 'print "Boo!"))