gistfile1.txt

  <choose>
    <when>                                        # label -> when1_start
       <test>
         <in caseless="yes"/>                     # caseless mode on
           <clip pos="1" side="sl" part="lem"/>   # push 1, and push regex, clipsl
           <list n="verbos_est"/>
         </in>
       </test>                                    # jnz when1_when1_end
       <let>
         <clip pos="2" side="tl" part="lem"/>     # check parent if let and if clip is its first child
                                                  # push 2 and push [regex] but dont write 'cliptl' as we normally do
                                                  # instead delayedcode['let'] = storetl
         <lit v="en"/>                            # push en
       </let>                                     # end of let tag, check delayedcode, it has pending code, so 
                                                  # write storetl
    </when>
                                                  # label when1_end nop
  </choose>


when1_start:    push      1
                push      "^\w+"            ; lem
                clipsl                      ; we have lemmma in stack now
                incini    verbox_est        ; if in verbos_est (ignore case), set ZF = 1, else ZF = 0       
                jnz       rule1_end

                push      2
                push      "^\w+"
                push      "en"
                storetl
when1_end:      nop                          ; nop will be removed later by the optimizer