diff --git a/eg/gevent/sockets/socket-server.hy b/eg/gevent/sockets/socket-server.hy
new file mode 100644
index 0000000..0ac9de5
--- /dev/null
+++ b/eg/gevent/sockets/socket-server.hy
@@ -0,0 +1,11 @@
+
+(import-from gevent.server StreamServer)
+
+(defn handle [socket address]
+  (.send socket "Hello from Lisp!\n")
+  (for [x (range 5)] (.send socket (+ (str x) "\n")))
+  (.close socket))
+
+
+(def server (StreamServer (, "127.0.0.1" 5000) handle))
+(.serve-forever server)