(defvar *server*
    (lambda (env)
      (let ((ws (make-server env)))
        (on :open ws
            (lambda ()
              (format *standard-output* "someone connected")))
        (on :message ws
            (lambda (msg)
              (format *standard-output*  msg)))
        (lambda (responder)
          (declare (ignore responder))
          (start-connection ws)))
      (print "server started" *terminal-io*)))