<USE "CLEAN" "PURITY">
<SNAME "MARC">
<GROUP-LOAD "TVHACK GBIN">
<GROUP-LOAD "BABBLE GBIN">
<CLEANUP>
<PRINT-CLEANUP>
<SET X ,PURELST>
<SETG PATCH <IUVECTOR 30>>
<GROUP-PURIFY X <> ,PWTERM ,SEQ-BITS ,FROBS ,FROB-NAMES ,STATUS-VECTOR ,WINNERS
	,LOSEMSG ,NEWMSG ,COMS ,DCOM ,QTYPES ,CATS ,GIVEUP ,T/F ,MAINT ,MONTHS
	,6BIT ,SWITCH-TABLE ,BIT-TABLE ,SEQ-SYMS ,MAKETYPES ,ORDERS ,OPTBL ,RCOMS
	,MAKERS ,ASKERS ,MREADERS ,READERS ,SPECS ,ONSYMS ,BYSYMS ,TOBRKS ,DBRKS
	,PATCH>
<KILL:PURITY>
<FLUSH-CLEANUP>
<UNASSIGN X>
<REMOVE <UNASSIGN TVHACK>>
<REMOVE <UNASSIGN MCC>>
<UNASSIGN BABBLE>
<GC 0 T>