         ones (mod reg-x-val 10)
         tens (quot (mod reg-x-val 100) 10)
         hundreds (quot (mod reg-x-val 1000) 100)]
-    (trace machine-state opcode "FX33 bcd V[%d](0x%02x), I(0x%04x), %d-%d-%d" reg-x-num reg-x-val addr-reg, hundreds, tens, ones)
+    (trace machine-state opcode "FX33 bcd V[%d](0x%02x), I(0x%04x), %d-%d-%d" 
+           reg-x-num reg-x-val addr-reg, hundreds, tens, ones)
     (-> machine-state
         (machine-state/set-memory addr-reg hundreds)
         (machine-state/set-memory (+ addr-reg 1) tens)

        reg-x-val (machine-state/get-register machine-state reg-x-num) 
        reg-y-val (machine-state/get-register machine-state reg-y-num)
        addr-reg (machine-state/get-addr-reg machine-state)]
    (trace machine-state opcode "DXVN drw V[%d](0x%02x), V[%d](0x%02x), %d, I(0x%04x)" reg-x-num reg-x-val reg-y-num reg-y-val imm addr-reg)

    (as-> machine-state $ 
      (machine-state/clear-carry-flag $)

        reg-x-val (machine-state/get-register machine-state reg-x-num)
        reg-y-num (utils/get-nibble2 opcode)
        reg-y-val (machine-state/get-register machine-state reg-y-num)]
    (trace machine-state opcode "9XY0 seq V[%d](0x%02x) == V[%d](0x%02x)" 
           reg-x-num reg-x-val reg-y-num reg-y-val)
    (if (not= reg-x-val reg-y-val)
      (machine-state/skip-next-pc machine-state)
      (machine-state/increment-pc machine-state))))
