       [cmds (inc ip) regs]
       (let
           [before (nth cmds idx)
-           after
+           after-instruction
            (match [(:cmd before)(:y before)]
              [:inc nil] :dec
              [_    nil] :inc

  (if-let [[_ x y] (re-find (re-matcher #"^jnz (-?\d+) (-?\d+)$" cmd))]
    {:cmd :jnz-value :x (parse-int x) :y (parse-int y)}))

(defn parse-jnz-value-2
  [cmd]
  (if-let [[_ x y] (re-find (re-matcher #"^jnz (-?\d+) ([a-z]+)$" cmd))]

           (recur (inc ctr) cmds2 {:ip ip2 :regs regs2}))))))


(clojure.spec.test/instrument)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sample data

