00100 BEGIN "X" 00200 REQUIRE "SALISP" LOAD_MODULE; 00300 EXTERNAL PROCEDURE LISP(INTEGER SIZ); 00500 00600 INTERNAL SIMPLE PROCEDURE QSAI(INTEGER I,J); 00700 OUTSTR(13&10&9&CVS(I)&9&CVS(J)&CVS(I*J)&13&10); 00800 LISP(9000); 00900 END "X";