- ((n) (send-message self (list n 1)) 'sleep)
- ((0 acc) (print acc) 'done)
- ((n acc) (send-message self (list (- n 1) (* acc n))) 'sleep)))))
-
-;(send-message factorial '(5))
+ ((n) (send-message self customer n 1) 'sleep)
+ ((0 acc) (send-message customer acc) 'done)
+ ((n acc) (send-message self customer (- n 1) (* acc n)) 'sleep)))))
+
+(define println
+ (make-actor-with-address 'println
+ (lambda (self . message)
+ (apply print message)
+ 'sleep)))
+
+(send-message factorial println 5)
+(send-message factorial println 7)
+(run)