TATOM ATOM IN-PRINT ANY OUT-PRINT ANY IN-BREAK ANY OUT-BREAK ANY TPRINTER ATOM> % SETG % % CANT-TRACE!-ERRORS ERROR NO-VALUE!-ERRORS BAD-TRACE-SPECIFICATION!-ERRORS TFUNCT ANY TARGS TUPLE TVALUE % UNWIND EVAL % OUTCHAN CHANNEL LERR!-INTERRUPTS FRAME FRESH-LINE CHANNEL-OP INDENT-TO "IN: " PRINC PRIN1 IN-BREAK LISTEN "OUT: " " => " OUT-BREAK "% "ARGS" LIST) 0]> LIST) 240]> > "TUPLE" ANY) 1540]> > )> > > )>