2K3B    [   
 2KH2    [   
 2L2L    [??? THEN SECT DEVT FGN 1 DOC   
 2LG=    [   
 2L^W    #MAC           THEN 
 2MFG    [              ==== 
 2M^6    [   
 2NDQ    [ ENSURES:  
 2NYB    [     DEPTH NON-ZERO
 2PD2    [     CURRENT STRUCTURE = CONDITIONAL   
 2PXL    [     'OR' NOT EXPECTED 
 2QC=    [     'THEN' NOT FOUND  
 2QWW    [ COMPILES: 
 2RBG    [     'THEN' LABEL  
 2RW6    [   
 2S*Q    #UNS           NESTDEPTH
 2STB    (   
 2T*2          STRUCTURE 1,CHECK 
 2TSL          FLAGTEST THEN,0,NOT,0,NOT,THEN
 2W#=    #ALT           NESTFLAG=NESTFLAG^1  
 2WRW    #SKI           NESTDEPTH/9  
 2X?G    (   
 2XR6    #ALT           20?=NESTDEPTH-9  
 2Y=Q          NESTLABEL NIF6,FREE   
 2YQB    #EXI
 2^=2    )   
 2^PL    #ALT           20?=NESTDEPTH-1  
 329=          NESTLABEL NIF1,FREE   
 32NW    #EXI
 338G    )   
 33N6    !! MEANINGLESS AT NESTING DEPTH ZERO !!!
 347Q    #NOR