6 (make-actor-with-address
8 (lambda (self customer n)
10 (send-message customer 1)
11 (let ((fact-acc (make-actor
13 (send-message customer (* n m))
15 (send-message self fact-acc (- n 1))))
19 (make-actor-with-address 'println
20 (lambda (self . message)
24 (send-message factorial println 5)
25 (send-message factorial println 7)