     (do-print vt input)))
 
 (defn execute [vt input]
-  (if-let [action (condp = input
+  (if-let [action (case input
                     0x08 execute-bs
                     0x09 execute-ht
                     0x0a execute-lf

         :else vt))

(defn csi-dispatch [vt input]
  (if-let [action (condp = input
                    0x40 execute-ich
                    0x41 execute-cuu
                    0x42 execute-cud


(defn execute-ed [vt]
  (let [n (get-param vt 0 0)]
    (case n
      0 (clear-to-end-of-screen vt)
      1 (clear-to-beginning-of-screen vt)
      2 (clear-screen vt)
