Nock subtract subject question

.*([666 66]
[8                                                       :: Compose with current subject:
  [1 0]                                                  :: constant 0 (for inner loop).
  [8                                                     :: with product of `compose again with current subject`:
    [1 0]                                                :: a second constant 0. (for outer loop)
    [8                                                   :: with product of another compose ...
      [1                                                 :: noun of
        [6                                               :: outer conditional
          [5 [8                                          :: if the product of this compose --
               [1                                        :: noun of
                 [6                                      :: inner conditional
                   [5 [1 1] [1 1]]                       :: if 1 and 1 are equal (which they are; whole thing just a subject test)
                   [0 31]                                :: produce the noun and tree address 31 (66 in this case, atom `b`)
                   [4 0 31]                              :: *this won't trigger*
                 ]
               ]
               [9 2 [0 1]]                               :: ^ composed with calling battery of subject
             ]
             [0 31]                                      :: ^^ if that whole thing (which produces [0 31]) is equal to [0 31] (which obviously should)
          ]
          [1 100]                                        :: then produce the constant 100 (this is what this whole thing should produce?)
          [0 1]                                          :: if not produce the whole subject noun
        ]
      ]
      [9 2 [0 1]]                                        :: call battery on the whole subject
    ]
  ]
])



:: yet, this whole thing doesn't return 100 (which means that the inner loop is changing up all the addresses since it's being composed with the whole subject, therefore 'moving' (the immutable equivalent) where the noun at the original [0 31] is.

> .*([666 66] [8 [1 0] [8 [1 0] [8 [1 [6 [5 [8 [1 [6 [5 [1 1] [1 1]] [0 31] [4 0 31]]] [9 2 [0 1]]] [0 31]] [1 100] [0 1]]] [9 2 [0 1]]]]])
[[6 [5 [8 [1 6 [5 [1 1] 1 1] [0 31] 4 0 31] 9 2 0 1] 0 31] [1 100] 0 1] 0 0 666 66]      <--- product