diff --git a/racket/doc/chat-client.rkt.txt b/racket/doc/chat-client.rkt.txt
deleted file mode 100644
index f5324e2..0000000
--- a/racket/doc/chat-client.rkt.txt
+++ /dev/null
@@ -1,22 +0,0 @@
-#lang syndicate ;; -*- racket -*-
-
-(require (only-in racket/port read-bytes-line-evt))
-(require "../drivers/tcp.rkt")
-
-(define local-handle (tcp-handle 'chat))
-(define remote-handle (tcp-address "localhost" 5999))
-
-(spawn-tcp-driver)
-(actor (define e (read-bytes-line-evt (current-input-port) 'any))
-       (until (rising-edge quit?)
-              #:collect [quit? #f]
-              (assert (advertise (tcp-channel local-handle remote-handle ?)))
-              (on (retracted (advertise (tcp-channel remote-handle local-handle ?))) #t)
-              (on (message (at-meta (external-event e (list $value))))
-                  (match value
-                    [(? eof-object?) #t]
-                    [(? bytes?) (send! (tcp-channel local-handle remote-handle value)) #f]))
-              (on (message (tcp-channel remote-handle local-handle $bs))
-                  (write-bytes bs)
-                  (flush-output)
-                  #f)))
diff --git a/racket/doc/chat.rkt.txt b/racket/doc/chat.rkt.txt
deleted file mode 100644
index d1ab30d..0000000
--- a/racket/doc/chat.rkt.txt
+++ /dev/null
@@ -1,31 +0,0 @@
-#lang syndicate ;; -*- racket -*-
-
-(require (only-in racket/string string-trim))
-(require "../drivers/tcp.rkt")
-(require "../demand-matcher.rkt")
-
-(define (spawn-session them us)
-  (define user (gensym 'user))
-  (define (send-to-remote fmt . vs)
-    (send! (at-meta (tcp-channel us them (string->bytes/utf-8 (apply format fmt vs))))))
-  (define (say who fmt . vs)
-    (unless (equal? who user) (send-to-remote "~a ~a\n" who (apply format fmt vs))))
-  (actor (send-to-remote "Welcome, ~a.\n" user)
-         (until (retracted (advertise (tcp-channel them us ?)) #:meta-level 1)
-           (assert (advertise (tcp-channel us them ?) #:meta-level 1))
-           (assert (advertise `(,user says ,?)))
-           (on (asserted (advertise `(,$who says ,?))) (say who "arrived."))
-           (on (retracted (advertise `(,$who says ,?))) (say who "departed."))
-           (on `(,$who says ,$what) (say who "says: ~a" what))
-           (on (message (at-meta (tcp-channel them us $bs)))
-               (define input-string (string-trim (bytes->string/utf-8 bs)))
-               (if (equal? input-string "quit-dataspace")
-                   (assert! 'quit-dataspace)
-                   (send! `(,user says ,input-string)))))
-         (send-to-remote "Goodbye!\n")))
-
-(spawn-tcp-driver)
-(let ((us (tcp-listener 5999)))
-  (group (until (asserted 'quit-dataspace)
-           (on (asserted (advertise (tcp-channel $them us ?)) #:meta-level 1)
-               (spawn-session them us)))))
diff --git a/racket/doc/echo.rkt.txt b/racket/doc/echo.rkt.txt
deleted file mode 100644
index 2ec3a74..0000000
--- a/racket/doc/echo.rkt.txt
+++ /dev/null
@@ -1,16 +0,0 @@
-#lang syndicate ;; -*- racket -*-
-
-(require "../drivers/tcp.rkt")
-(require "../demand-matcher.rkt")
-
-(define server-id (tcp-listener 5999))
-
-(spawn-tcp-driver)
-(actor (forever
-        (on (asserted (advertise (tcp-channel $c server-id ?)))
-            (printf "Accepted connection from ~v\n" c)
-            (actor (until (retracted (advertise (tcp-channel c server-id ?)))
-                     (advertise (tcp-channel server-id c ?))
-                     (on (tcp-channel c server-id bs)
-                         (send! (tcp-channel server-id c bs))))
-                   (printf "Closed connection ~v\n" c)))))