diff --git a/marketplace/examples/chat-client.rkt b/marketplace/examples/chat-client.rkt
new file mode 100644
index 0000000..c027e63
--- /dev/null
+++ b/marketplace/examples/chat-client.rkt
@@ -0,0 +1,47 @@
+#lang marketplace
+
+(require racket/port)
+
+;; Usually it's OK to just use display and friends directly.
+;; Here we have a console output driver just to show how it's done.
+(spawn #:debug-name 'console-output-driver
+       #:child
+       (transition/no-state
+	(endpoint #:subscriber (list 'console-output ?)
+		  [(list 'console-output item)
+		   (begin (printf "~a" item)
+			  (void))])))
+
+(spawn #:debug-name 'console-input-driver
+       #:child
+       (transition/no-state
+	(endpoint #:publisher (list 'console-input ?)
+		  #:name 'input-relay
+		  #:on-absence
+		  (list (send-message (list 'console-output "Connection terminated.\n"))
+			(quit)))
+	(endpoint #:subscriber (cons (read-line-evt (current-input-port) 'any) ?)
+		  [(cons _ (? eof-object?))
+		   (list (send-message (list 'console-output "Terminating on local EOF.\n"))
+			 (delete-endpoint 'input-relay))]
+		  [(cons _ (? string? line))
+		   (send-message (list 'console-input line))])))
+
+(spawn #:debug-name 'outbound-connection
+       #:child
+       (let ((local (tcp-handle 'outbound))
+	     (remote (tcp-address "localhost" 5999)))
+	 (transition/no-state
+	  (endpoint #:subscriber (list 'console-input ?)
+		    #:on-absence (quit)
+		    [(list 'console-input line)
+		     (list (send-message (list 'console-output (format "> ~a \n" line)))
+			   (send-message (tcp-channel local remote (string-append line "\n"))))])
+	  (endpoint #:publisher (tcp-channel local remote ?))
+	  (endpoint #:subscriber (tcp-channel remote local ?)
+		    #:on-absence (quit)
+		    [(tcp-channel _ _ (? eof-object?))
+		     (quit)]
+		    [(tcp-channel _ _ data)
+		     (list (send-message (list 'console-output (format "< ~a" data)))
+			   (void))]))))
diff --git a/marketplace/scribblings/examples.scrbl b/marketplace/scribblings/examples.scrbl
index a82872d..dfcec38 100644
--- a/marketplace/scribblings/examples.scrbl
+++ b/marketplace/scribblings/examples.scrbl
@@ -83,3 +83,51 @@ Racket programs.
 	     #:on-absence  (announce who 'departed)
 	     [`(,who says ,what) (say "~a: ~a" who what)])))
 )
+
+@section[#:tag "chat-client-example"]{TCP chat client}
+
+@#reader scribble/comment-reader (racketmod #:file "examples/chat-client.rkt" marketplace
+(require racket/port)
+
+(spawn #:debug-name 'console-output-driver
+       #:child
+       (transition/no-state
+	(endpoint #:subscriber (list 'console-output ?)
+		  [(list 'console-output item)
+		   (begin (printf "~a" item)
+			  (void))])))
+
+(spawn #:debug-name 'console-input-driver
+       #:child
+       (transition/no-state
+	(endpoint #:publisher (list 'console-input ?)
+		  #:name 'input-relay
+		  #:on-absence
+		  (list (send-message (list 'console-output "Connection terminated.\n"))
+			(quit)))
+	(endpoint #:subscriber (cons (read-line-evt (current-input-port) 'any) ?)
+		  [(cons _ (? eof-object?))
+		   (list (send-message (list 'console-output "Terminating on local EOF.\n"))
+			 (delete-endpoint 'input-relay))]
+		  [(cons _ (? string? line))
+		   (send-message (list 'console-input line))])))
+
+(spawn #:debug-name 'outbound-connection
+       #:child
+       (let ((local (tcp-handle 'outbound))
+	     (remote (tcp-address "localhost" 5999)))
+	 (transition/no-state
+	  (endpoint #:subscriber (list 'console-input ?)
+		    #:on-absence (quit)
+		    [(list 'console-input line)
+		     (list (send-message (list 'console-output (format "> ~a \n" line)))
+			   (send-message (tcp-channel local remote (string-append line "\n"))))])
+	  (endpoint #:publisher (tcp-channel local remote ?))
+	  (endpoint #:subscriber (tcp-channel remote local ?)
+		    #:on-absence (quit)
+		    [(tcp-channel _ _ (? eof-object?))
+		     (quit)]
+		    [(tcp-channel _ _ data)
+		     (list (send-message (list 'console-output (format "< ~a" data)))
+			   (void))]))))
+)