   [{:keys [memory r0 r1 ip is]}]
   (make-cpu
    :memory (assoc memory (nth memory (inc ip)) r0)
-   :r0 r0 :r1 r1 :ip ip :is is))
+   :r0 r0 :r1 r1 :ip (+ ip 2) :is 11))
 
 ;; cmd 12: Store R1 into <data> position
 (defn cmd12
   [{:keys [memory r0 r1 ip is]}]
   (make-cpu
    :memory (assoc memory (nth memory (inc ip)) r1)
-   :r0 r0 :r1 r1 :ip ip :is is))
+   :r0 r0 :r1 r1 :ip (+ ip 2) :is 12))
 
 ;; cmd 13: jump to address <data>
 (defn cmd13
   [{:keys [memory r0 r1 ip is]}]
   (make-cpu
-   :memory memory :r0 r0 :r1 r1 :ip (nth memory (inc ip)) :is is))
+   :memory memory :r0 r0 :r1 r1 :ip (nth memory (inc ip)) :is 13))
 
 ;; cmd 14: jump to address <data> if R0 == 0
 (defn cmd14

(defn cmd2
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 (- r0 r1) :r1 r1 :ip ip :is is))

;; cmd 3: R0 = R0 + 1
(defn cmd3
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 (inc r0) :r1 r1 :ip ip :is is))

;; cmd 4: R1 = R1 + 1
(defn cmd4
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 r0 :r1 (inc r1) :ip ip :is is))

;; cmd 5: R0 = R0 - 1
(defn cmd5
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 (dec r0) :r1 r1 :ip ip :is is))

;; cmd 6: R1 = R1 - 1
(defn cmd6
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 r0 :r1 (dec r1) :ip ip :is is))

;; cmd 7: Ring bell
(defn cmd7
  [{:keys [memory r0 r1 ip is]}]
  (println "Ring the bell!!")
  (make-cpu
   :memory memory :r0 r0 :r1 r1 :ip ip :is is))

;; cmd 8: Print <data>
(defn cmd8
  [{:keys [memory r0 r1 ip is]}]
  (println (nth memory (inc ip)))
  (make-cpu
   :memory memory :r0 r0 :r1 r1 :ip ip :is is))

;; cmd 9: Load value from <data> to R0
(defn cmd9
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r1 r1 :ip ip :is is
   :r0 (nth memory (nth memory (inc ip)))))

;; cmd 10: Load value from <data> to R1
(defn cmd10
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 r0  :ip ip :is is
   :r1 (nth memory (nth memory (inc ip)))))

;; cmd 11: Store R0 into <data> position

  (make-cpu
   :memory memory :r0 r0 :r1 r1
   :ip (if (zero? r0)
         (nth memory (inc ip)) (+ ip 2))
   :is 14))

;; cmd 15: jump to address <data> if R0 != 0
(defn cmd15
