) REG S WI) #DECL ((N) NODE (K) ) >> >> >> <>> > > )> .W) ( 1>> ) (ELSE > >)>> .W> ) REG S WI F (TY >)) #DECL ((N) NODE (K) ) >> >> >> >> <>> > > > )> .W) ( 1>> ) (ELSE > >>)>> .W> ) (FST <1 .K>) (INS >) REG) #DECL ((FST N) NODE (K) ) ,QUOTE-CODE> > )> >> ) (NXT ) TT (LAST >)) #DECL ((NN) NODE (NP) ) <==? .W ,POP-STACK>>> > )>)> ) ( 1>> .REG) (> 1>> >)> >) (ELSE .REG)>> > > > >>>