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