) (LN ) RT) #DECL ((N) NODE (LN) FIX (K) ) ) (ELSE > ANY >> )> ,KIDS ( ATOM OUTCHAN ()>)>)> CHANNEL > )>> ) (LN )) #DECL ((N) NODE (K) (LN) FIX) ) (ELSE ANY FLATSIZE> FIX FLATSIZE> ()>)> FIX FLATSIZE> .R>)>> ) (LN )) #DECL ((N) NODE (K) ) ) (ELSE ANY UNPARSE> )>)> FIX UNPARSE> )>> ) (LN )) #DECL ((N) NODE (K) (LN) FIX) ) (ELSE )>> ,KIDS ( ATOM OUTCHAN ()>)>)> CHANNEL TERPRI> ,CRLF> ATOM) (ELSE FALSE)> .R>)>> ) (LN )) #DECL ((N) NODE (LN) FIX) ) (ELSE > )>> ,KIDS ( ATOM INCHAN ()>)>)> CHANNEL > )>> ) (OB <1 .K>) (CH <2 .K>) (RT >) (PCOD ,PRINTERS>>) DAT CDAT) #DECL ((N OB CH) NODE (K) (PCOD) FIX (DAT CDAT) DATUM) ) (ELSE DONT-CARE)>>> 3) (<==? .RT STRING> 6) (<==? .RT CHARACTER> 9) (ELSE 0)> .PCOD>> ,AC-A> <==? ,AC-A> <==? ,AC-B> <==? ,AC-B>> ATOM> >> ) (ELSE ,AC-C)> ,AC-D>>>)> >> <==? .PCOD 12>> .RT) (ELSE ,AC-C)> ,AC-D>>> >> >> .W>>