diff --git a/racket/syndicate/examples/actor/cleanup.rkt b/racket/syndicate/examples/actor/cleanup.rkt
new file mode 100644
index 0000000..1659a66
--- /dev/null
+++ b/racket/syndicate/examples/actor/cleanup.rkt
@@ -0,0 +1,22 @@
+#lang syndicate
+
+(require/activate syndicate/drivers/timestate)
+
+(define (foo)
+  (printf "Sleeping foo\n")
+  (sleep 2)
+  (printf "Done foo\n"))
+
+(define (bar)
+  (printf "Sleeping bar\n")
+  (sleep 1)
+  (printf "Done bar\n"))
+
+(define (cleanup-after . script-thunks)
+  (react (on-stop (printf "Cleaning up\n"))
+         (for [(script-thunk script-thunks)]
+           (on-start (script-thunk)))))
+
+(spawn (on-start (printf "Starting process\n"))
+       (on-stop (printf "Stopping process\n"))
+       (on-start (cleanup-after foo bar)))