File r30/mkred2.mic artifact f730a7c3dc part of check-in f16ac07139

@RUN LISP
*Y60 
*12000 600 600 475
*(LOAD RLISP REND ALG1 ALG2 REND2 ENTRY)
*(EXCISE)
*(QUIT)
@SAVE REDUCE