PGLUE!- 
<SET PURE!- <SET SILENT!- <SET GLUE T>>>
<FLOAD "CMP:PCOMP.LOAD">
<CONNECT-DIR "PS:<CLR>">
<FLOAD "<CLR>CLEAN.MUD">
<USE "CLEAN" "PURITY">
<CLEANUP>
<CONNECT-DIR "SRC:<MDL.COMP>">
<PROG ((FOO ,PURELST) (OUTCHAN <OPEN "PRINT" "FOO.OUT">))
	<GROUP-PURIFY FOO>
	<UNASSIGN <REMOVE FOO>>
	<FLUSH-CLEANUP>
	<KILL:PURITY>>