) P TEM X) #DECL ((PARENT) (OBJ)

(VALUE) NODE) 3> >> GVAL> <==? > ==?>> > FORM> <==? 2> <==? <1 .X> GVAL> <==? > ==?> ;> '[==? TYPE? PRIMTYPE?]>>>) (ELSE >)> 1> > ) (> > >) ( >> >> > >>) (ELSE >)>) (> SEGMENT> <==? 2> <==? <1 .TEM> QUOTE> >>>> >> >) (ELSE > >>) (ELSE >)>)>> .TEM>) (ELSE >)>) (ELSE >)> T> > > '[WORD FIX]> <==? .P ==?>> <==? .TYP ATOM>>>>> >)> CASE ()>> .PARENT> .PARENT> ! (TT) NODE) )> > <> ()>> ,PREDIC > SEGMENT> >>) ( >) (ELSE )> .TT>> > >> > .TT) (ELSE )>> >)>) (ELSE )>) (ELSE )>>