7 (make-actor-with-address 'factorial
8 (lambda (self customer . message)
10 ((n) (send-message self customer n 1) 'sleep)
11 ((0 acc) (send-message customer acc) 'sleep)
12 ((n acc) (send-message self customer (- n 1) (* acc n)) 'sleep)))))
15 (make-actor-with-address 'println
16 (lambda (self . message)
20 (send-message factorial println 5)
21 ;;(send-message factorial println 7)