) (BRANCH <>) (DIR <>) "AUX" QDAT (STR <1 >) (FLG <>) (NUM <2 >) (TYP ) (TPS ) (TYP1 ) (ELSE .TPS)>) (FLS <==? .W FLUSHED>) (SDIR .DIR) (B3 ) NK NN (B2 .BRANCH) (ELSE )>) SAC NAC STRD NUMD TEM T1 (TEMP? <==? .TPS TEMPLATE>) (RW .W)) #DECL ((N STR NUM) NODE (QDAT STRD NUMD) DATUM (SAC NAC) AC (NN) FIX (TPS TYP1 B2 B3) ATOM (NK FLS DIR SDIR NOTF BRANCH) ) > ,QUOTE-CODE> > 0> > )>) (ELSE >)> >> >> > ,DATVAL >> <- -1 .NN>>>) (ELSE > AC> >>>>) (ELSE >> !>> .NUMD> )> .NUMD> -1 ()>>)> > > >> ()>> '.HERE!-OP!-PACKAGE -2>> )> ) ( >>> )> .W> ) (ELSE ()>> > ) (ELSE > )> > .NUMD>)> > .W>> ()>> > )>)>) (ELSE .NK >>> > .STRD>) (>>)> > AC> >) (ELSE >)> .STRD .QDAT> .DIR) (ELSE .DIR)> `CAIL ) (ELSE `CAIG )> > .NN>> ) ( .DIR) (ELSE )> `CAML ) (ELSE `CAMG )> >> [

<==? .TPS TUPLE>> 2) (ELSE 1)>>>)>]>>)> ) ( <==? .TPS BYTES>> > .STRD> AC> >>>> AC>> .STRD>) ( ) (ELSE .NAC)>> ()>> ) (ELSE ()>>)>) (ELSE AC>> <>>) (ELSE >)>> !>> .STRD> > )>)>) (ELSE > .STRD> AC> <==? >> >>) (ELSE >>>>)>) (ELSE AC>> .STRD>) (ELSE )>> .STRD .SAC>) ( !>>)> > )> >> <==? .TPS TUPLE>> -1>>)>)>)> > .NUMD> > >) (ELSE .SAC> )> )>)> .DIR) ( >> ) (ELSE > .DIR>)> '(`CAMG `CAIG )) (ELSE '(`CAMLE `CAILE ))> > )> >) ( >> > .W> )>) (ELSE )> > ) (ELSE > > .W> )>)>)> >