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


(def ^:dynamic *svr*)

(defn- make-client
  [stream]
  {:stream stream

(defn telnet!
  "Send a telnet map (like thsoe received in :on-telnet)
  or a vector of raw bytes as a telnet instruction. Telnet
  maps can also be sent using (send!) for convenience;
  note, however, that send! appends an '\\r\\n' sequence
  to whatever is passed, so if you ONLY want to send a
  telnet sequence, this is the way to go."
  [cli telnet]
  (when-let [s (:stream @cli)]
    (cond
