 (defn execute-tbc [{{:keys [x]} :cursor :as vt}]
   (let [n (get-param vt 0 0)]
     (condp = n
-      0 (update-in vt [:tabs] disj x)
-      3 (update-in vt [:tabs] empty)
+      0 (update vt :tabs disj x)
+      3 (update vt :tabs empty)
       vt)))
 
 (defn execute-sm [vt]


(defn execute-hts [{{:keys [x]} :cursor :keys [width] :as vt}]
  (if (< 0 x width)
    (update-in vt [:tabs] conj x)
    vt))

(defn execute-ri [{:keys [top-margin] {y :y} :cursor :as vt}]

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

(defn execute-ech [{{:keys [x y]} :cursor :keys [width char-attrs] :as vt}]
