4 (make-actor-with-address 'factorial
5 (lambda (self customer n)
6 (let ((fact_svc (make-actor
9 ((> n 0) (send-message self (- n 1) (* acc n)) 'sleep)
10 (else (send-message customer acc) 'done))))))
11 (send-message fact_svc n 1)
15 (make-actor-with-address 'println
16 (lambda (self . message)
20 (send-message factorial println 5)
21 (send-message factorial println 7)