(use net)

(let ((server (net:create-server (lambda (socket)
                                   (.write socket "Echo server\r\n")
                                   (.pipe socket socket)))))
  (.listen server 1337 "127.0.0.1"))