) (TYP >) (TPS ) (NUMKN <==? > ,QUOTE-CODE>) (NUM >) (ELSE 0)>)) #DECL ((NUMKN) (NUM) FIX (TPS) ATOM (NOD) NODE (WHERE) (K) ) >> .NOD .WHERE .TYP .TPS .NUMKN .NUM <1 .K> <2 .K>>> > >) (UV? <==? .TPS UVECTOR>) NAC SAC STR NUMN (RV <>) TAC TDAT (W )) #DECL ((NOD NUMNOD STRNOD) NODE (W TDAT STR NUMN) DATUM (TAC SAC NAC) AC (NUM) FIX (NO-KILL) (RV CAREFL UV?) ) ) (<0? .NUM> >) (ELSE > >>> > >> !>> `O >> 1 ()>> `O >> <+ )> 1>>> |COMPER >> )> > ]) (ELSE [

) <* .NUM 2>>])>>>)>) (ELSE .NUMNOD .STRNOD>> > >) (> >)> > 1>>)> |COMPER >> >>> >> !>> `O >> 1 ()>> `O >> >> |COMPER >> )> ()>> .STR> AC>> >> > .STR> )>)> > >) (TY ) (TPS ) OAC SAC (FLG <>) W DAC D) #DECL ((N NN) NODE (W D) DATUM (TPS) ATOM (OAC SAC DAC) AC) > ) (ELSE .TPS)> ANY-AC>>> > ,ACPROT T> > >> ) ( AC> AC> ,ACPROT T> >> AC> ,ACPROT <>>) (ELSE >>)> >> >> AC>> <>>> 2 ()>>) ( FIX>>> .D> 2 ()>>) (ELSE >> 2 ()>>)> 1 ()>> -2 ()>> >> > > > >