<mdl.comp>/pcomp.pure.3

   1 PGLUE!-
   2 <SET PURE!- <SET SILENT!- <SET GLUE T>>>
   3 <FLOAD "CMP:PCOMP.LOAD">
   4 <CONNECT-DIR "PS:<CLR>">
   5 <FLOAD "<CLR>CLEAN.MUD">
   6 <USE "CLEAN" "PURITY">
   7 <CLEANUP>
   8 <CONNECT-DIR "SRC:<MDL.COMP>">
   9 <PROG ((FOO ,PURELST) (OUTCHAN <OPEN "PRINT" "FOO.OUT">))
  10         <GROUP-PURIFY FOO>
  11         <UNASSIGN <REMOVE FOO>>
  12         <FLUSH-CLEANUP>
  13         <KILL:PURITY>>