 
 (def ^:dynamic *svr*)
 
+(declare telnet!)
+
 (defn- make-client
   [stream]
   {:stream stream

    ;; the client can send term type! request it
    (= {:telnet :will 
        :opt :term-type} pkt)
    (send! cli {:telnet :term-type
                :opt [:send]})
    ;; the client is sending their term type
    (= :term-type (:telnet pkt))

    ;; TODO we could be more generic about this
    ;; (include a set of things we'll ":do" in
    ;; the server opts)
    (telnet! client {:telnet :do
                     :opt :term-type})))

;;
;; Server control
