) (KK ()) N TEM TT T1 D1 D2 D3 (OOPSF <>)) #DECL ((K KK) (N NOD) NODE) FIX>> > >) (ELSE T)>> .K> >> ,SEG-CODE> <==? >>>> LIST>> > .W) (ELSE )>>> >) (ELSE >)> >)) #DECL ((N) NODE (COD) FIX) ,SEG-CODE> > .TEM <> <> <>>>) (ELSE >> >> |C1CONS ) (ELSE |CICONS )>>> >)>> .KK> ) (ELSE >> ,SEG-CODE> > T T <>>> > > >) (ELSE >> > > >> |C1CONS ) (ELSE |CICONS )>>> > > )> )) #DECL ((N) NODE) ,SEG-CODE> >>>> LIST> >> >> ,ACPROT T> >>> !>> ,ACPROT <>>)> > `@ !>> >> AC> > !>>) (ELSE > !>>)>)> ) (ELSE >>)>) (ELSE >> > >> > >> |C1CONS ) (ELSE |CICONS )>>> >>)> >> >> > >>)>)>> > )>> ) (TG2 ) (ITYP ) (TPS ) (ET ) (DF ) (ML ) (TG1 ) TEM D1 D3 FDAT D4) #DECL ((NOD) NODE (DAT D1 D2 FDAT) DATUM (SMQ) ) > .ITYP) ( .TPS) (ELSE ANY-AC)> ANY-AC>>> )> > >>> >> ,ACLINK (.D1)> AC> ,ACLINK (.D1)>)>)> )> -1) (ELSE 0)> .D1 .TPS>> .TEM>> T>> ) ( >> )> >> |C1CONS ) (ELSE |CICONS )>>> > >>)>)> >> > )> > >)> >> T>>)> ,ACLINK (.D1)> AC> ,ACLINK (.D1)>)> )> > -1) (ELSE 0)> .D1 .TPS>> .TEM> T>> > >) (ELSE >>)> |C1CONS ) (ELSE |CICONS )>>> >>)> >> '>> > >>)> > ) (ELSE >>)> (.DAT .FDAT <0? .ML>)) (.FLG .FDAT) (ELSE .DAT)>> > > .TG>>) (ELSE > .TG>>)>> .TP) (ELSE ANY-AC)> ANY-AC>) AC) #DECL ((TP) ATOM (D DD) DATUM (AC) AC) >> `@ !>> ) (ELSE > > '[<1 (1)>]) (ELSE '[<2 (2)>])>>>)> .DD> )) #DECL ((D D1) DATUM (TP) ATOM (AC) AC) `@ !>> .TG>> )>) (ELSE !>> AC> > !>> ,ACLINK (.D1 !>)>)> )> .TG>>) (ELSE '[<2 (2)>]>> .TG>>)>)> T>