>>>>> ATOM> > >)> )) < COND (<==? .XX T> T) ( >) ( >> CLEAR> !)>) (<==? <2 .XX> REMOVE> EXAMINE> !)>) (<==? <1 .XX> GET-ADVICE> !)>) ( SCOUT> <==? <1 .XX> LOOK-AROUND>> ' !)>) (T < PUTREST .X (' !)>)>) (T )>)>> >

>>> .ATM> >>>>> FORM> )> > .ATM> (NUM N) * C * S *:STRING D * TAG CHR * AO ACT AOP MORE CLEAR >