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