 
 (defn execute-ctc [{{:keys [x]} :cursor :keys [width] :as vt}]
   (let [n (get-param vt 0 0)]
-    (condp = n
+    (case n
       0 (if (< 0 x width) (update vt :tabs conj x) vt)
       2 (update vt :tabs disj x)
       5 (update vt :tabs empty)

(defn execute-el [{:keys [width height char-attrs] {:keys [x y]} :cursor :as vt}]
  (let [n (get-param vt 0 0)]
    (update-in vt [:lines y] (fn [line]
                               (condp = n
                                 0 (clear-line-right line x char-attrs)
                                 1 (clear-line-left line x char-attrs)
                                 2 (empty-line width char-attrs)

    (do-print vt input)))

(defn execute [vt input]
  (if-let [action (case input
                    0x08 execute-bs
                    0x09 execute-ht
                    0x0a execute-lf
