) TT ITRF OBJ (RQRG 0) (LN >>) FINALF TAPL (APL ()) (DCL #DECL ()) (ARGL ()) (HATOM <>) (NN 0) TEM L2 L3 (TRG 0)) #DECL ((OBJ OB) (LN NN) FIX (DCL) DECL (ARGL APL) LIST (ITRF FINALF TT) NODE (TRG RQRG) ) > T)(ELSE T)> >> > .NAME () .AP>> .TT>> > FUNCTION> >>> > ATOM> <==? ,.TEM ,FUNCTION> >>> >> > ATOM> > >> > > > 1>)) > 0> )> > > > DECL> > >> > ) ANY> <> () <> <2 >> .HATOM .VARTBL>> > > ) (LL .L) (L1 .L) SYM) #DECL ((L L1 LL) ) > >> 1> !.L2)> )

>>) (ELSE >>)> !.L3)> >) (ELSE >)>)> >>>> !.APL>)>)> > .APL>>>) ( <==? .LN 3>> <==? >> 2> > ATOM> <==? ,.TEM ,GVAL> > ATOM> > <==? .TEM .FCNS> >>>> .TT>) (ELSE ! '.IND>> .TT>)>> ,MARGS-CODE> >>>> > <> (.ITRF) <>>>) (ELSE >)> > >)> .TT>> \ <> () <>>>