≡TRLISP
REMFLAG('(!*ARRAY SETEL INOUT SHUT TOKEN),'LOSE);
REMPROP('SCAN,'NEWNAM);
REMPROP('BEGIN,'GO);
ON DEFN;
OUT RED1.LSP;
IN RED1.RED;
END;
≡B
COMPLR
(SETQ IBASE 10.)
(SPECIAL *S* *S1*)
(COMPL (RED1.LSP))

≡T≡B