) REG RAC (FLS <==? .W FLUSHED>) (B2 .BR) (ELSE )>) (SDIR .DI) (B3 <>) B4 F1 F2 F3 (SBR ) TT) #DECL ((N) NODE (NUM) FIX (K) ) > ,QUOTE-CODE> <2 .K>) (ELSE <1 .K>)>>>>>> >> > .W>>)> > ) (ELSE .DI)>> >> > > > <==? .SBR G?>> >)> .B2) (.F3 .B2) (> >>) (ELSE .B2)> > >> > 0> > )> > > 2>> > >) (ELSE .REG)> 1>> ) (ELSE > 2>> >>>)> > <+ .NUM 1>) (ELSE .NUM)> '(`TYPE FIX)> VALUE) ( VALUE)> >> >> >>) (ELSE .B2)> T> >) (ELSE >)> )> )> ) ( .W>> .W)>> >) T1 T2 STR (ITYP ) (TYP )) #DECL ((STRN NOD) NODE (K) (T1 T2) ATOM) > > >) ( )> ) ( <==? .TYP TUPLE>> ) (<==? .TYP STRING> ) (<==? .TYP BYTES> ) (<==? .TYP UVECTOR> ) (<==? .TYP TEMPLATE> ) (ELSE )> .WHERE> > ) (BRANCH <>) (DIR <>) (SETF <>) "AUX" (STRN <1 >) STR (ITYP ) (SDIR .DIR) (TYP ) (TY ) (FLS <==? .WHERE FLUSHED>) (B2 .BRANCH) (ELSE )>)) #DECL ((STRN NOD) NODE (B2) ATOM (BRANCH) ) >>)> >> > .WHERE>>)> > ) (ELSE .DIR)>> > ,MONAD-CODE> .B2>) (<==? .TYP LIST> ) ( <==? .TYP TUPLE>> ) (<==? .TYP UVECTOR> ) (<==? .TYP STRING> ) (<==? .TYP BYTES> ) (<==? .TYP TEMPLATE> ) ( ) (ELSE .B2>)> ) ( .WHERE>> .WHERE)>> >) (NUMNOD <2 >) (TYP ) (TPS ) (NUMKN <==? ,QUOTE-CODE>) (NUM OFFSET> >) (T )>) (ELSE 0)>) (ML ) STR NUMN (ONO .NO-KILL) (NO-KILL .ONO) (LCAREFUL .CAREFUL) (W .WHERE) RV (NEED-CHTYPE .TPS> <==? ,CHTYPE-CODE>>) (NR >)) #DECL ((NOD NUMNOD STRNOD) NODE (ML N MP NUM) FIX (NUMNK RV) (NR) > (NO-KILL) ) .STRNOD .NUMNOD>> .NOD>) (<0? .NUM> >>) ( >) ( .NEED-CHTYPE> >)> >) ( > >> >>>) () ( .NEED-CHTYPE> >>)> .NUM .ML .LCAREFUL .W>>) (.TPS > > >)> > >>>) ( >) ( .NEED-CHTYPE> >)> >) (ELSE > > >>) ( )> > )> )> .WHERE) (ELSE > > >) (ELSE > > >)> 0>>> > >)> > >)> .NEED-CHTYPE> >)> > <==? .WHERE DONT-CARE>> )>) (ELSE >>>) ( >) ( .NEED-CHTYPE> >)> >)> )> .WHERE)>> <==? .TPS TUPLE>> ) (<==? .TPS UVECTOR> ) (<==? .TPS STRING> ) (<==? .TPS BYTES> ) (<==? .TPS LIST> ) (<==? .TPS TEMPLATE> ) (ELSE )>> ) STR (TYP >) (TPS ) (2ARG <2 .K>) NUMN (NUMKN <==? ,QUOTE-CODE>) (NUM OFFSET> >) (ELSE )>) (ELSE 1)>) (NR >) (TEM <>) (1ARG <1 .K>) NDAT (DONE <>) FLS (LCAREFUL .CAREFUL) (ML ) (RV <==? INTH>) (RESTYP >)) #DECL ((NOD) NODE (K) (TPS) ANY (NUM ML COD) FIX) )> .NOD>) (<1? .NUM> > > >)> > >>) ( >)> .RESTYP>) (ELSE )>) ( > >> .NUM .ML .LCAREFUL>> > >>) ( >)> ) (ELSE > > >)> > >>) ( >)> .RESTYP>)>) (ELSE > > >) (ELSE > > >)> 0>>> > >)> >>) ( >)> > >) (ELSE .RESTYP> > >)>)> .WHERE> >> >)> >> .LCAREFUL> )> <1? .NUM>> > >) ( )> ) ( 1> <==? .STR .W>>>> ) (ELSE > > 1>)> > 0> > > )> )> >>) (ELSE 1>>> >>>)> > 1> <==? .W .STR>>>>> >>>)> > > > )> )> VALUE) ( VALUE)> > >> )> )> >> )> >)>)> .STR> )) <==? .TPS TUPLE>> ) (<==? .TPS UVECTOR> ) (<==? .TPS STRING> ) (<==? .TPS BYTES> ) (<==? .TPS LIST> ) (<==? .TPS TEMPLATE> ) (ELSE )>> > ) "AUX" (ONO .NO-KILL) (K ) (SNOD <1 .K>) (NNOD <2 .K>) (VNOD <3 .K>) (TYP ) (TPS ) (ML ) VN STR NUMN (NUMKN <==? ,QUOTE-CODE>) (NUM OFFSET> >) (ELSE )>) (ELSE 1)>) (RV .NNOD .SNOD>>) (RR .VNOD .SNOD> .VNOD .NNOD>>) (NR >) ETYP (W .WHERE) FOO) #DECL ((NOD) NODE (K) (NUM ML) FIX) )> >> '[VECTOR UVECTOR STRING BYTES]> > > SEGMENT>>>> >) (> >> >)> > ) (<1? .NUM> > > > .CAREFUL> >)>) (ELSE > > >)> > >)>)> ) (ELSE )> )> >) (ELSE > > >) (ELSE > > >)>)> > >)> ) (ELSE > >> .NUM .ML .CAREFUL>> 1 .VN .TPS .TYP .ETYP>) (ELSE )>)> )> )> >)>) (ELSE > > >)> > > > > >)>) (ELSE > > > > >)>)> )> 0>>>> )> >>>> >)> >)>)> ) (ELSE .CAREFUL> > ) (ELSE )>)> )> >)> .W> )> ) ( <==? .TPS TUPLE>> ) (<==? .TPS UVECTOR> ) (<==? .TPS STRING> ) (<==? .TPS BYTES> ) (<==? .TPS TEMPLATE> .ETYP>) (ELSE )>> ) ( 1> <==? <1 .TYP> OR>> >)>> ) (ONO .NO-KILL) (NO-KILL .ONO) (2RET <>)) #DECL ((NOD N) NODE (K) (NO-KILL) (ONO) LIST) ,REST> > > )> > ,QUOTE-CODE> <==? > ()>> DONT-CARE>>) (ELSE DONT-CARE>> >> DONT-CARE>>)> >>>> )> ) (ELSE )> .ST2) (ELSE .ST1)> .WHERE>> ,QUOTE-CODE> >> ,QUOTE-CODE> >>> >> >> ,SNODES>> ,QUOTE-CODE> >>> >> >> ,SNODES>>>> >> 2> <2 .CD>) (ELSE T)> > ) > >> .L>>> ) !.L)>)> ) (ELSE .RV)>> \ <==? .TPS TUPLE>> ) (<==? .TPS UVECTOR> ) (<==? .TPS STRING> ) (<==? .TPS BYTES> ) (<==? .TPS LIST> ) (<==? .TPS TEMPLATE> ') (ELSE ')>> )) <==? .TPS TUPLE>> ) (<==? .TPS LIST> ) (<==? .TPS UVECTOR> ) (<==? .TPS STRING> ) (<==? .TPS BYTES> ) (ELSE )> >> > DONT-CARE>> > >) ( .W) (ELSE .W)>> .W> )) #DECL ((N) NODE (K) ) DONT-CARE>> > > > ,QUOTE-CODE> >>>> >)> > >) ( .W) (ELSE .W)>>) (ELSE DONT-CARE>> <>> > >) ( .W) (ELSE .W)>>)> .W>