(FILECREATED "27-NOV-82 21:47:40" ("compiled on " {MAXC2}REDUCE.;3) "23-NOV-82 13:16:34" brecompiled ALL in WORK dated "23-NOV-82 13:23:20") (FILECREATED "27-NOV-82 21:42:42" {MAXC2}REDUCE.;3 611773Q changes to: (PROPS (CLR STAT) ( *LSQB* STAT) (%. SWITCH*) (ADDEXP INFIX) (ADDEXP SMACRO) (XMATCH STAT) (XMATCH QUOTE)) (VARS REDUCECOMS) (FNS BEGIN1 CLR CMD MAKEPROGN ADDEXP ADDD ADDF MULTD MULTF QUOTK SUBS2F INITREDUCE XMATCH) previous date: "25-MAY-81 10:25:39" {MAXC2}REDUCE.;1) BEGIN D1 NIL cl ¿i¿h¿`²%o ¿` ¿o ¿¿h¿`¿¿o ¿h(137Q TERPRI 133Q PRIN1 123Q BEGIN1 100Q TERPRI 74Q PRIN1 64Q PRIN1 55Q PRIN1 4 CLOCK) (117Q *MODE 114Q IMODE* 110Q *COMP 105Q DATE* 61Q DATE* 44Q DATE* 40Q IFL* 35Q IPL* 32Q OFL* 27Q OPL* 24Q *ECHO 17Q *INT 12Q TIME1* 7 TIME2*) (130Q "ENTERING LISP..." 71Q ") ..." 52Q "REDUCE 2 (") CCOLLECT D1 (I 2 TEMP2 I 1 TEMP I 0 REST) _hbdbAgð³Qbo ³íAlñ³0hb¿Ao ³BAh b¿b°è@B h b¿°¸@Ah b¿°¬@(126Q \APPEND2 112Q \APPEND2 105Q PACK 74Q READA 66Q \APPEND2 55Q MEMBER 30Q MEMBER 17Q READA) (11Q STOP) (52Q (STOP NIL) 25Q (NIL STOP)) COMPRIX D1 (P 0 COMCHARS) lh¸` ¿` ³9H`h ¸o šHgh °Ï`o ²Äg°¿`ggh ¿`¢h(150Q TERPRIX 135Q \APPEND2 126Q CCOLLECT 100Q MEMBER 64Q \APPEND2 52Q MEMBER 40Q READC 34Q \APPEND2 21Q DELCP 12Q PRINCX) (144Q FNAME* 140Q COMMENT* 123Q %% 120Q * 115Q COMMENT* 110Q CRCHAR* 105Q % 71Q CRCHAR* 57Q % 43Q CRCHAR* 27Q CRCHAR* 16Q CRCHAR* 7 CRCHAR*) (75Q (% % %%) 47Q (%( %))) DELCP D1 (L (0 U)) @gðµ@gðNIL (12Q $ 3 ;) NIL DFPRINT D1 (I 0 U) @ (3 PRINTDEF) NIL NIL FLAG D1 (P 0 J I 1 *S* I 0 L) @ŒdHAiµòh(14Q PUT) NIL NIL FORLOOP D1 (P 13Q ENDFOR P 12Q STARTFOR P 11Q LAB2 P 10Q LAB1 P 7 FNC P 6 FLG P 5 BODY P 4 CONDLIST P 3 INDX P 2 INCR P 1 EXP P 0 CURS) êÀ_¿g Ydgð²(dgð²¿hIgII hŠo ²5IY[lñ³*Kdd¥d¡’¿°hg »I YµL’±ægi h“i¾°&`dgð²¿i º`gð³&°Õgð³LgKIhOhh ¼I°kº_¿_¿I_¿LgKIh ¼i Y ]_¿LOggggMKhJhjhgOhhhOhgKgKJhhgOhOh ¼Id¢±ÿp¿i¾±ÿi`gX³<`gð¢±ÿi ½NšOhMg‰MOhL\¿Kh ¿gIL¹gIHgi hIhh½gIH hLggIhh ¼Ih¹°”(740Q ACONC 713Q MKQUOTE 665Q MKEX 662Q XREAD 644Q GENSYM 630Q REMTYPE 620Q ADFORM 606Q PUTD* 571Q MKEX 566Q XREAD 517Q \NCONC2 365Q MKEX 360Q REMCOMMA 355Q XREAD 350Q ACONC 322Q GENSYM 314Q GENSYM 302Q \NCONC2 233Q MKEX 230Q XREAD 201Q SYMERR 162Q REMCOMMA 152Q FLAGTYPE 105Q MEMBER 67Q \NCONC2 16Q XREAD1 5 GENSYM) (726Q MK*SQ 723Q RETURN 705Q SETQ 656Q SIMP 650Q SETQ 634Q PROG 603Q EXPR 555Q DO 552Q CURSYM* 543Q BIN 540Q CURSYM* 476Q GO 461Q PLUS 455Q SETQ 433Q GO 410Q DIFFERENCE 405Q TIMES 402Q LESSP 377Q COND 336Q SETQ 261Q SETQ 252Q *COLON* 242Q UNTIL 237Q CURSYM* 220Q STEP 214Q CURSYM* 175Q FOR 147Q INTEGER 54Q *COMMA* 37Q SETQ 24Q *COMMA* 13Q FOR) (102Q (SETQ EQUAL)) GLOBAL D1 (I 0 U) %`@ ¿@d gð•@ ¿@b°ê(34Q SET 22Q GETTOPVAL 6 \APPEND2) (25Q NOBIND 11Q GLOBALVARS 2 GLOBALVARS) NIL IN* D1 (P 1 ECHO P 0 FL I 0 U) • `¹`¦`¿@²e@dið’¿hƒ Xµ `…g ¿H`¿H ¿`gð¿¿H`ð—`ŽoH`h ¿@b°I¿`´`¤`€hX (222Q RDS 160Q REDERR 121Q BEGIN1 102Q RDS 61Q OPEN 41Q MKFIL) (217Q IFL* 210Q IPL* 204Q CONTL* 177Q IPL* 173Q *ECHO 151Q IPL* 140Q IPL* 134Q IPL* 126Q IPL* 115Q *ECHO 111Q ; 106Q SEMIC* 77Q IFL* 72Q IPL* 66Q IPL* 56Q INPUT 52Q *ECHO 47Q TECHO* 20Q TECHO* 15Q *ECHO 11Q IFL* 5 *ECHO) (145Q "FILE STACK CONFUSION") MKFIL D1 (I 0 U) 0@dlñ gð²@ g@ o (55Q REDERR 45Q PACK 42Q \NCONC2 36Q UNPACK 24Q UNPACK) (27Q %. 13Q CONS) (52Q "INVALID FILE NAME") MKPROG D1 (P 0 X I 1 V I 0 U) 5Ad². Xdlñždgð³dgðªAo b¿g@A(50Q ACONC 11Q REVERSE) (56Q PROG 36Q GO 26Q RETURN) (45Q (RETURN NIL)) MKSETQ D1 (L (1 V 0 U)) g@AhNIL (2 SETQ) NIL OPEN D1 (I 1 V I 0 U) #@A ”@ ¿Agð—@ †@ @(37Q OUTPUT 34Q OUTFILE 27Q INPUT 24Q INFILE 11Q CLOSEF 4 OPENP) (16Q INPUT) NIL OUTDEF D1 (I 3 TYPE I 2 BODY I 1 VARLIS I 0 NAME) é`˜Co ”Bh°'Bgð²gB`B hˆ`Bh b¿h¿Cgð•gAƒgABb¿Co ³2`²do ¿@ ¿o ¿¿B ¿o ¿ho ¿@ ¿o ¿C ¿o ¿B ¿o ¿@CBho ¿¿@Bh ¿o ¿h(345Q TERPRI 341Q PRIN1 331Q PRINTDEF 320Q TERPRI 314Q PRIN1 303Q PUT 274Q PRIN1 264Q PRINTDEF 257Q PRIN1 247Q PRIN1 242Q PRIN1 232Q PRIN1 225Q PRIN1 214Q TERPRI 210Q PRIN1 200Q PRINTDEF 173Q TERPRI 167Q PRIN1 157Q PRIN1 152Q PRIN1 134Q MEMBER 66Q \APPEND2 50Q \APPEND2 13Q MEMBER) (141Q *COMP 115Q LAMBDA 107Q NLAMBDA 102Q FEXPR 75Q COMMENT* 60Q COMMENT* 42Q COMMENT* 34Q PROG 26Q PROG 2 COMMENT*) (336Q ")))" 311Q "(DEFINE (QUOTE (" 271Q "))" 254Q ") (QUOTE " 237Q ") (QUOTE " 222Q "(PUT (QUOTE " 205Q "))" 164Q ") (QUOTE " 147Q "(COMPILE1 (QUOTE " 131Q (SMACRO NMACRO) 10Q (SMACRO NMACRO)) PUTD* D1 (I 3 TYPE I 2 BODY I 1 VARLIS I 0 NAME) Œ@` ¨@`¿`˜Co ”Bh°'Bgð²gB`B hˆ`Bh bhCgð•gAƒgABbCo —@CB@`–@B @@Bhh @(210Q DEFINE 174Q COMPILE1 161Q PUT 152Q MEMBER 107Q \APPEND2 71Q \APPEND2 34Q MEMBER 6 MEMBER) (166Q *COMP 134Q LAMBDA 126Q NLAMBDA 121Q FEXPR 115Q COMMENT* 101Q COMMENT* 63Q COMMENT* 55Q PROG 47Q PROG 23Q COMMENT* 17Q RED\BOOTFNS 13Q RED\BOOTFNS 3 RED\BOOTFNS) (147Q (NMACRO SMACRO) 31Q (SMACRO NMACRO)) RDS D1 (I 0 U) @µi g ”@ o@ (34Q REDERR 22Q INPUT 15Q OPENP 6 INPUT) (12Q INPUT) (27Q "RDS GIVEN CLOSED FILE") READA D1 (I 1 TEMP2 I 0 TEMP F 0 COMCHARS) +PµgbPc@dgð³ïdgð”¿dgð²àh(37Q CCOLLECT) (44Q % 31Q %( 22Q %) 5 STOP) NIL RECIP D1 (L (0 N)) o@×NIL NIL (3 1.0) REMFLAG D1 (P 0 J I 1 *S* I 0 L) @‹dHA µóh(13Q REMPROP) NIL NIL STIME D1 (P 0 X I 0 U) -@ X@l @ HÕ o g h(51Q TERPRI 46Q PRIN1 40Q PRIN1 31Q PRIN1 24Q EVAL 20Q SET 15Q CLOCK 6 EVAL) (43Q MS) (35Q " ") TIMSTAT D1 NIL o(2 SCAN) NIL (6 (STIME (QUOTE TIME2*))) TOKEN D1 (P 0 X) B Xl ð³Hl ð³Hl ð«Hl ð¦Hdl ð–¿¿°Ùl"ð²kgh` hHl!ð’±¨HlAð’± HlBð’±˜HlCð’±HlDð’±ˆHlEð’±€HlFð³yHlGð³sHlHð³mHlIð³gHlJð³aHlKð³[HlLð³UHlMð³OHlNð³IHlOð³CHlPð³=HlQð³7HlRð³1HlSð³+HlTð³%HlUð³HlVð³HlWð³HlXð«HlYð¦HdlZð“¿j°Al0ð³4Hl1ð³.Hl2ð³(Hl3ð³"Hl4ð³Hl5ð³Hl6ð®Hl7ð©Hl8ð¤Hl9ð•ll¿h` (474Q READ 76Q READ 50Q READC 10Q CHCON1 5 PEEKC) (477Q NXTSYM* 471Q REDUCERDTBL 464Q TTYPE* 456Q TTYPE* 73Q REDUCERDTBL 67Q STRING 64Q TTYPE*) NIL TR D1 (I 0 U) g@ (7 EVAL) (2 TRACE) NIL UNTR D1 (I 0 U) g@ (7 EVAL) (2 UNBREAK) NIL WHILSTAT D1 (P 0 BOOL) -i X`gð§gi ¿gHgi h(45Q MKEX 42Q XREAD 26Q SYMERR 6 XREAD) (36Q do 32Q while 22Q WHILE 15Q DO 12Q CURSYM*) NIL WRS D1 (I 0 U) @µi g ”@ o@ (34Q REDERR 22Q OUTPUT 15Q OPENP 6 OUTPUT) (12Q OUTPUT) (27Q "WRS GIVEN CLOSED FILE") *ARRAY D1 (I 0 U) @¡h@g@ ¿@b°é(22Q PUT 17Q MKARRAY) (11Q ARRAY) NIL *EVLIS D1 (I 0 U) 0@°d ¸IµHhZH&¹µíJ(12Q EVAL) NIL NIL *K2F D1 (L (0 U)) @kkhNIL NIL NIL *K2Q D1 (L (0 U)) @kkhkNIL NIL NIL *P2F D1 (L (0 U)) @khNIL NIL NIL *P2Q D1 (L (0 U)) @khkNIL NIL NIL *SD1 D1 (P 0 J I 1 Y I 0 X) &@d Xdj •@HkÕ@A@ddA ¿(41Q *SD1 15Q NEQ2) NIL NIL *T2Q D1 (L (0 U)) @hkNIL NIL NIL ABSF D1 (I 0 U) @ ”@ @(10Q NEGF 3 MINUSF) NIL NIL ACONC D1 (I 1 V I 0 U) @Ah (6 \NCONC2) NIL NIL ADDEXP D1 (L (1 V 0 U)) @ANIL NIL NIL ADD1LIS D1 (I 0 U) @d kÔ@ (13Q ADD1LIS) NIL NIL ADDD D1 (I 1 V I 0 U) Aµ@ •@A A @A (35Q ADDEXP 32Q ADDD 27Q RED 22Q LT 15Q ADDDM 7 DOMAINP) NIL NIL ADDDM D1 (I 1 V I 0 U) ^@lñ³1Alñ³`£@AÔŠ@ A dj h@AÖAÔA Alñ¬@AÖ@Ô@ @AÖ@AÖÔ@AÖ (133Q MKFR 107Q MKFR 64Q MKFR 45Q EQUAL 40Q CPLUS 35Q CMOD 31Q CMOD) (20Q MOD*) NIL ADDF D1 (P 1 Y P 0 X I 1 V I 0 U) ‚@¡AA¡@@ •@A A •A@ @ A ²,@ A @ A H¡I@ H I @ A Ÿ@ @ A A @A (177Q ADDEXP 174Q ADDF 171Q RED 164Q LT 157Q ADDEXP 154Q ADDF 150Q RED 144Q LT 137Q ORDPP 134Q LPOW 130Q LPOW 123Q ADDEXP 117Q MULT 113Q LPOW 100Q ADDF 75Q RED 71Q RED 65Q ADDF 62Q LC 56Q LC 50Q EQUAL 45Q LPOW 41Q LPOW 34Q ADDD 26Q DOMAINP 21Q ADDD 13Q DOMAINP) NIL NIL ADDSQ D1 (P 3 W P 2 Z P 1 Y P 0 X I 1 V I 0 U) Í@ ¡AA ¡@@ k ²A k Ÿ@ A k 0`² `»i¿@ A ¸K‹@ A ¸@ H A H Z@ J A J Yd¥hk @ J ZHk •IJ IH Xdk ³ïIH JH (312Q OVER 307Q QUOTF 302Q QUOTF 273Q EQUAL 265Q GCDF 257Q OVER 251Q EQUAL 243Q MULTF 240Q DENR 234Q DENR 227Q OVER 217Q ADDF 214Q MULTF 211Q NUMR 205Q NUMR 201Q MULTF 176Q DENR 172Q NUMR 165Q OVER 162Q QUOTF 156Q DENR 152Q QUOTF 146Q DENR 141Q GCDF 136Q DENR 132Q DENR 117Q GCDF 114Q DENR 110Q DENR 57Q OVER 53Q ADDF 50Q NUMR 44Q NUMR 37Q EQUAL 33Q DENR 25Q EQUAL 21Q DENR 12Q NUMR 3 NUMR) (124Q *GCD 103Q *GCD 76Q *GCD 66Q *LCM) NIL ADFORM D1 (P 0 X I 2 W I 1 V I 0 U) .B¡hAB ²@ Xdµ@BB B@AB(52Q ADFORM 40Q \APPEND2 22Q PROGCHK 11Q EQUAL) NIL NIL AEVAL D1 (I 0 U) @ (3 REVAL1) NIL NIL APROC D1 (P 3 J I 1 V I 0 U) e@d²adlñ³d¥d¡˜@d¡µFA@ hdg³5dg³-g²â@@@°d[g ¸IµHhZH&¹µéJ(117Q APROC 43Q MKARG) (114Q REVAL 73Q DIRECT 64Q STAT 54Q NOCHANGE) NIL ARB D1 (L (0 U)) @`NIL (7 ARBL* 3 ARBL*) NIL ARLIST D1 (I 1 N I 0 U) Aj ‘h@ @AkÕ (22Q ARLIST 13Q MKARRAY 4 EQUAL) NIL NIL ARRAYFN D1 (P 1 Y P 0 X I 0 U) e @d Xdlñ©¿o ¿ˆg ³>`gð•H „H Y ¬oHh ¿HgI¿HI h ¿@b°¢(134Q *ARRAY 126Q ADD1LIS 117Q PUT 105Q LPRIE 70Q NUMLIS 64Q REVLIS 56Q *EVLIS 37Q DEFP 26Q REDERR) (113Q **ARRAY 47Q SYMBOLIC 44Q *MODE 34Q ARRAY) (75Q "INCORRECT ARRAY ARGUMENTS FOR" 23Q "SYNTAX ERROR") ASSGNL D1 (I 0 U) 6@lñ´ @o ¡h@dlñ @ @ (62Q ASSGNL 47Q ASSGNL 40Q MKQUOTE 17Q MEMBER) NIL (14Q (PTS SETK SETQ)) ATOMLIS D1 (L (0 U)) @hðµ@lñhð´@b°îNIL NIL NIL BEGIN1A0008 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U)) i(2 CMD) (5 PROGRAM*) NIL BEGIN1A0009 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U)) ` h(5 MKEX) (2 PROGRAM*) NIL BEGIN1 D1 (P 0 RESULT) ^g¿`“`«`›`§`£¿`–g ¿`µ 0`° ²õh¿°îd ¹JµIh[I&ºµíK`”h¿`gð’±oi ¢±F`dgð’±\¿`gð’±ï`gð•`h‡oi lñ¢±Q`d’±G¿`³{¿` Xlñ¢±$H’±`’±`’±ÿH¸`gð²1`gð²¿H ¿¿°H²i ¿H` i¿`gð’±þÓH¢±þÎH±þÆ`œ`’±þ¼±þµ`g’±ÿn`dgð“¿±ÿ_ ¿`g¢±þ±ÿMg ¿¿h¿`³(0`°d ¹JµIh[I&ºµíKhh`³Ë`dgð³Àoð’±þ5`gð²)±þ"lñ`ohƒo …`¿i ¿`—`gð—o ¿i¿`²gh Xd• hð±ýÊi¿`§o ¿i±ý¯(1124Q LPRIE 1070Q EVAL 1062Q EVAL 1037Q LPRIE 1013Q COMM1 777Q LPRIE 644Q CLOSEF 614Q TERPRIX 610Q COMM1 563Q DFPRINT 523Q TERPRIX 455Q VARPRI 451Q ASSGNL 441Q TERPRI* 430Q TERPRI 424Q TERPRI 420Q PRIN1 413Q TERPRI 326Q ERRORSET 317Q TERPRIX 256Q BEGIN1A0009 170Q BEGIN1A0008 112Q SINITL 53Q STIME 40Q TERPRI) (1131Q CMSG* 1114Q CMSG* 1110Q *ECHO 1105Q *DEFN 1076Q ERFG* 1055Q PAUSE 1050Q *INT 1044Q ERFG* 1026Q HOLD 1023Q ERFG* 1017Q ERFG* 1006Q PROGRAML* 1003Q PROGRAM* 755Q PROGRAM* 735Q # 732Q PROGRAM* 713Q $EOF$ 707Q PROGRAM* 702Q EOF* 675Q OFL* 672Q OPL* 635Q OPL* 625Q IPL* 621Q EOF* 605Q END 572Q EVAL 567Q KEY* 552Q QUOTE 544Q PROGRAM* 534Q IGNORE 531Q KEY* 514Q *INT 510Q ERFG* 502Q *ANS 464Q SYMBOLIC 461Q *MODE 446Q PROGRAM* 405Q SYMBOLIC 402Q *MODE 374Q ; 371Q SEMIC* 357Q *DEFN 350Q ERFG* 323Q PROGRAM* 312Q *DEFN 306Q PROGRAM* 274Q PROGRAM* 261Q PROGRAM* 243Q PROGRAML* 236Q RETRY 231Q PROGRAM* 221Q END 216Q CURSYM* 205Q *COMMA* 177Q PROGRAM* 153Q END 150Q CURSYM* 144Q ERFG* 137Q *INT 102Q TMODE* 74Q *MODE 67Q INITL* 57Q TMODE* 50Q TIME2* 44Q *TEST 34Q OFL* 30Q IFL* 24Q *INT 20Q *NAT 14Q *ECHO 10Q CURSYM* 5 *SEMICOL*) (1121Q "CONTINUING WITH PARSING ONLY ..." 1034Q "ERROR TERMINATION *****" 774Q "SYNTAX ERROR" 764Q "UNDEFINED" 722Q "EXTRA BEGIN" 252Q (DUMMY.FOR.ERRORSET) 164Q (DUMMY.FOR.ERRORSET)) BLOCKSTAT D1 (P 2 VARLIS P 1 HOLD P 0 X) ~0h`¿¿`o —o ¿i º`gð´g ¿J ¿`¿JI Xgð³ã`dgð¨¿H ¸`gð£¿H²µIH ¹°(171Q ACONC 160Q SCAN 144Q MKEX 115Q XREAD1 111Q MKPROG 73Q REMTYPE 66Q COMM1 46Q DECL 41Q ERROR 31Q MEMBER 16Q SCAN) (153Q END 150Q CURSYM* 135Q *COLON* 131Q CURSYM* 123Q END 103Q BLOCKP* 77Q BLOCKP* 63Q END 55Q END 52Q CURSYM* 22Q CURSYM* 12Q BLOCKP* 6 BLOCKP*) (36Q "EXTRA BEGIN" 26Q (NIL *RPAR*)) CANCEL D1 (I 0 U) @ k k@ (25Q CANONSQ 22Q MULTSQ 17Q OVER 14Q DENR 7 OVER 3 NUMR) NIL NIL CANONSQ D1 (P 0 X I 0 U) ]@ ¥hk @ ²@ @ b¿`¡@@ Xdk ³ñkdjHÖ×Xd@ H@ (132Q OVER 127Q MULTD 124Q DENR 117Q MULTD 114Q NUMR 75Q EQUAL 67Q LNC 64Q DENR 47Q OVER 44Q NEGF 41Q DENR 35Q NEGF 32Q NUMR 24Q MINUSF 21Q DENR 14Q OVER 6 NUMR) (55Q *FLOAT) NIL CARX D1 (I 0 U) @¢@o@h (20Q REDERR) NIL (11Q "MISMATCH OF ARGUMENTS") CLR D1 (I 0 U) ¿@d¦ ¿@b°î(21Q LET2 2 RMSUBS) (14Q MCOND* 11Q FRASC*) NIL COMFAC D1 (P 1 Y P 0 X I 0 P) T @ ¤@ @ ¸@ ¹@ bI j —hH@ @ @ H@ Hk ³ÑH@ ¸°Æ(117Q GCDF1 114Q LC 105Q EQUAL 76Q GCDF1 73Q LC 66Q LPOW 61Q RED 53Q GCDF1 44Q EQUAL 40Q DEG 32Q RED 25Q MVAR 20Q LC 13Q LT 6 RED) NIL NIL COMM1 D1 (I 0 U) *@gð³`gð³@gðœ`o ‘h¿°à(45Q SCAN 37Q MEMBER) (30Q CURSYM* 23Q END 14Q *SEMICOL* 11Q CURSYM* 3 END) (34Q (END ELSE UNTIL *RPAR*)) CMD D1 NIL `h (17Q REFORM 14Q XREAD1 2 SCAN) (10Q KEY* 5 CURSYM*) NIL CONT D1 (P 0 FL) R`³I`µ o ¿`X``H`ð˜H °i¿Hoh ¿h h(116Q ERROR 111Q LPRIM 67Q RDS 23Q REDERR) (75Q EOF* 64Q IFL* 55Q IPL* 51Q CONTL* 44Q CONTL* 41Q *ECHO 34Q CONTL* 27Q CONTL* 12Q CONTL* 5 IFL*) (103Q "NOT OPEN" 20Q "NO FILE OPEN") DECL D1 (P 2 VARLIS P 1 W P 0 V I 0 U) 0`dgð’¿°:g¡J`¹gð´ I XJ º`gð¥hi ¿@•¿°¸Jg ¿J ¿gJ g hhb¿J¥h@ gJ hh@b¿JZ°ä(177Q MKQUOTE 166Q MKPROG 146Q MKQUOTE 140Q MKQUOTE 130Q GLOBAL 123Q FLAG 111Q SCAN 103Q SYMERR 65Q \APPEND2 60Q FLAGTYPE 54Q REMCOMMA 51Q XREAD1 45Q PROCSTAT 34Q SCAN) (172Q PTS 143Q SHARE 134Q FLAG 120Q SHARE 74Q *SEMICOL* 71Q CURSYM* 37Q PROCEDURE 30Q CURSYM* 21Q TYPE 11Q *SEMICOL* 5 CURSYM*) NIL DECSTAT D1 NIL `´ o (17Q DECL 13Q SYMERR) (2 BLOCKP*) (10Q "SYNTAX ERROR") DEFP D1 (P 0 W I 1 V I 0 U) R@lñ«@d¥d¡—o ¿`X¡h@H£H°ôH¸A²@oHhb¿AHð”@ ƒ@ H(116Q LPRIE 111Q LPRIM 33Q REDERR) (37Q DEFL*) (71Q "ALREADY DEFINED AS" 30Q "SYNTAX ERROR") DEFSTAT D1 (P 2 Z P 1 Y P 0 X) e0Xdg–¿hJ gð³ëHlñ³¿IH i h ¹`gð²5gð³ÃIid h ¹gI` §gi ¿H `³ãIo°Ø(164Q IFLET 157Q SYMERR 147Q MEMBER 132Q ACONC 124Q MKEX 121Q XREAD1 105Q SCAN 70Q ACONC 62Q MKEX 57Q XREAD 53Q MKEX 32Q REMFLAG 20Q XREAD 13Q FLAG) (170Q BLOCKP* 153Q IF 144Q LETL* 136Q COND 110Q IF 77Q ELSE 74Q CURSYM* 42Q THEN 36Q CURSYM* 27Q DELIM 24Q LETL* 10Q DELIM 5 LETL*) (177Q (T NIL)) INFIX D1 (I 0 X) 9`gð²0@°d ¸IµHhZH&¹µíJ@ ` h(65Q MKPREC 57Q \APPEND2 51Q REVERSE 23Q MKOP) (62Q PRECLIS* 54Q PRECLIS* 5 ALGEBRAIC 2 *MODE) NIL INPRINT D1 (I 2 L I 1 P I 0 OP) [@g«BA ¿Bb¿Bd lñ›@dBgð‘ƒ@ ¿BA ¿`²Ö@gð²Ï`kÕ¿``ó²½`°´(62Q MAPRINT* 53Q OPRIN 13Q MAPRINT*) (127Q YMIN* 124Q YCOORD* 116Q YCOORD* 113Q YMIN* 107Q YCOORD* 102Q YCOORD* 74Q EXPT 66Q *NAT 43Q ALT 3 ALT) NIL INRAY D1 (P 1 Y P 0 X I 1 V I 0 U) ! @X ¹@A ¿HI ¿HI ´°í(32Q NEQ2 24Q *SD1 16Q SETEL 10Q \APPEND2) NIL NIL INVSQ D1 (I 0 U) @ §o @ (23Q CANONSQ 20Q REVPR 13Q REDERR 3 NUMR) NIL (10Q "ZERO DENOMINATOR") KERNLP D1 (I 0 U) @ ‘@@¦@b°òh(3 DOMAINP) NIL NIL KERNP D1 (I 0 U) A@ k ´7@ lñhðhð´)@lñhðhð´@hð´@k ´@k (76Q EQUAL 63Q EQUAL 15Q NUMR 7 EQUAL 3 DENR) NIL NIL KLISTT D1 (I 0 U) @dlñ¡h@ (22Q KLISTT 16Q CARX) NIL NIL LAMSTAT D1 (P 1 Y P 0 X) < `gð¨oi ¿g Xdd’ Xg gHi hYH I(70Q REMTYPE 57Q XREAD 47Q FLAGTYPE 40Q REMCOMMA 31Q XREAD 22Q SYMERR) (52Q LAMBDA 44Q SCALAR 26Q LAMBDA 10Q SYMBOLIC 5 *MODE) (16Q "ALGEBRAIC") LC D1 (L (0 U)) @NIL NIL NIL LDEG D1 (L (0 U)) @NIL NIL NIL LET D1 (I 0 U) @ (3 LET0) NIL NIL LET0 D1 (I 1 V I 0 U) /@§h@ ¨@g @@Ai¿@b°Õ(46Q LET2 27Q ERRPRI2 16Q EQEXPR) (24Q HOLD 10Q MCOND* 5 FRASC*) NIL LET1 D1 (I 1 V I 0 U) @Ahi(6 LET2) NIL NIL LET2 D1 (P 3 Z P 2 Y P 1 X P 0 FLG I 3 B I 2 W I 1 V I 0 U) ß@@dlñ²c¿`²\0`d¼MµLh^L&½µïN@ X²6@lñ´‚±t`@ b¿AgðœAAhhb¿`A b¿@Yd¥d¡’±:`Zµ+Ilñ²UIlñ³Idd¥d¡¢±“¿@g Ih [©JAh ²JgIAJgCKh J°¥C³uIg ¿Ig ¿Ig ¿Ig ¿Ig ¿IgZ–IJ ¿hgJ “¿JAChg’±œIdgð²k¿@ABIC ’±WI Y k ´‚±SI ¹B³jH³gI ³aI ³[I k ³QI k ³G`³GI Zlñ’±ÿ|Jdg²„¿±ÿ|gZ–@AJIdg³‘g ¿I ±þš`´ib¿h¿I Zµ`´‚±ÅIk Y´‚±¹±ÿkk ŸI ¹gAhb¿ˆJk ’±”¿I ¹B`µiAhhºIžIJ`@CB¨Ik ³SAj ²B³!H¯I`@C¿°5BªJið”`²IJ`@C¿°IIJ`@ChIYdlñª¿h¿@ gIJIg@CIi A h(1333Q SETEL 1327Q REVOP 1321Q PUT 1316Q XADD 1272Q ERRPRI1 1241Q XADD 1212Q XADD 1153Q XADD 1132Q EQUAL 1123Q EQUAL 1106Q XADD 1050Q KLISTT 1043Q RMSUBS 1034Q NEQ2 1013Q NEGF 1006Q EQUAL 1003Q MINUS 765Q MKSFPF 744Q KERNLP 717Q MKOP 711Q REDMSG 670Q LETMTR 626Q MVAR 613Q NEQ2 607Q LDEG 601Q NEQ2 575Q LC 567Q RED 561Q DOMAINP 546Q NUMR 534Q EQUAL 530Q DENR 524Q SIMP0 514Q LETDF 456Q SETK1 447Q RMSUBS 443Q ASSOC 437Q FKERN 426Q RMSUBS 422Q INRAY 404Q REMPROP 374Q REMPROP 364Q REMPROP 354Q REMPROP 344Q REMPROP 325Q APPLY 272Q APPLY 260Q APPLY 250Q ERRPRI2 147Q SUBLA 110Q SUBLA 63Q INTERSECTION 60Q FLATTEN) (1310Q OPMTCH 1277Q OPMTCH 1265Q EXPTP* 1244Q POWLIS* 1234Q POWLIS* 1215Q POWLIS1* 1205Q POWLIS1* 1174Q FRASC* 1156Q ASYMPLIS* 1146Q ASYMPLIS* 1111Q *MATCH 1101Q *MATCH 1055Q MCOND* 1017Q MINUS 752Q *SUPER 737Q EXPTP* 725Q EXPTP* 706Q OPERATOR 677Q SIMPFN 657Q MATRIX 644Q USED* 620Q EXPTP* 477Q DF 464Q **ARRAY 433Q USED* 411Q **ARRAY 401Q MATRIX 371Q KLIST 361Q APROP 351Q OPMTCH 341Q AVALUE 311Q NAME 301Q LETFN 245Q HOLD 175Q TYPL* 143Q FRASC* 121Q *SQ 104Q FRASC* 26Q FRASC* 16Q FRASC*) NIL LETDF D1 (P 0 Z I 4 B I 3 X I 2 W I 1 V I 0 U) ïC ¥C³Cdd¥d¡—¿@ h ¢±©C ´C ´CC ¡hCC ¸Cdg³ghC ¿Cgb¿B•Hj ”@ Hk ³ D²(Bdž¿oCo¿BCABb¿HkÕ¸°ÅBd«¿hCo¿BhCg ¿C ¿±ÿG(351Q MKOP 341Q REDMSG 322Q MESPRI 257Q MESPRI 231Q NEQ2 223Q ERRPRI1 216Q EQUAL 173Q PUT 170Q NLIST* 165Q LENGTH 133Q LPOS 115Q MEMBER 100Q FRLP 70Q FRLP 55Q DEFP 44Q ERRPRI1 10Q ATOMLIS) (336Q OPERATOR 203Q DFN 155Q DFN 144Q DFN) (317Q "NOT FOUND" 254Q "REDEFINED" 247Q "ASSIGNMENT FOR") LLENGTH D1 (I 0 N) @ @(3 LINELENGTH) (7 LLENGTH*) NIL LNC D1 (I 0 U) @µ o ‘@@ b°ê(24Q LC 15Q DOMAINP 11Q ERRACH) NIL (6 "MINUSF") LPOS D1 (I 1 V I 0 U) @dAð‘kA kÔ(14Q LPOS) NIL NIL LPOW D1 (L (0 U)) @NIL NIL NIL LPRI D1 (I 0 U) @¡h@ ¿o ¿@b°ë(20Q PRIN1 10Q PRIN1) NIL (15Q " ") LPRIE D1 (P 0 X I 0 U) -`¨`¸h¿i¿¿o@ ¿`£Hh(40Q LPRIW 27Q TERPRI) (51Q *DEFN 44Q *INT 23Q ERFG* 16Q *DEFN 11Q *DEFN 5 *INT) (34Q "*****") LPRIM D1 (I 0 U) o@ (7 LPRIW) NIL (3 "***") LPRIW D1 (P 0 X I 1 V I 0 U) S¿@Addlñ““Ah€Ab¿`ž`³#`²`³@ ¿¿Hµ`d¨ h`¸h ¿°à(116Q WRS 104Q WRS 67Q TERPRI 63Q LPRI 5 TERPRIX) (111Q OFL* 76Q OFL* 55Q *DEFN 50Q *NAT 43Q *FORT 37Q OFL*) NIL LSTCHR D1 (I 1 V I 0 U) @d¥hA@A hh(20Q LSTCHR) NIL NIL LT D1 (L (0 U)) @NIL NIL NIL LT* D1 (P 1 Y P 0 X I 0 P) 8`¦@ jó’@ @ ¸@ ¹@ bµHI j ²îIj@ (65Q MULT 54Q EQUAL 50Q DEG 36Q RED 31Q MVAR 24Q LT 7 LDEG) (2 *MCD) NIL MAPCONS D1 (L (1 *S* 0 U)) @@°d»AK¸IµHhZH&¹µìJNIL NIL NIL MAPPEND D1 (P 3 J I 1 *S* I 0 U) !@@°d»AK ¸IµHhZH&¹µêJ(15Q \APPEND2) NIL NIL MAPRIN D1 (I 0 U) @j (4 MAPRINT*) NIL NIL MAPRINT* D1 (P 1 Y P 0 X I 1 P I 0 L) Ò @d¢±Êdlñ²_”@ @dlñ–A °gXµa@gXµ/@ ¿o ¿h¿@™gj@¿i¿o @h dd¥d¡²œ¿j@ó²•o ¿@ °ÐAóhðb²#`¹o ¿l`ó“`…`lÔ¿@H@¿A´o ¿Ih(311Q PRINC* 276Q INPRINT 240Q PRINC* 213Q PRINC* 206Q PRINC* 153Q APPLY 143Q PRINC* 126Q INPRINT 104Q PRINC* 74Q PRINC* 44Q MAPRINT* 26Q PRINC*) (316Q ORIG* 265Q ORIG* 257Q ORIG* 253Q POSN* 246Q POSN* 230Q ORIG* 133Q OBRKP* 120Q *COMMA* 111Q OBRKP* 63Q SPECPRN 52Q INFIX) (306Q ")" 235Q "(" 203Q "(" 140Q ")" 101Q "(") XMATCH D1 (I 0 U) @i (4 LET0) NIL NIL MATHPRINT D1 (I 0 L) i @ i h(13Q TERPRI* 7 MAPRIN 3 TERPRI*) NIL NIL MCHARG D1 (P 1 N P 0 M I 2 W I 1 V I 0 U) @¥A£hhBdg—¿@ABg–@AB @ ¸A ¹A ²KHI ³ Il «Bg´lHó‘hB@ b¿A0@°d ºKµJh\J&»µíL hHI ³Ì@Ahh(215Q MCHARG2 203Q NEQ2 173Q PAIR 146Q EMTCH 126Q MKBIN 102Q NEQ2 72Q EQUAL 63Q MTP 56Q LENGTH 51Q LENGTH 41Q MCHASARG 25Q MCHSARG) (107Q NARY 31Q ANTISYMMETRIC 14Q SYMMETRIC) NIL MCHARG2 D1 (P 1 Z P 0 Y I 2 W I 1 V I 0 U) 8 @µBA ¸@b¿Ab¿H¡I@HA BH I ¹HX°å(60Q \NCONC2 54Q MCHARG2 51Q MAPPEND 43Q SUBLA 15Q MCHK) NIL NIL MCHASARG D1 (I 2 W I 1 V I 0 U) o (6 REDERR) NIL (3 "NOT YET IMPLEMENTED") MCHK D1 (I 1 V I 0 U) Z@A “hhAlñ³A` ´@A@hh@dlñ³!d¥d¡´$j@ó´g@ hb°ºAð´@A@(127Q MCHARG 101Q MINUS 27Q MEMBER 4 EQUAL) (75Q MINUS 24Q FRLIS*) NIL MCHSARG D1 (P 7 J P 3 Z P 2 Y P 1 N P 0 M I 2 W I 1 V I 0 *S*) }@@ ¸A ¹A ²JIl ªBg´IHó‘hB@ b¿0A °dO@ ¼MµLh^L&½µæN HI ³Å@ ZµKAhhK »J°ì(166Q \NCONC2 162Q MCHARG2 145Q PERMUTATIONS 137Q NEQ2 131Q REVERSE 103Q PAIR 66Q PERMUTATIONS 53Q MKBIN 30Q NEQ2 20Q MTP 13Q LENGTH 6 LENGTH) (35Q NARY) NIL MESPRI D1 (P 1 Z P 0 NAT1 I 4 Y I 3 X I 2 W I 1 V I 0 U) £ D¥`¡h`¸h¿`—`³uH²rD¤oƒo@ddlñ““@h€@ ¿A ¿o ¿Bddlñ““Bh€B ¿C ¿¿Iµ`µ!H¿Dd²gð´D¿° ¿°æ`¹h ¿°‡ ¿±ÿj(235Q ERROR 227Q WRS 214Q WRS 152Q TERPRI 146Q MAPRIN 141Q LPRI 114Q PRIN1 104Q MAPRIN 77Q LPRI) (222Q OFL* 206Q ERFG* 177Q HOLD 167Q *NAT 161Q OFL* 32Q *FORT 26Q OFL* 22Q *NAT 15Q *NAT 7 *MSG) (111Q " " 52Q "*****" 45Q "***") MINUSF D1 (I 0 U) #@d lñ£j@ó@dlñ¥¿j@ó b°á(35Q LC) NIL NIL MK*SQ D1 (I 0 U) )@ ¡j@ lñ@ k ”@ g@`(34Q NUMR 27Q EQUAL 23Q DENR 12Q NUMR 3 NUMR) (44Q *SQVAR* 40Q *SQ) NIL MKARG D1 (I 0 U) [@d²Wdlñª ‘@@ dgš¿`g²ê@gð³ä@dgð³Ú¿g0@°d ¸IµHhZH&¹µíJ(105Q MKARG 23Q MKQUOTE 14Q PROGVR) (72Q LIST 63Q GTS 52Q QUOTE 42Q QUOTE 37Q KEY1* 31Q NOCHANGE) NIL MKARRAY D1 (I 0 U) @d @ (11Q ARLIST) NIL NIL MKBIN D1 (I 1 V I 0 U) A£@A@A@A h(20Q MKBIN) NIL NIL MKEX D1 (I 0 U) `gð‘@@g (20Q APROC) (15Q AEVAL 5 SYMBOLIC 2 *MODE) NIL MKFR D1 (I 1 V I 0 U) D@j ‘h`—kj@ÖA×jAóž@ A b¿b°Ü@A !@H×AH×º¹Jk ‘IIJ(73Q EQUAL 53Q GCDN 37Q MINUS 33Q MINUS 4 EQUAL) (12Q *FLOAT) NIL MKOP D1 (I 0 U) W@dd¥d¡¥dlñšoh §o @g ‘h@` ²o@oh @gg(124Q PUT 111Q REDERR 67Q MEMBER 55Q DEFP 45Q REDERR 34Q REDERR) (121Q IDEN 116Q SIMPFN 64Q FRLIS* 52Q OPERATOR) (102Q "CANNOT BE ARBITRARY" 75Q "OPERATOR" 42Q "LOCAL VARIABLE USED AS OPERATOR" 26Q "CANNOT BE AN OPERATOR") MKPREC D1 (P 2 Z P 1 Y P 0 X) :0gg`¸k¹Hd gI¿HgZµ H¸IkÔ°ãgI¿°ð(65Q PUT 34Q PUT) (61Q INFIX 42Q UNARY 30Q INFIX 13Q PRECLIS* 10Q SETQ 5 *COMMA*) NIL MAKEPROGN D1 (P 0 LST) #Hi ¸`gð²í¿gH(32Q SCAN 15Q ACONC 12Q MKEX 7 XREAD) (36Q PROGN 24Q *RSQB* 21Q CURSYM*) NIL MKQUOTE D1 (L (0 U)) g@hNIL (2 QUOTE) NIL MKSFPF D1 (P 0 X I 1 N I 0 U) rjAóª@ •@A @dlñ¿k@A lñ³@A @A Ak £`¨@A @` Hµ@A Aó³ôh(150Q *P2F 145Q MKSP 132Q SASSOC 122Q *P2F 117Q MKSP 105Q EQUAL 77Q OVER 74Q EXPT 71Q MINUS 63Q EXPT 60Q MINUS 42Q OVER 37Q EXPT 34Q MINUS 15Q EXPTF1 7 KERNLP) (127Q ASYMPLIS* 111Q SUBFG*) NIL MKSP D1 (I 1 P I 0 U) @ A (7 GETPOWER 3 FKERN) NIL NIL MKSPM D1 (P 0 X I 1 P I 0 U) KAj ‘k`™@` Xµ,@` ³@dgð²dgð–¿i¿@A Aó³Óh(101Q TO* 37Q ASSOC 25Q ASSOC 4 EQUAL) (73Q SUB2* 64Q QUOTIENT 50Q EXPT 34Q POWLIS* 22Q ASYMPLIS* 15Q SUBFG*) NIL MKSQ D1 (P 2 Z P 1 Y P 0 X I 1 N I 0 U) Á0`¢±…@` YžgAIÖ Y¡I@dlñ²,lñ¬@dg Zµzg@ X ³Ho gZµ^@hg ¿Ak ³"@` Zµ1@` ZœjAJÖó¤i¿Hµ@ XA k ¸IµHAó³Îhk H Z XA (276Q EXPTSQ 271Q SIMPCAR 263Q MULTSQ 256Q OVER 236Q OVER 232Q *P2F 227Q GETPOWER 222Q FKERN 174Q SASSOC 162Q SASSOC 151Q EQUAL 143Q FLAG 122Q ACONC 110Q ASSOC 103Q FKERN 71Q SASSOC 34Q MKSQ 20Q SASSOC) (212Q SUB2* 171Q POWLIS* 157Q ASYMPLIS* 140Q USED* 126Q AVALUE 77Q USED* 65Q KVALUE 25Q K* 15Q WTL* 5 SUBFG*) (117Q (USED*)) MODESTAT D1 (P 0 X) 0`dgð“¿gXg–Hhð`Hh (55Q XREAD1 23Q SCAN) (51Q *MODE 45Q TMODE* 42Q *MODE 34Q *MODE 26Q DELIM 17Q SYMBOLIC 11Q LISP 5 CURSYM*) NIL MTCHK D1 (P 5 Z P 4 Y P 3 X P 2 W P 1 V1 P 0 FLG I 1 V I 0 U) š`@ ¸AµMYZ²x@JII[µH²`I²]I ³S°YJI KI KI KJ Ih\—LM½K°°KI ²ðLhJ°‰MIh ½Ab±ÿt(220Q \APPEND2 177Q EVAL 174Q SUBLA 135Q SUBLA 126Q SUBLA 115Q SUBLA 105Q SUBLA 102Q DELETE 66Q NOCP 41Q MTCHP1 7 NONCOMP) NIL NIL MTCHP D1 (P 0 X I 4 BOOL I 3 FLG I 2 W I 1 V I 0 U) H@ACDXd D £H°ñ@HA Õb¿HB b¿Aj š@A B B(103Q MULTPQ 77Q TO* 70Q NEQ2 60Q SIMP 55Q SUBLA 43Q SUBLA 25Q EVAL 22Q SUBLA 11Q MTCHP1) NIL NIL MTCHP1 D1 (P 0 X I 3 BOOL I 2 FLG I 1 V I 0 U) Z@A “hh@A X¡hA` ™HA@ B˜@A ´ã`•@A°j@AÖó³Ï@ A ýó³ÁH(122Q ABS 115Q ABS 63Q EQUAL 51Q MAPCONS 37Q MEMBER 23Q MCHK 7 EQUAL) (70Q *MCD 34Q FRLIS*) NIL MTP D1 (I 0 V) "@hðµ@` ´@@ hð´@b°ã(25Q MEMBER 14Q MEMBER) (11Q FRLIS*) NIL MULT D1 (L (1 V 0 U)) @ANIL NIL NIL MULTD D1 (I 1 V I 0 U) *Ad •@A A @A @A (47Q ADDEXP 44Q MULTD 41Q RED 34Q MULT 31Q MULTD 26Q LC 21Q LPOW 14Q MULTDM 6 DOMAINP) NIL NIL MULTDM D1 (I 1 V I 0 U) R@lñ³.Alñ³`£@AÖ@ A dj h@AÖA Alñ©@AÖ@ @AÖ@AÖ (117Q MKFR 101Q MKFR 61Q MKFR 45Q EQUAL 40Q CTIMES 35Q CMOD 31Q CMOD) (20Q MOD*) NIL MULTF D1 (P 1 Y P 0 X I 1 V I 0 U) @´A¡h@k ‘AAk ‘@@ •@A A •A@ `³`³H³@k b¿Ak b¿i¸°´@ ¸A ¹`›H ³~I ³UHdIð²I@ A Ô ¸@ hA @ A ¹H²:@ A b²+`³aHk ²P@°RI ³%@A ¸@A ¹H¡IA H I @ A ¸@ A ¹H²Þ@ H I H@hI H@ I (425Q ADDEXP 421Q MULT 413Q ADDF 401Q ADDEXP 375Q MULT 371Q LPOW 361Q MULTF 355Q RED 350Q MULTF 344Q LC 337Q ADDEXP 333Q MULT 327Q LPOW 316Q MULTF 313Q RED 305Q MULTF 302Q LC 273Q ORDOP 262Q EQUAL 244Q MULTF 241Q LC 235Q LC 225Q ADDF 222Q MULTF 216Q RED 212Q MULTF 207Q RED 201Q LT 174Q MKSPM 170Q LDEG 164Q LDEG 150Q NONCOMP 142Q NONCOMP 131Q MVAR 124Q MVAR 111Q MKSFPF 101Q MKSFPF 56Q MULTD 50Q DOMAINP 43Q MULTD 35Q DOMAINP 26Q EQUAL 16Q EQUAL) (253Q *MCD 135Q NCMP* 67Q NCMP* 62Q *EXP) NIL MULTPF D1 (I 1 V I 0 U) @ A (7 MULTF 3 *P2F) NIL NIL MULTPQ D1 (I 1 V I 0 U) @ A (7 MULTSQ 3 *P2Q) NIL NIL MULTSQ D1 (P 1 Y P 0 X I 1 V I 0 U) z@ ´A ¥hk @ k ²A k Ÿ@ A k A @ X@ A Y@ H A I @ I A H (167Q OVER 164Q MULTF 161Q QUOTF 155Q DENR 151Q QUOTF 145Q DENR 141Q MULTF 136Q QUOTF 132Q NUMR 126Q QUOTF 122Q NUMR 115Q GCDF 112Q NUMR 106Q DENR 101Q GCDF 76Q NUMR 72Q DENR 62Q OVER 56Q MULTF 53Q NUMR 47Q NUMR 42Q EQUAL 36Q DENR 30Q EQUAL 24Q DENR 17Q OVER 11Q NUMR 3 NUMR) NIL NIL MVAR D1 (L (0 U)) @NIL NIL NIL ND D1 (I 1 V I 0 U) @ A (7 DENOM 3 NUMER) NIL NIL NEGF D1 (I 0 U) k @ (7 MULTD 3 MINUS) NIL NIL NEGSQ D1 (I 0 U) @ @ (15Q OVER 12Q DENR 6 NEGF 3 NUMR) NIL NIL NEQ2 D1 (L (1 V 0 U)) @A hð(4 EQUAL) NIL NIL NEWTOK D1 (P 3 Z P 2 Y P 1 X P 0 V I 0 U) ©@@¸@bZgY²oJºJ²yI©IJH h° JI [—JºK¹°áIdJH h ¿@ ¹HŸHd–H…IIdhºHgJ¿HgYd—gJhJgJH °·`ž@ oh ¿IH°Ÿ(241Q LPRIM 227Q PACK 215Q PUT 211Q LSTCHR 175Q PUT 154Q PUT 111Q PACK 103Q \APPEND2 76Q LSTCHR 54Q ASSOC 41Q LSTCHR) (222Q *MSG 204Q SWITCH* 171Q PRTCH 162Q UNARY 150Q PRTCH 16Q SWITCH*) (233Q "REDEFINED") NEWVAR D1 (I 0 U) g@ (12Q PACK 6 UNPACK) (2 &) NIL NLIST* D1 (I 1 N I 0 U) Aj ‘h@dAkÕ (17Q NLIST* 4 EQUAL) NIL NIL NOCP D1 (I 0 U) @hðµ@ ´@b°ð(12Q NONCOMP) NIL NIL NONCOMP D1 (L (0 U)) @lñhðhð´@gNIL (17Q NONCOM) NIL NORLIS D1 NIL h (3 RLIS1) NIL NIL NTH2 D1 (I 1 N I 0 U) @§o Ak ’@@AkÕb¿b°ä(16Q EQUAL 10Q REDERR) NIL (5 "ELEMENT OUT OF BOUNDS") NUM D1 (I 0 U) @ k (15Q MK*SQ 12Q OVER 6 NUMR 3 SIMP*) NIL NIL NUMER D1 (I 0 U) o @` k (26Q LET1 23Q MK*SQ 15Q SIMP 6 LPRIM) (12Q *ANS) (3 "PLEASE USE NUM INSTEAD") NUMLIS D1 (L (0 U)) @hðµ@d¥d¡´@b°êNIL NIL NIL NUMR D1 (L (0 U)) @NIL NIL NIL OFFSTAT D1 NIL h (3 ON1) NIL NIL ON1 D1 (P 2 Z P 1 Y P 0 X I 0 U) j0h Xd¤J lñ³CHdd¥d¡³5¿g H @ Jº@Hg YµH°ºJ º°öHoh ¿°ç(145Q LPRIE 126Q \APPEND2 112Q ASSOC 75Q MKSETQ 71Q PACK 66Q \APPEND2 63Q UNPACK 56Q UNPACK 20Q MKPROG 11Q REMCOMMA 6 XREAD) (106Q SIMPFG 53Q *) (137Q "INVALID ARGUMENT") ONSTAT D1 NIL i (3 ON1) NIL NIL OPMTCH D1 (P 1 Y P 0 X I 0 U) I @g¸`¨H´ihH´þ@H@YµHX°îH šIH I°Þ(102Q SUBLA 67Q EVAL 64Q SUBLA 43Q MCHARG) (24Q SUB2* 14Q SUBFG* 7 OPMTCH) NIL OPRIN D1 (P 0 X I 0 OP) c@gH¤@ `–H `²`²@o ši H h`²!@gð²`kÔd`ó´æ`¿°ÜH (140Q PRINC* 65Q PRINC* 60Q TERPRI* 53Q MEMBER 30Q PRINC* 15Q PRINC*) (130Q YMAX* 125Q YCOORD* 117Q YMAX* 113Q YCOORD* 106Q YCOORD* 100Q EXPT 72Q *NAT 41Q OBRKP* 34Q *LIST 21Q *FORT 3 PRTCH) (50Q (PLUS MINUS)) OPSTAT D1 (P 11Q J P 5 *S* P 1 Y P 0 X) Ô `Xh Y`gð²hgI g hh Hg ²0Igð’IH0Ih°d ºKµJh\J&»µíL`g ´N`g´E`g h@ I°'d_¿gO Mdh¾OµNh_N&_¿µÚO gI ohh (321Q MKPROG 304Q MKQUOTE 274Q MKPROG 233Q MKQUOTE 204Q MKQUOTE 157Q NEQ2 122Q MKARG 66Q NEQ2 56Q MKPROG 45Q MKQUOTE 37Q MKQUOTE 15Q REMCOMMA 12Q XREAD) (300Q MAPCAR 226Q PUT 200Q FN 175Q KEY* 167Q FN 164Q KEY* 154Q OPERATOR 151Q KEY* 77Q PROG 63Q OPERATOR 42Q OPFN 33Q FLAG 24Q SYMBOLIC 21Q *MODE 5 CURSYM*) (310Q (FUNCTION MKOP)) ORD2 D1 (I 1 V I 0 U) @A •@AhA@h(4 ORDP) NIL NIL ORDAD D1 (I 1 U I 0 A) A£@h@A “@AA@A (30Q ORDAD 13Q ORDP) NIL NIL ORDN D1 (I 0 U) @d ¡@@d§@ @ (35Q ORDAD 32Q ORDN 23Q ORD2) NIL NIL ORDOP D1 (P 0 X I 1 V I 0 U) !`X¥@A @Hð‘iAHð‘hH°è(14Q ALPHORDER) (5 PRIN*) NIL ORDP D1 (I 1 V I 0 U) r@£AhðA¡i@lñ³@d²7dið™¿h h X` ³Hg ¿H`¿H h(72Q WRS 51Q OPEN 40Q MEMBER 31Q MKFIL 23Q WRS) (67Q OFL* 62Q OPL* 56Q OPL* 46Q OUTPUT 35Q OPL* 20Q OFL*) NIL OVER D1 (L (1 V 0 U)) @ANIL NIL NIL PAIR D1 (I 1 V I 0 U) '@¥A¡h@‘Ao@Ah @A@A (43Q PAIR 26Q REDERR) NIL (15Q "MISMATCH OF ARGUMENTS") PAUSE D1 NIL :`´5`˜`”hg ³```¿`¿h h(66Q RDS 27Q YESP) (63Q IFL* 56Q *ECHO 53Q TECHO* 47Q CONTL* 42Q CONTL* 37Q *ECHO 34Q IFL* 24Q CONT? 20Q SOS* 13Q CLOC* 7 ERFG* 2 IFL*) NIL PERMP D1 (I 1 V I 0 U) '@µiAðš@Ab¿b°î@A@A hð(42Q PERMP 37Q SUBST) NIL NIL PERMUTATIONS D1 (P 3 J I 0 *S*) 8@´0@°#hdK@ K X–IµHZY¿µáJ YH°ó(61Q LAST 35Q MAPCONS 30Q PERMUTATIONS 25Q DELETE) NIL NIL PNTH D1 (I 1 N I 0 U) @§o Ak ‘@@AkÕb¿b°å(16Q EQUAL 10Q REDERR) NIL (5 "ELEMENT OUT OF BOUNDS") PRECSET D1 (P 1 Z P 0 W I 1 Y I 0 X) B @` X¬Aoh ¿„AHð¨HI¹H°åI H@H ¿h(76Q MKPREC 67Q \NCONC2 55Q REVERSE 31Q REDERR 11Q DELETE) (72Q PRECLIS* 14Q PRECLIS* 6 PRECLIS*) (23Q "NOT FOUND") PRECSTAT D1 (P 0 X) h XdH (22Q PRECSET 11Q REMCOMMA 6 XREAD) NIL NIL PREPF D1 (I 0 U) @ (6 REPLUS 3 PREPF1) NIL NIL PREPF1 D1 (I 1 V I 0 U) …@d lñ³j@óšg@ h€@A h@dlñ³3¿j@ó²gg@ @hh‰g@@hA h @ gð‘A‡@ A @ A (202Q \NCONC2 177Q PREPF1 173Q RED 167Q PREPF1 164Q MULT 160Q LPOW 145Q MVAR 141Q LC 133Q RETIMES 127Q EXCHK 77Q MINUS 41Q RETIMES 35Q EXCHK 24Q MINUS) (150Q K* 113Q QUOTIENT 72Q QUOTIENT 67Q MINUS 20Q MINUS) NIL PREPSQ D1 (I 0 U) @ ¡j@g (15Q SQFORM 3 NUMR) (12Q PREPF) NIL PRINC* D1 (P 2 N P 1 M P 0 V I 0 U) 0@ X Z`ó³=`JÔ¹`³{I`ó³$`¥@ °`I`@`¿Ii ¿°Ç`œ@oh ¿„`²'`¹I` ³H ¿IkÔ¹HX³ê°Âi ¿°Ý@ ¿J` °®`` @gð³=@gð³6`Ió³%¿l ¿g ¿JlÔ¿`kÔ¿„I¿@ ¿l ¿` ¿g ¿` ¿l¿k¿°Ñ(377Q PRIN1 370Q OPRIN 361Q PRIN1 352Q SPACES 344Q TERPRI 340Q PRIN1 304Q PRIN1 275Q SPACES 267Q TERPRI 236Q EQUAL 223Q REMAINDER 213Q PRIN1 204Q TERPRI* 164Q PRINC* 155Q EQUAL 133Q REDERR 111Q TERPRI* 53Q PRIN1 12Q LENGTH 6 UNPACK) (412Q COUNT* 405Q POSN* 374Q FORTVAR* 365Q EQUAL 356Q FORTVAR* 333Q POSN* 325Q COUNT* 320Q COUNT* 314Q POSN* 301Q X 260Q LLENGTH* 252Q - 243Q + 233Q *CARDNO 230Q COUNT* 220Q LLENGTH* 152Q LLENGTH* 145Q POSN* 140Q *NAT 117Q *FORT 104Q POSN* 77Q PLINE* 73Q PLINE* 65Q YCOORD* 60Q POSN* 46Q *NAT 40Q LLENGTH* 32Q *FORT 24Q POSN* 16Q LLENGTH*) (125Q "TOO LONG FOR FORTRAN") PRINCX D1 (L (0 U)) @`NIL (7 OUTL* 3 OUTL*) NIL PRINTTY D1 (P 0 OFL I 0 U) %`¨`”@ ¿`dXh @ H h(41Q WRS 35Q PRINT 31Q WRS 16Q PRINT) (22Q OFL* 11Q *NAT 5 *FORT) NIL PROCSTAT D1 (P 2 Z P 1 Y P 0 X) —0`dgð“¿g¿`gð³gð¨`¿h‰¿g Xdlñ¤hX°*gð²"`gð¬h¿o ¿HºHX°Hg ¹i ºI ¿HJ`ºhJ(213Q PROCSTAT1 202Q REMTYPE 175Q MKEX 172Q XREAD 165Q FLAGTYPE 141Q SYMERR 72Q XREAD1 60Q SCAN 37Q SCAN) (223Q FNAME* 220Q TYPE* 210Q TYPE* 162Q SCALAR 131Q TYPE* 123Q SYMBOLIC 120Q *MODE 112Q SETQ 67Q PROC 63Q FNAME* 52Q FNAME* 47Q CURSYM* 42Q PROCEDURE 31Q PROCEDURE 26Q CURSYM* 22Q TYPE* 17Q EXPR 11Q PROCEDURE 5 CURSYM*) (136Q "SYNTAX ERROR") PROCSTAT1 D1 (P 1 VARLIS P 0 NAME I 2 TYPE I 1 BODY I 0 U) Î @Xd²dlñ«dd¥d¡›oh °"gœHoh hH ©Hhg ¿Agð”AY€I™AI@ ¿@¹A b¿Hdg¨gh ¿`²`§HIAB¿`˜Bo —HIAB¿Hhg ¿`gð”H gHh g h(307Q MKQUOTE 301Q MKQUOTE 267Q MKQUOTE 252Q REMFLAG 240Q PUTD* 230Q MEMBER 213Q OUTDEF 172Q LPRIM 147Q REFORM 136Q SETDIFF 106Q FLAG 74Q DEFINEDP 66Q LPRIM 44Q REDERR) (304Q OPFN 273Q FLAG 261Q SYMBOLIC 256Q *MODE 247Q FNC 217Q *DEFN 203Q CMSG* 176Q *DEFN 164Q REDEFINED 157Q FNC 115Q PROG 103Q FNC 51Q LOSE) (225Q (MACRO NMACRO SMACRO) 60Q "NOT DEFINED (LOSE FLAG)" 36Q "INVALID PROCEDURE NAME") PROGCHK D1 (P 0 X I 0 U) g@gð´@d‘hb¿@bµH lñ²8@dgð²³Ü@dlñ²ØH¸°Ïgð¬g@ ³´@H¸°³(134Q MEMBER 131Q FLATTEN 40Q REVERSE) (124Q RETURN 117Q PROG 60Q RETURN 10Q PROG) NIL PROGVR D1 (L (0 VAR)) &@dlñ‘hd¥d¡¦@dg‘igdNIL (37Q DATATYPE 30Q SHARE) NIL PTOKEN D1 (P 0 X) =Xddgð²¿`gð—`¿H Hdgðdgð§¿g H(71Q PRINCX 45Q PRINCX 5 TOKEN) (66Q % 60Q %) 52Q %( 40Q OUTL* 34Q OUTL* 27Q % 22Q OUTL* 13Q %)) NIL QUOTF D1 (P 7 Z1 P 6 Z P 5 Y P 4 X P 3 W P 2 V P 1 U P 0 N I 1 Q I 0 P) ï@d¢±êA ‘kAk ‘@A •@A @ ’±‹@ A ð¢±©€@ A ýó³n@ ¹A ºA »I J \´RI J ÕXj •KH ½@Hj ‘A„MA L bµHj ²@³5NL ©@ K ²ähNML ¾@µ‚±ÿyO–NO N`³ÞL_¿±ÿ`@ A ´@A (354Q QUOTK 345Q ORDOP 342Q MVAR 336Q MVAR 313Q \NCONC2 272Q ACONC 267Q MULT 255Q NEQ2 251Q MVAR 244Q DOMAINP 240Q \NCONC2 226Q EQUAL 215Q ADDF 212Q MULTF 207Q NEGF 203Q MULTPF 173Q EQUAL 164Q TO* 156Q NEQ2 150Q TDEG 144Q TDEG 135Q QUOTF 132Q TC 126Q TC 121Q MVAR 114Q LT* 107Q LT* 77Q RANK 73Q RANK 57Q MVAR 53Q MVAR 43Q DOMAINP 36Q QUOTFD 30Q DOMAINP 21Q EQUAL 11Q EQUAL) (321Q *MCD) NIL QUOTFD D1 (P 0 Z I 1 Q I 0 P) hAdlñ³Y¿`˜A @ `™kjA×@ @dlñ³A Hj ’H`¥@A hlñ©@@AÖ @A @ (145Q MULTD 141Q REVPR 135Q QUOTK 127Q MKFR 105Q MKFR 70Q EQUAL 57Q DIVIDE 42Q MULTD 24Q MULTD 20Q CRECIP) (77Q *MCD 30Q *FLOAT 13Q MOD*) NIL QUOTK D1 (P 1 Y P 0 W I 1 Q I 0 P) :@ A H´,@ ª@ H h@ A I´@ H I (67Q ADDEXP 63Q MULT 57Q LPOW 45Q QUOTF 41Q RED 32Q MULT 26Q LPOW 21Q RED 7 QUOTF 3 LC) NIL NIL RANK D1 (P 2 N P 1 M P 0 Y I 0 P) E`”@ 0@ º@ ¸@ ¹@ £JIÕ@ bH j ²äjIó™jJó²åI J(100Q MINUS 61Q EQUAL 55Q DEG 47Q RED 36Q RED 31Q LDEG 24Q MVAR 17Q LDEG 7 LDEG) (2 *MCD) NIL RED D1 (L (0 U)) @NIL NIL NIL REDERR D1 (I 0 U) @ h h(12Q ERROR 6 TERPRI 3 LPRIE) NIL NIL REDMSG D1 (I 1 V I 0 U) U`²2`³ `²g@Aoh ´° ‹@gAh ¿Agð¡ho o o h(121Q LPRIM 112Q LPRIM 103Q LPRIM 63Q LPRIM 46Q ERROR 37Q YESP) (70Q OPERATOR 53Q DECLARED 21Q DECLARE 14Q *INT 7 IFL* 2 *MSG) (116Q "IN FUTURE RELEASES OF REDUCE" 107Q "IF YOU DO, YOUR PROGRAM MAY NOT RUN CORRECTLY" 100Q "PLEASE DO NOT DECLARE OPERATORS BY DEFAULT" 27Q " (Y/N)") REFORM D1 (P 4 Y P 3 X I 0 U) 9@dlñ²K³F@ddgð³=¿gð™g@ @dgð²$0@°d ¸IµHhZH&¹µíJ@gðœ@@ @@dgð²6dlñ³-¿@g[—gKh@dg¢±¢¿o hgðœ@ddg ¿@dlñ³Y¿ 0@°d ¸IµHhZH&¹µíJ[@g\µ@g\µ@K@K L @g“Kh€K 0@°d ¸IµHhZH&¹µíJ(443Q REFORM 430Q REFORM 423Q APPLY 403Q SUBLIS2 374Q PAIR 314Q REFORM 261Q MAPC2 237Q REDERR 141Q REFORM 74Q REFORM 44Q REFORM) (411Q NOSPREAD 355Q SMACRO 344Q NMACRO 256Q REFORM 245Q MAT 222Q NMACRO 206Q FUNCTION 200Q SMACRO 152Q FUNCTION 125Q LAMBDA 54Q PROG 37Q COND 32Q COND 22Q QUOTE) (234Q "MACRO USED AS FUNCTION") REMCOMMA D1 (L (0 U)) @dgð‘hNIL (6 *COMMA*) NIL REMK D1 (P 5 X P 4 VAR P 3 F1 P 2 N P 1 L P 0 K I 1 V I 0 U) ]`A »A ¼A ºj¹@L JÕ¸jHóšH I@h@ A ½Hjó™LH M ½K@ M b¿IkÔ°¹(123Q ADDF 117Q MULTF 114Q RED 106Q MULTPF 102Q TO* 70Q NEGF 65Q MULTF 62Q RED 56Q LC 43Q MINUS 30Q DEG 20Q LDEG 13Q MVAR 6 LC) NIL NIL REMTYPE D1 (P 1 Y P 0 X I 0 VARLIS) 3 `@ ¿@d XgY˜HgI†Hg ¿@b°ß(52Q REMPROP 42Q PUT 11Q SETDIFF) (47Q DATATYPE 36Q DATATYPE 26Q DATATYPE 14Q VARS* 5 VARS*) NIL REPEATS D1 (I 0 X) @d @ ˜@@ @b°é(21Q REPEATS 11Q MEMBER) NIL NIL REPLUS D1 (L (0 U)) @dlñ ¢@g@NIL (17Q PLUS) NIL RESIMP D1 (I 0 U) @ @ (23Q MULTSQ 20Q INVSQ 15Q SUBF 12Q DENR 6 SUBF 3 NUMR) NIL NIL RETIMES D1 (P 1 Y P 0 X I 0 U) Z @µIµ8k°Bk ³(@dgð²¿Hhð¸@k ¬@@bI¹@b°Ç˜gI I¹H—gIhI(107Q REVERSE 52Q EQUAL 20Q EQUAL) (121Q MINUS 103Q TIMES 32Q MINUS) NIL RETSTAT D1 NIL #`¥hi gg‘h†i h(35Q MKEX 32Q XREAD1 17Q SCAN 10Q SYMERR) (22Q DELIM 14Q RETURN 2 BLOCKP*) NIL REVAL D1 (I 0 U) @i (4 REVAL1) NIL NIL REVAL1 D1 (P 1 Y P 0 X I 1 V I 0 U) † @dd¥d¡˜dd¡³mlñ²@dgð•i ¿…gð©@h¸`Yµ@ b¿A³@ H šIgH I°Û@ bdgð²Ýdd¥d¡²Î (203Q MINUS 144Q PREPSQ 133Q APPLY 120Q APPLY 112Q MK*SQ 100Q SIMP* 52Q ERRPRI2) (154Q MINUS 126Q EVFN 71Q TYPL* 60Q *SQ 44Q *COMMA*) NIL REVLIS D1 (I 0 U) 0@°d ¸IµHhZH&¹µíJ(12Q REVAL) NIL NIL REVOP D1 (P 0 X I 1 V I 0 U) #@@ A•H ‘Ho@h (40Q REDERR 21Q NUMLIS 6 REVLIS) NIL (30Q "NON-NUMERICAL ARGUMENT IN") REVPR D1 (L (0 U)) @@NIL NIL NIL RLIS D1 NIL i (3 RLIS1) NIL NIL RLIS1 D1 (P 1 Y P 0 X I 0 U) x `gX£`¸g´Hh Y@“dh¹H@gð³#d0I°d ºKµJh\J&»µíL°hggIH hHg XhH(157Q MKPROG 142Q MKQUOTE 100Q MKARG 42Q REMCOMMA 37Q XREAD1 22Q SCAN) (164Q KEY1* 152Q SIMPFG 134Q QUOTE 131Q FLAG 61Q FLAGOP 55Q KEY1* 25Q DELIM 16Q CURSYM* 10Q STATFN 5 CURSYM*) NIL RLIS2 D1 (P 1 X P 0 W) F `¸g³.` I¹gœHgI h`gð•¿°Öo h(102Q SYMERR 70Q SCAN 50Q REVERSE 33Q SCAN 25Q MKQUOTE 11Q SCAN) (63Q *COMMA* 60Q CURSYM* 44Q LIST 36Q DELIM 22Q CURSYM* 14Q DELIM 5 CURSYM*) (77Q "SYNTAX ERROR") RLISF D1 NIL g (5 RLIS1) (2 FLAGOP) NIL RMSUBS D1 NIL (5 RMSUBS2 2 RMSUBS1) NIL NIL RMSUBS1 D1 NIL (`Ÿ`h¿`°ñ`d h¿`°òNIL (44Q DSUBL* 40Q DSUBL* 26Q DSUBL* 21Q SUBL* 15Q SUBL* 6 SUBL* 2 SUBL*) NIL RMSUBS2 D1 NIL `hihNIL (12Q *SQVAR* 2 *SQVAR*) NIL RPLACW D1 (I 1 V I 0 U) $@lñ•Alñ¬g@Ah @AdA¿(27Q ERRACH) (16Q RPLACW) NIL RRDLS D1 (P 1 Y P 0 X) Q ¸`l ²9Hdgð‘hgð²*¸¹`l –Igð³o¿o ¿HH(113Q RRDLS 106Q SYMERR 57Q EQUAL 46Q PTOKEN 42Q RREAD1 16Q EQUAL 5 RREAD1) (76Q NXTSYM* 64Q %) 52Q TTYPE* 34Q %. 25Q %) 11Q TTYPE*) (103Q "DOT CONTEXT ERROR" 73Q " ") RREAD D1 NIL o (11Q RREAD1 6 PRINCX) NIL (3 " '") RREAD1 D1 (P 1 Y P 0 X) ^ X`l ²Mddgð”¿gð§Hgð¡HYdd¥d¡³o¿o IHgð²ùgIh (133Q APPLY 111Q SYMERR 54Q PTOKEN 33Q RRDLS 16Q EQUAL 5 PTOKEN) (125Q MINUS 117Q - 101Q NXTSYM* 45Q - 37Q + 25Q %( 11Q TTYPE*) (106Q "SYNTAX ERROR" 76Q " ") SAVEAS D1 (I 0 U) @` h(6 LET1) (3 *ANS) NIL SCAN D1 (P 1 Y P 0 X) H `gðš¿¿`dlñ²Hgð˜`¿`¿¿`d¥d¡¯`lñ®`g¦o `gð“¿` ¿`dd¥d¡³®gXµ‚±ª`dgðž¿¿g¿±ÿegð˜g ¿°6`l ¢±ÿo`dgðœ¿ ±ÿ\gXµ±ÿOgð³A¿Hd²¿`l š`H Y³Hdgð¢±ÿM±ÿ!` ¿I¸°Ã`¿gdlñ’±þß±ÿ5(443Q PRINCX 410Q ASSOC 377Q EQUAL 355Q TOKEN 322Q MKQUOTE 317Q RREAD1 276Q EQUAL 263Q ERROR 235Q COMPRIX 164Q PRINCX 155Q TERPRIX 141Q PRINCX 70Q TOKEN 21Q TOKEN 15Q TERPRIX) (472Q NXTSYM* 466Q CURSYM* 463Q *SEMICOL* 457Q SEMIC* 454Q NXTSYM* 440Q NXTSYM* 425Q *RPAR* 421Q CURSYM* 403Q NXTSYM* 372Q TTYPE* 360Q NXTSYM* 347Q *SEMICOL* 333Q SWITCH* 325Q NXTSYM* 311Q ' 305Q NXTSYM* 271Q TTYPE* 260Q # 253Q # 244Q CRCHAR* 241Q % 227Q COMMENT 223Q NXTSYM* 210Q NEWNAM 170Q NXTSYM* 161Q NXTSYM* 150Q ELSE 144Q CURSYM* 130Q SWITCH* 125Q NXTSYM* 115Q NXTSYM* 77Q NXTSYM* 73Q NXTSYM* 64Q CURSYM* 61Q NXTSYM* 55Q NXTSYM* 50Q NXTSYM* 43Q STRING 30Q NXTSYM* 24Q NXTSYM* 10Q *SEMICOL* 5 CURSYM*) (136Q " ") SCPRINT D1 (P 0 M I 1 N I 0 U) >j¿@d A ²$j@`ÕXó¤H ¿@ ¿@¿@b°Î(54Q PRIN1 45Q SPACES 22Q EQUAL) (65Q POSN* 35Q POSN* 6 POSN*) NIL SETDIFF D1 (I 1 V I 0 U) Aµ@@ Ab¿b¿°î(11Q DELETE) NIL NIL SETEL D1 (P 1 N P 0 X I 1 V I 0 U) - @ X¹@gH ¸Ij “HAIkÕ¹H°ï(36Q EQUAL 30Q GETEL1 25Q REVERSE 7 REVERSE) (17Q ARRAY) NIL SETK D1 (I 1 V I 0 U) @dlñ’ A A(15Q LET1 11Q REVOP) NIL NIL SETK1 D1 (P 1 Y P 0 X I 2 B I 1 V I 0 U) ´ @dlñ³>¿B² @gX´‹h¸@gH¿HAh A@dgª¿h@o…g hlñ²o ¿hh¸I@H °ÂB²&@gY´@I d²âX°¬h¸@g@Hh°˜@gY´ @I X©h@oŒ@gHI h(260Q PUT 255Q DELETE 242Q MESPRI 227Q SASSOC 163Q SASSOC 140Q ACONC 124Q REDERR 104Q REMPROP 75Q MESPRI 52Q RPLACW 42Q PUT) (250Q KVALUE 216Q KVALUE 202Q KVALUE 152Q KVALUE 101Q AVALUE 61Q AVALUE 36Q AVALUE 22Q AVALUE) (237Q "NOT FOUND" 121Q "SYNTAX ERROR" 72Q "NOT FOUND") SHUT D1 (P 0 FL I 0 U) g@d X` ³.H` «Hoh ¿H`ð³3H ¿H` °!H ¿H` ¿H` —h ¿@b° (136Q WRS 126Q EQUAL 113Q DELETE 103Q CLOSEF 72Q DELETE 62Q CLOSEF 46Q REDERR 32Q MEMBER 21Q MEMBER 12Q MKFIL) (133Q OFL* 123Q OFL* 116Q OPL* 110Q OPL* 75Q IPL* 67Q IPL* 53Q IFL* 27Q IPL* 16Q OPL*) (40Q "NOT OPEN") SIMP D1 (P 0 X I 0 U) @dlñ¥¿@ lñ’±ý@dd¥d¡’±ídg²(0@°d ¹JµIh[I&ºµíK b°® µ-@gXµ@dg²-i b b°Šdgð›¿@ b±ÿu@ h gXµ/@dg³ko ˜@ b±ÿJ@g ¿@ ¿±ÿ7gð³g@oh ¿°@ b ²@ l ³H@ @ b±þô@i h(427Q ERRPRI2 415Q NTH2 407Q NTH2 376Q NEQ2 371Q LENGTH 363Q NUMLIS 356Q REVLIS 346Q REDERR 312Q MKOP 304Q REDMSG 267Q EVAL 262Q MEMBER 230Q EVAL 222Q MKQUOTE 206Q SIMPIDEN 167Q GETEL 162Q REVOP 132Q OPMTCH 123Q EVAL 75Q MKQUOTE 16Q SIMPATOM) (331Q MATRIX 323Q MAT 301Q OPERATOR 247Q INFIX 235Q MATRIX 177Q IDEN 153Q **ARRAY 141Q SIMPFN 56Q OPFN) (337Q "NOT SET" 257Q (COND PROG PROG2 PROGN)) SIMP* D1 (P 0 X I 0 U) U@gð˜@“@``¸h¿@ b¿`µH¿@ b¿H@@h b¿`°Ù(107Q APPLY 66Q SUBS2 44Q SIMP) (121Q MUL* 115Q MUL* 76Q SUB2* 61Q MUL* 52Q MUL* 37Q MUL* 31Q SUB2* 26Q MUL* 10Q *SQ) NIL SIMP*SQ D1 (I 0 U) @d¤ (10Q RESIMP) NIL NIL SIMP0 D1 (P 0 X I 0 U) "``Xh@ bHH@(22Q SIMP) (36Q SUB2* 31Q SUBFG* 16Q SUBFG* 10Q SUB2* 5 SUBFG*) NIL SIMPATOM D1 (P 0 Z I 0 U) ¯ @µhk d¥d¡²^@j ³é@d¡²`›@ bj ´Ñ@k`³ù@oÖjØ¸oH ¹HI×oI×¸h@ogHHhH@g—@ `Xµ@k @h ²Hg@oh ¿H°Ù(250Q REDERR 224Q APPLY 214Q MKSQ 200Q SIMP 175Q EVAL 161Q MESPRI 121Q GCDN 65Q NEQ2 57Q CMOD 34Q EQUAL 12Q OVER) (233Q NAME 204Q TYPL* 167Q SHARE 146Q QUOTIENT 76Q *FLOAT 52Q MOD*) (241Q "USED AS SCALAR" 143Q "REPRESENTED BY" 131Q 3641100Q 115Q 3641100Q 105Q 3641100Q) SIMPCAR D1 (I 0 U) @ (4 SIMP) NIL NIL SIMPDF D1 (P 2 Y P 1 X P 0 V I 0 U) £0`©g@k @¸@ b¿H”@ ¡@J•Jj ”H €JY ²XI¹HXµ @I °Ð Z ´7J k ²èJ d¥d¡²ØJºH¸Jj ³£@I b¿JkÕZ°îºHX°oI ohi h(237Q MESPRI 225Q PREPSQ 176Q DIFFSQ 167Q EQUAL 140Q NUMR 132Q EQUAL 126Q DENR 120Q NUMR 114Q SIMPCAR 107Q DIFFSQ 65Q KERNP 57Q SIMPCAR 52Q EQUAL 40Q NUMR 27Q SIMPCAR 17Q MKSQ) (11Q DF 5 SUBFG*) (231Q "NOT ALLOWED" 221Q "DIFFERENTIATION WRT") SIMPDIFF D1 (I 0 U) @ @ (13Q ADDSQ 10Q SIMPMINUS 3 SIMPCAR) NIL NIL SIMPEXPT D1 (P 3 X P 2 N P 1 M P 0 FLG I 0 U) [@@ º@b¿J¹@k •kd Ilñ’±èJk ’±ÞI®@j ²ào @dlñž¿Id¡’±±·d¥d¡²_@j ²jIó—o I’±ªo jIó²2`šk@I @k š@I kk@I k@I k@g³„jIó“`¥@I @I @ »jIó¥KI `›KI K§o ¿@dlñ³¿H¢±ˆ@j ¢±hk gð’±@dgð²'¿J º@Jh @gJhh gð’±«@gð²¦Id¥d¡²™Jk ²‘k Ih @Ih i¸Kµ@ b±þfIdd¥d¡£ Y` ™@IkhkJ º`³)Kk ³!Id¥d¡²Jk «@dgð’±þÑ¿`²!o ¿@ J º@b¿h»±ýê@IJJ º@Jh »@bµKJh K »@°ë(1125Q MULTSQ 1121Q SIMPEXPT 1077Q SIMPEXPT 1064Q PREPSQ 1057Q SIMPX1 1035Q MULTSQ 1031Q SIMP 1021Q REDERR 770Q NEQ2 744Q NEQ2 730Q PREPF 710Q MEMBER 701Q PREPF 654Q PREPSQ 651Q SIMP 637Q MULTSQ 634Q SIMPEXPT 622Q SIMPEXPT 613Q MINUS 605Q EQUAL 540Q MULTSQ 535Q SIMPEXPT 514Q SIMPEXPT 501Q PREPSQ 451Q OVER 440Q EQUAL 414Q REDERR 401Q INVSQ 376Q EXPTSQ 373Q MINUS 361Q EXPTSQ 347Q SIMP 342Q INVSQ 337Q MKSQ 334Q MINUS 326Q MKSQ 277Q EXPT 266Q EXPT 263Q MINUS 252Q EXPT 247Q MINUS 241Q EQUAL 236Q MINUS 227Q EXPT 224Q MINUS 204Q REDERR 167Q REDERR 152Q EQUAL 102Q REDERR 71Q EQUAL 56Q NEQ2 36Q OVER 30Q EQUAL 12Q SIMP 7 CARX) (1010Q *SMALL 777Q PLUS 734Q *MCD 705Q FRLIS* 557Q MINUS 545Q EXPT 523Q MINUS 471Q QUOTIENT 456Q TIMES 365Q *MCD 320Q *MCD 306Q SHARE 215Q *MCD) (1016Q "LARGER SYSTEM NEEDED" 411Q "ZERO DENOMINATOR" 201Q " 0**0 FORMED" 164Q "ZERO DENOMINATOR" 77Q " 0**0 FORMED") SIMPGTS D1 (I 0 U) g@ (12Q SIMP 7 EVAL) (2 GTS) NIL SIMPIDEN D1 (P 1 Z P 0 Y I 0 U) Š `–@ b€@g”i¿`²E@dgž Y@ ”I @ Yµ÷@dgš@ b°gœ@ ²hk @k b¿H”@ @@ Y@ ¡i¸@Ib°Ü(175Q PERMP 167Q ORDN 157Q NEGSQ 146Q MKSQ 140Q OVER 131Q REPEATS 111Q ORDN 70Q OPMTCH 63Q SIMP 56Q NEQ2 51Q FORMLNR 12Q REVOP) (122Q ANTISYMMETRIC 101Q SYMMETRIC 44Q LINEAR 34Q SUBFG* 30Q NCMP* 22Q NONCOM 5 *VAL) NIL SIMPMINUS D1 (I 0 U) @ (11Q NEGSQ 6 SIMP 3 CARX) NIL NIL SIMPPLUS D1 (P 0 Z I 0 U) hk ¸@µH H ¸@b°ð(24Q ADDSQ 20Q SIMPCAR 7 OVER) NIL NIL SIMPQUOT D1 (I 0 U) @ @ (13Q MULTSQ 10Q SIMPRECIP 3 SIMPCAR) NIL NIL SIMPRECIP D1 (I 0 U) <`®@ k h `²@ d¥d¡˜kj@×k@ (71Q INVSQ 66Q SIMP 63Q CARX 33Q CARX 21Q SIMPEXPT 13Q MINUS 7 CARX) (25Q *FLOAT 2 *MCD) NIL SIMPSUB D1 (P 2 Z1 P 1 Z P 0 X I 0 U) m0@d³ ¿@ b I @ I ¦@i ¿@¸`Zµ$H Xµ@ ¿H@I¹@b°§Hh ³éJ°Ð(145Q APPLY 115Q ERROR 112Q ERRPRI1 100Q GETK 60Q ERRPRI2 51Q EQEXPR 44Q MULTSQ 41Q INVSQ 36Q SUBF 32Q DENR 26Q SUBF 22Q NUMR 15Q SIMP*) (71Q TYPL*) NIL SIMPTIMES D1 (P 1 Y P 0 X I 0 U) s `j «`µ…¹h¿`kÔ¿@ ¸@b¿H¥hk @™H@ °ç`²`kó³`Hh ¸`°å`kÕj “IH(152Q EQUAL 124Q APPLY 74Q MULTSQ 71Q SIMPCAR 61Q OVER 43Q SIMPCAR 11Q NEQ2) (157Q MUL* 146Q TSTACK* 141Q TSTACK* 134Q MUL* 130Q MUL* 115Q MUL* 106Q TSTACK* 101Q MUL* 36Q TSTACK* 31Q TSTACK* 25Q MUL* 15Q MUL* 5 TSTACK*) NIL SIMPX1 D1 (P 1 Z P 0 FLG I 2 N I 1 M I 0 U) Ç `¢±9`AB ¢±)i¿g@Bk ‘AˆgABhh d¡¢±*AB ¹jIó™IkÕIBÔ¹@Ih g@gIBhhk lñ²]Adgð²b¿`¢±¦@AB gð’±ÏAgð²-Ad¥d¡²Ad¡²Bd¥d¡µ‚±Ëk¹@lñ³@d¥d¡©@hg ¿g@Bk ‘AˆgABhhb` ¨@`¿@H”I €I kb¿°§Hhð¸Add¥d¡¢±ÿ1dd¡¢±ÿ&¿@d¥d¡µ‚±þÒA¹Bk ²Â°³kd ¹Ab¡I@gH˜gAhABhh I °ØA ¹BI×b¿AI×¹A b¿±ÿ(677Q RETIMES 654Q GCDN 644Q MULTSQ 640Q SIMPEXPT 574Q OVER 563Q EQUAL 464Q MKSQ 457Q MINUS 436Q MEMBER 406Q EQUAL 374Q FLAG 241Q INVSQ 236Q SIMPX1 174Q MULTSQ 171Q MKSQ 143Q SIMPEXPT 112Q DIVIDE 72Q *K2Q 47Q EQUAL 25Q INTERSECTION 22Q FLATTEN) (615Q MINUS 610Q QUOTIENT 447Q EXPTL* 443Q EXPTL* 433Q EXPTL* 414Q QUOTIENT 400Q EXPT 371Q USED* 260Q TIMES 246Q PLUS 224Q *MCD 211Q MINUS 152Q QUOTIENT 146Q EXPT 55Q QUOTIENT 41Q EXPT 35Q EXPTP* 14Q FRLIS* 5 FRLIS*) NIL SINITL D1 (I 0 U) @dg (10Q SET) (4 INITL) NIL SIZCHK D1 (I 1 N I 0 U) @d Aó•@b°ñ@@A (31Q SIZCHK 10Q LENGTH) NIL NIL SQCHK D1 (I 0 U) 8@dlñ¡@gð–@ @dgðœk “@@lñ²×@ (65Q PREPF 44Q EQUAL 24Q PREPSQ) (33Q EXPT 14Q *SQ) NIL SQFORM D1 (I 1 *PI* I 0 U) *A@ h A@ h Ik ‘HgHIh(33Q EQUAL 23Q APPLY 16Q DENR 11Q APPLY 4 NUMR) (41Q QUOTIENT) NIL SQPRINT D1 (P 0 Z I 0 U) l`¸`l`ó–`¿`³B`³=@k «@ ¿Ho ¿@ ¿o ¿@ ¿o °Õ@ °È(150Q MAPRIN 142Q PREPSQ* 133Q PRINC* 123Q XPRINF 114Q PRINC* 104Q XPRINF 75Q PRINC* 60Q XPRINF 51Q NEQ2) (145Q *OUTP 65Q ORIG* 40Q WTL* 33Q *PRI 27Q ORIG* 24Q POSN* 17Q POSN* 11Q *NAT 5 ORIG*) (130Q ")" 111Q ") / (" 72Q "(") SUBF D1 (P 10Q N P 7 M P 6 Z P 5 Y1 P 4 Y P 3 X P 2 W P 1 KERN P 0 EXP I 1 L I 0 U) Ž @dlñ¤¿@klñ¦`²ó@hk ¾@ ¹@²@I j ®@ L¼@ b°çIlñ²Ilñ²AgIkhh °VA²JAI XI ²gðMgð§Mdgš¿h»LI¹M±ÿgð²g ]gðšLM\µ‚±þûIµ‚±Lg\¢±ëgHX°rd¥d¡’±ÜIdlñœ¿`gð¢±ÈIgžIgNh ±ÓINh±ÊKJýó³RKJ ² LJðœLg¦Lg²6Jdg³-¿KLJºLgð¢±ÿGJ’±þ¶@¢±þ±@o ¢±‘±þ¢Jgð³zHdgð³(¿JHdJð¢±ä¿Jg¢±×HH±Õgð³™JHh±ÅLg³&@gð³Kdg³¿` §`gð”h»±þ)K I¹h»±ýÃH HXd¥d¡’±—Hd£¿±Žlñ³#@gð³Q`gð§H ²HH °CHlñ³Z`gðªgH ° Hg™gH Š`²gHHh¾JºNH°fHHg°ë@µ3Lg²+o ¿o ¿o ¿o ¿o h@o ³ßK³ÌH¤I¢J´íj»I¾IYµ‚±ýðNH¸J’±þ)Kj ¢±þOH³¡H(1510Q EQUAL 1440Q MEMBER 1426Q SYMERR 1416Q SYMERR 1406Q SYMERR 1376Q SYMERR 1366Q SYMERR 1343Q PROCSTAT1 1274Q MKARG 1250Q MKARG 1213Q MKSETQ 1201Q PROGVR 1107Q MKEX 1072Q APPLY 1050Q DELCP 672Q MEMBER 570Q EQUAL 535Q APPLY 373Q XREAD 273Q SCAN 205Q REMCOMMA 172Q XREAD1 143Q SCAN 63Q SCAN) (1354Q NODEL 1340Q EXPR 1305Q SETQ 1300Q TYPE* 1266Q SETEL 1261Q **ARRAY 1242Q SETK 1235Q SYMBOLIC 1232Q *MODE 1171Q SYMBOLIC 1166Q *MODE 1160Q FOR 1057Q , 1054Q NXTSYM* 1045Q NXTSYM* 1036Q ENDSTAT 1026Q PROC 1017Q GO 776Q **UN** 754Q NARY 721Q **UN** 707Q SETQ 642Q *COMMA* 624Q ALT 612Q RIGHT 604Q NARY 526Q IMACRO 517Q IMACRO 505Q SYMBOLIC 502Q *MODE 442Q **UN** 431Q UNARY 401Q *COMMA* 370Q PAREN 362Q *LPAR* 342Q DELIM 333Q *COMMA* 325Q *RPAR* 265Q *COMMA* 232Q LAMBDA 217Q *COMMA* 177Q MAT 167Q PAREN 163Q MATP* 160Q MAT 153Q MAT 126Q STAT 116Q INFIX 107Q *RPAR* 66Q *RPAR* 52Q *LPAR* 40Q DELIM 5 CURSYM*) (1435Q (MAT PAREN) 1423Q "MISSING OPERATOR" 1413Q "REDUNDANT OPERATOR" 1403Q "TOO FEW RIGHT PARENTHESES" 1373Q "TOO MANY RIGHT PARENTHESES" 1363Q "SYNTAX ERROR" 667Q (LAMBDA MAT PAREN)) YESP D1 (P 3 Y P 2 X P 1 OFL P 0 IFL I 0 U) k@`µ`µ@dlñ³ °¹h ¿°í¸h ¿°à ¿¿º¿Jgð[®Jgð¨o °ãIµHµ gK ¿°ô ¿°ë(146Q WRS 140Q RDS 115Q PRIN1 70Q TERPRI 64Q READ 60Q TERPRI 54Q LPRI 46Q RDS 36Q WRS 27Q PRIN1) (133Q CURSYM* 130Q *SEMICOL* 104Q N 75Q Y 12Q OFL* 5 IFL*) (112Q "TYPE Y OR N") INITREDUCE D1 NIL ûo o o o o o o o o o o o o o o o o o o o o o o o ggggh omÿ ok oj ok oj gh ggh (370Q FLAGOP 354Q FLAGOP 344Q LET1 334Q LET1 324Q LET1 314Q LET1 304Q LET1 273Q INFIX 247Q NEWTOK 240Q NEWTOK 231Q NEWTOK 222Q NEWTOK 213Q NEWTOK 204Q NEWTOK 175Q NEWTOK 166Q NEWTOK 157Q NEWTOK 150Q NEWTOK 141Q NEWTOK 132Q NEWTOK 123Q NEWTOK 114Q NEWTOK 105Q NEWTOK 76Q NEWTOK 67Q NEWTOK 60Q NEWTOK 51Q NEWTOK 42Q NEWTOK 33Q NEWTOK 24Q NEWTOK 15Q NEWTOK 6 NEWTOK) (362Q SYMMETRIC 357Q ANTISYMMETRIC 347Q SHARE 263Q OVER 260Q ADDEXP 255Q MULT 252Q TO*) (340Q (SIN 0) 330Q (COS 0) 320Q (LOG 1) 310Q (LOG E) 277Q (EXPT I 2) 244Q ((%. /) OVER) 235Q ((%. * *) TO) 226Q ((%. *) MULT) 217Q ((%. +) ADDEXP) 210Q ((> >) *RSQB*) 201Q ((> =) GEQ) 172Q ((>) GREATERP) 163Q ((< <) *LSQB*) 154Q ((< =) LEQ) 145Q ((<) LESSP) 136Q ((%.) CONS) 127Q ((: =) SETQ % :=% ) 120Q ((:) *COLON*) 111Q ((%)) *RPAR*) 102Q ((%() *LPAR*) 73Q ((,) *COMMA*) 64Q ((=) EQUAL) 55Q ((/) QUOTIENT) 46Q ((* *) EXPT) 37Q ((*) TIMES) 30Q ((-) DIFFERENCE % -% ) 21Q ((+) PLUS % +% ) 12Q ((;) *SEMICOL*) 3 (($) *SEMICOL*)) (PRETTYCOMPRINT REDUCECOMS) (RPAQQ REDUCECOMS ((FNS BEGIN CCOLLECT COMPRIX DELCP DFPRINT FLAG FORLOOP GLOBAL IN* MKFIL MKPROG MKSETQ OPEN OUTDEF PUTD* RDS READA RECIP REMFLAG STIME TIMSTAT TOKEN TR UNTR WHILSTAT WRS) (ADDVARS ( INITL* SUBFG* SSTACK* SUB2* TSTACK* ORIG* PLINE* BLOCKP* OUTL* VARS*) (ERRORTYPELST (20Q (PROGN (SETQ EOF* T) (SETQ BREAKCHK NIL) NIL)))) (DECLARE: EVAL@COMPILE (ADDVARS (GLOBALVARS *ANS *CARDNO *COMP *DEFN *ECHO *EXP *FLOAT *FORT *GCD *HIPOW *INT *LCM *LIST *MATCH *MCD *MODE *MSG *NAT *NERO *OUTP *PRI *RESUBS *SMALL *SQVAR* *SUPER *TEST *VAL *XDN ARBL* ASYMPLIS* BLOCKP* CLOC* CMSG* COMMENT* CONTL* COUNT* CRCHAR* CURSYM* DATE* DEFL* DSUBL* EOF* ERFG* EXLIST* EXPTL* EXPTP* FLG* FNAME* FORTVAR* FRASC* FRLIS* GLOBALVARS IFL* IMODE* INITL* IPL* KEY* KEY1* LETL* LLENGTH* MATP* MCHFG* MCOND* MOD* MUL* NCMP* NXTSYM* OBRKP* OFL* OPL* ORIG* OUTL* PLINE* POSN* POWLIS* POWLIS1* PRECLIS* PRIN* PROGRAM* PROGRAML* REDUCERDTBL RED\BOOTFNS SEMIC* SLIMIT* SOS* SSTACK* SUB2* SUBFG* SUBL* TECHO* TIME1* TIME2* TMODE* TSTACK* TTYPE* TYPE* TYPL* VARS* WTL* YCOORD* YMAX* YMIN*) (SPECVARS *S* *S1*)) (MACROS EQCAR)) (FNS *ARRAY *EVLIS *K2F *K2Q *P2F *P2Q *SD1 *T2Q ABSF ACONC ADDEXP ADD1LIS ADDD ADDDM ADDF ADDSQ ADFORM AEVAL APROC ARB ARLIST ARRAYFN ASSGNL ATOMLIS BEGIN1 BLOCKSTAT CANCEL CANONSQ CARX CLR COMFAC COMM1 CMD CONT DECL DECSTAT DEFP DEFSTAT DEG DELASC DELETE DEN DENOM DENR DERAD DIFFF DIFFP DIFFSQ DIVIDE DOMAINP EMTCH ENDSTAT EQEXPR ERRACH ERRPRI1 ERRPRI2 EXCHK EXPTF EXPTF1 EXPTSQ FKERN FLAGOP FLAGTYPE FLATTEN FORALLFN FORSTAT FRLP GCDF GCDF1 GCDFD GCDK GCDL GCDN GETEL GETEL1 GETK GETPOWER GOSTAT IFLET IFLET1 IFSTAT INFIX INPRINT INRAY INVSQ KERNLP KERNP KLISTT LAMSTAT LC LDEG LET LET0 LET1 LET2 LETDF LLENGTH LNC LPOS LPOW LPRI LPRIE LPRIM LPRIW LSTCHR LT LT* MAPCONS MAPPEND MAPRIN MAPRINT* XMATCH MATHPRINT MCHARG MCHARG2 MCHASARG MCHK MCHSARG MESPRI MINUSF MK*SQ MKARG MKARRAY MKBIN MKEX MKFR MKOP MKPREC MAKEPROGN MKQUOTE MKSFPF MKSP MKSPM MKSQ MODESTAT MTCHK MTCHP MTCHP1 MTP MULT MULTD MULTDM MULTF MULTPF MULTPQ MULTSQ MVAR ND NEGF NEGSQ NEQ2 NEWTOK NEWVAR NLIST* NOCP NONCOMP NORLIS NTH2 NUM NUMER NUMLIS NUMR OFFSTAT ON1 ONSTAT OPMTCH OPRIN OPSTAT ORD2 ORDAD ORDN ORDOP ORDP ORDPP OUT OVER PAIR PAUSE PERMP PERMUTATIONS PNTH PRECSET PRECSTAT PREPF PREPF1 PREPSQ PRINC* PRINCX PRINTTY PROCSTAT PROCSTAT1 PROGCHK PROGVR PTOKEN QUOTF QUOTFD QUOTK RANK RED REDERR REDMSG REFORM REMCOMMA REMK REMTYPE REPEATS REPLUS RESIMP RETIMES RETSTAT REVAL REVAL1 REVLIS REVOP REVPR RLIS RLIS1 RLIS2 RLISF RMSUBS RMSUBS1 RMSUBS2 RPLACW RRDLS RREAD RREAD1 SAVEAS SCAN SCPRINT SETDIFF SETEL SETK SETK1 SHUT SIMP SIMP* SIMP*SQ SIMP0 SIMPATOM SIMPCAR SIMPDF SIMPDIFF SIMPEXPT SIMPGTS SIMPIDEN SIMPMINUS SIMPPLUS SIMPQUOT SIMPRECIP SIMPSUB SIMPTIMES SIMPX1 SINITL SIZCHK SQCHK SQFORM SQPRINT SUBF SUBLA SUBLIS2 SUBS2 SUBS2F SUBS2F* SUBS2Q SUBS3F SUBS3F1 SUBS3Q SUBS3T SYMERR TC TDEG TERMS TERMS1 TERPRI* TERPRIX TO* TPOW VARPRI WRITSTAT XADD XPRID XPRINF XPRINT XREAD XREAD1 YESP) (PROP SWITCH* ; : , %( %) %.) (PROP INFIX *COMMA* SETQ OVER ADDEXP MULT TO* OR AND MEMBER EQUAL NEQ EQ GEQ GREATERP LEQ LESSP DIFFERENCE QUOTIENT EXPT CONS NOT PLUS MINUS TIMES RECIP) (PROP STAT GO FLAGOP INTEGER REAL SCALAR BEGIN RETURN PROCEDURE FEXPR MACRO NMACRO SMACRO ALGEBRAIC LISP SYMBOLIC END *LSQB* INFIX PRECEDENCE FOR WHILE ARRAY ON OFF DEFINE WRITE LAMBDA IN* OUT SHUT PAUSE CONT RETRY RETRY FORALL CLR LET XMATCH OPERATOR SAVEAS DENOM NUMER ND TR UNTR TIME IF BEGIN SYMBOLIC) (PROP NEWNAM GOTO GREATEQ LESSEQ UNEQ **DOLLAR **EOF **ESC **FMARK COMPRI ^ _ %% CLOSE COMPRESS EXPLODE FLAGP READCH GET DIGIT GTS XN *APPLY *EVAL IN MAPRINT NLIST PUTD REMOVE TO GET*) (PROP UNARY NOT PLUS DIFFERENCE MINUS TIMES QUOTIENT RECIP) (PROP NARY AND OR PLUS TIMES EQUAL *COMMA*) (PROP RIGHT CONS SETQ) (PROP ALT MINUS RECIP) (PROP EVAL NEWTOK DEFLIST FLAG GLOBAL NEWNAM PUT REMFLAG REMPROP INFIX PRECEDENCE ARRAY DEFINE) (PROP IGNORE IN* OUT ON OFF SHUT CONT) (PROP DELIM END *COLON* *SEMICOL* THEN ELSE *RSQB* STEP DO UNTIL SUM PRODUCT) (PROP ENDSTAT ENDSTAT MODESTAT RETSTAT TIMSTAT) (PROP NODEL ELSE UNTIL SUM PRODUCT) (PROP GO BEGIN) (PROP TYPE REAL INTEGER SCALAR) (PROP STATFN ARRAY) (PROP LOSE NTH2 COMPRIX FORLOOP WHILSTAT IN* MKPROG APPEND DEFLIST LENGTH MAP MAPC MAPCON MAPLIST PRIN0 PRINT SPACES SUBLIS SUBST ABS EXPT MINUSP UNION INTERSECTION SASSOC NTH) (PROP INITL TSTACK* SSTACK* SUBFG* ORIG*) (PROP NOCHANGE COND FLAG PROG PTS QUOTE SETQ SETK SETEL ARRAYFN VARPRI PROG2 PROGN) (PROP DIRECT OR AND NOT MEMBER EQUAL NEQ EQ GEQ GREATERP LEQ REMAINDER LESSP NUMBERP ORDP STIME) (PROP BIN SUM PRODUCT) (PROP SIMPFG EXP MCD FORT GCD VAL FLOAT) (PROP SMACRO ADDEXP LC LDEG LT MULT MVAR LPOW RED TC TDEG TPOW NUMR DENR OVER *P2F *K2F *K2Q *P2Q *T2Q MULTPQ NONCOMP MULTPF NTH NEQ ASSOC ATSOC PRIN0 PTS PRINC ORDERP SUBLIS ASCII PUTPROP MKVAR) (PROP SIMPFN EXPT DIFFERENCE MINUS PLUS QUOTIENT RECIP TIMES SUB GTS *SQ COS SIN LOG DF) (PROP SPECPRN *SQ) (PROP SHARE *CARDNO *ANS *MODE) (PROP OPFN LLENGTH DEN NUM TERMS) (PROP NMACRO ARB) (PROP QUOTE LET XMATCH) (PROP OPMTCH COS SIN) (PROP DFN EXPT LOG COS SIN) (PROP SYMMETRIC PLUS TIMES CONS) (VARS (COMMENT*) (RED\BOOTFNS) (NAMELIS*) (DATE* (DATE)) (BLOCKP*) (CMSG*) (EOF*) ( MATP*) (OUTL*) (PRECLIS* (QUOTE (OR AND NOT MEMBER EQUAL NEQ EQ GEQ GREATERP LEQ LESSP PLUS DIFFERENCE TIMES QUOTIENT EXPT CONS))) (TECHO*) (TTYPE*) (TYPE*) (VARS*) (*DEFN) (*ECHO) (*TEST) (CONTL*) (ARBL* ) (ASYMPLIS*) (DEFL* (QUOTE ((SIMPFN . OPERATOR) (MATRIX . MATRIX) (**ARRAY . ARRAY)))) (DSUBL*) ( EXLIST* (QUOTE ((*)))) (EXPTL*) (EXPTP*) (FRASC*) (LETL* (QUOTE (LET XMATCH CLR SAVEAS))) (SSTACK* 0) (SLIMIT* 36Q) (TYPL*) (MCHFG*) (MCOND*) (MOD*) (MUL*) (NCMP*) (OFL*) (POWLIS*) (POWLIS1*) (PRIN*) ( SUBFG* T) (SUBL*) (SUB2*) (TSTACK* 0) (WTL*) (*ANS 0) (*EXP T) (*FLOAT) (*GCD) (*HIPOW) (*LCM) (*MATCH ) (*MCD T) (*MODE (QUOTE ALGEBRAIC)) (*MSG T) (*NERO) (*OUTP) (*SMALL) (*PRI) (*SQVAR* (QUOTE (T))) ( *SUPER) (*XDN T) (*VAL T) (COUNT* 1) (FORTVAR* (QUOTE ANS)) (ORIG* 0) (POSN* 0) (YCOORD* 0) (YMIN* 0) (LLENGTH* 103Q) (OBRKP* T) (PLINE*) (*CARDNO 24Q) (*FORT) (*LIST) (*NAT T) (YMAX* 0) (FRLIS* (QUOTE ( ***X))) (*RESUBS T) (IECHO* T) (IMODE* (QUOTE ALGEBRAIC)) (TMODE*) (ERFG*) (FNAME*) (CRCHAR*) (CURSYM* ) (IFL*) (IPL*) (KEY*) (KEY1*) (NXTSYM*) (OPL*) (PROGRAM*) (PROGRAML*) (SEMIC*) (*INT) (FLG*) (CLOC*) (SOS*)) (P (SETQ REDUCERDTBL (COPYREADTABLE (QUOTE ORIG))) (SETSYNTAX (QUOTE !) (QUOTE ESCAPE) REDUCERDTBL) (SETSYNTAX (QUOTE %%) (QUOTE OTHER) REDUCERDTBL) (MAPC (CHARCODE (ESC %" $ %% ' %( %) * + , - %. / : ; < = > ^ _ %[ %])) (FUNCTION (LAMBDA (X) (SETSYNTAX X (QUOTE BREAKCHAR) REDUCERDTBL)))) ( CLDISABLE (QUOTE *))) (FNS INITREDUCE) (P (INITREDUCE)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (ADDTOVAR INITL* SUBFG* SSTACK* SUB2* TSTACK* ORIG* PLINE* BLOCKP* OUTL* VARS*) (ADDTOVAR ERRORTYPELST (20Q (PROGN (SETQ EOF* T) (SETQ BREAKCHK NIL) NIL))) (ADDTOVAR GLOBALVARS *ANS *CARDNO *COMP *DEFN *ECHO *EXP *FLOAT *FORT *GCD *HIPOW *INT *LCM *LIST *MATCH *MCD *MODE *MSG *NAT *NERO *OUTP *PRI *RESUBS *SMALL *SQVAR* *SUPER *TEST *VAL *XDN ARBL* ASYMPLIS* BLOCKP* CLOC* CMSG* COMMENT* CONTL* COUNT* CRCHAR* CURSYM* DATE* DEFL* DSUBL* EOF* ERFG* EXLIST* EXPTL* EXPTP* FLG* FNAME* FORTVAR* FRASC* FRLIS* GLOBALVARS IFL* IMODE* INITL* IPL* KEY* KEY1* LETL* LLENGTH* MATP* MCHFG* MCOND* MOD* MUL* NCMP* NXTSYM* OBRKP* OFL* OPL* ORIG* OUTL* PLINE* POSN* POWLIS* POWLIS1* PRECLIS* PRIN* PROGRAM* PROGRAML* REDUCERDTBL RED\BOOTFNS SEMIC* SLIMIT* SOS* SSTACK* SUB2* SUBFG* SUBL* TECHO* TIME1* TIME2* TMODE* TSTACK* TTYPE* TYPE* TYPL* VARS* WTL* YCOORD* YMAX* YMIN*) (ADDTOVAR SPECVARS *S* *S1*) (DECLARE: EVAL@COMPILE (PUTPROPS EQCAR MACRO ((X Y) (EQ (CAR (LISTP X)) Y)))) (PUTPROPS ; SWITCH* (NIL *SEMICOL*)) (PUTPROPS : SWITCH* (((= NIL SETQ % :=% )) *COLON*)) (PUTPROPS , SWITCH* (NIL *COMMA*)) (PUTPROPS %( SWITCH* (NIL *LPAR*)) (PUTPROPS %) SWITCH* (NIL *RPAR*)) (PUTPROPS %. SWITCH* (((+ NIL ADDEXP) (* ((* NIL TO)) MULT) (%% NIL OVER) (/ NIL OVER)) CONS)) (PUTPROPS *COMMA* INFIX 1) (PUTPROPS SETQ INFIX 2) (PUTPROPS OVER INFIX 7) (PUTPROPS ADDEXP INFIX 10Q) (PUTPROPS MULT INFIX 11Q) (PUTPROPS TO* INFIX 12Q) (PUTPROPS OR INFIX 13Q) (PUTPROPS AND INFIX 14Q) (PUTPROPS MEMBER INFIX 16Q) (PUTPROPS EQUAL INFIX 17Q) (PUTPROPS NEQ INFIX 20Q) (PUTPROPS EQ INFIX 21Q) (PUTPROPS GEQ INFIX 22Q) (PUTPROPS GREATERP INFIX 23Q) (PUTPROPS LEQ INFIX 24Q) (PUTPROPS LESSP INFIX 25Q) (PUTPROPS DIFFERENCE INFIX 27Q) (PUTPROPS QUOTIENT INFIX 31Q) (PUTPROPS EXPT INFIX 32Q) (PUTPROPS CONS INFIX 33Q) (PUTPROPS NOT INFIX 15Q) (PUTPROPS PLUS INFIX 26Q) (PUTPROPS MINUS INFIX 27Q) (PUTPROPS TIMES INFIX 30Q) (PUTPROPS RECIP INFIX 31Q) (PUTPROPS GO STAT GOSTAT) (PUTPROPS FLAGOP STAT RLIS) (PUTPROPS INTEGER STAT DECSTAT) (PUTPROPS REAL STAT DECSTAT) (PUTPROPS SCALAR STAT DECSTAT) (PUTPROPS BEGIN STAT BLOCKSTAT) (PUTPROPS RETURN STAT RETSTAT) (PUTPROPS PROCEDURE STAT PROCSTAT) (PUTPROPS FEXPR STAT PROCSTAT) (PUTPROPS MACRO STAT PROCSTAT) (PUTPROPS NMACRO STAT PROCSTAT) (PUTPROPS SMACRO STAT PROCSTAT) (PUTPROPS ALGEBRAIC STAT MODESTAT) (PUTPROPS LISP STAT MODESTAT) (PUTPROPS SYMBOLIC STAT MODESTAT) (PUTPROPS END STAT ENDSTAT) (PUTPROPS *LSQB* STAT MAKEPROGN) (PUTPROPS INFIX STAT RLIS2) (PUTPROPS PRECEDENCE STAT PRECSTAT) (PUTPROPS FOR STAT FORSTAT) (PUTPROPS WHILE STAT WHILSTAT) (PUTPROPS ARRAY STAT RLIS) (PUTPROPS ON STAT ONSTAT) (PUTPROPS OFF STAT OFFSTAT) (PUTPROPS DEFINE STAT DEFSTAT) (PUTPROPS WRITE STAT WRITSTAT) (PUTPROPS LAMBDA STAT LAMSTAT) (PUTPROPS IN* STAT RLIS) (PUTPROPS OUT STAT RLIS) (PUTPROPS SHUT STAT RLIS) (PUTPROPS PAUSE STAT ENDSTAT) (PUTPROPS CONT STAT ENDSTAT) (PUTPROPS RETRY STAT ENDSTAT) (PUTPROPS RETRY STAT ENDSTAT) (PUTPROPS FORALL STAT FORALLFN) (PUTPROPS CLR STAT RLIS) (PUTPROPS LET STAT RLIS) (PUTPROPS XMATCH STAT RLIS) (PUTPROPS OPERATOR STAT OPSTAT) (PUTPROPS SAVEAS STAT NORLIS) (PUTPROPS DENOM STAT NORLIS) (PUTPROPS NUMER STAT NORLIS) (PUTPROPS ND STAT NORLIS) (PUTPROPS TR STAT RLIS) (PUTPROPS UNTR STAT RLIS) (PUTPROPS TIME STAT TIMSTAT) (PUTPROPS IF STAT IFSTAT) (PUTPROPS BEGIN STAT BLOCKSTAT) (PUTPROPS SYMBOLIC STAT MODESTAT) (PUTPROPS GOTO NEWNAM GO) (PUTPROPS GREATEQ NEWNAM GEQ) (PUTPROPS LESSEQ NEWNAM LEQ) (PUTPROPS UNEQ NEWNAM NEQ2) (PUTPROPS **DOLLAR NEWNAM (QUOTE $)) (PUTPROPS **EOF NEWNAM (QUOTE $EOF$)) (PUTPROPS **ESC NEWNAM (QUOTE #)) (PUTPROPS **FMARK NEWNAM (QUOTE &)) (PUTPROPS COMPRI NEWNAM COMPRIX) (PUTPROPS NEWNAM $) (PUTPROPS ^ NEWNAM EXPT) (PUTPROPS _ NEWNAM SETQ) (PUTPROPS %% NEWNAM COMMENT) (PUTPROPS CLOSE NEWNAM CLOSEF) (PUTPROPS COMPRESS NEWNAM PACK) (PUTPROPS EXPLODE NEWNAM UNPACK) (PUTPROPS FLAGP NEWNAM GETP) (PUTPROPS READCH NEWNAM READC) (PUTPROPS GET NEWNAM GETP) (PUTPROPS DIGIT NEWNAM NUMBERP) (PUTPROPS GTS NEWNAM EVAL) (PUTPROPS XN NEWNAM INTERSECTION) (PUTPROPS *APPLY NEWNAM APPLY) (PUTPROPS *EVAL NEWNAM EVAL) (PUTPROPS IN NEWNAM IN*) (PUTPROPS MAPRINT NEWNAM MAPRINT*) (PUTPROPS NLIST NEWNAM NLIST*) (PUTPROPS PUTD NEWNAM PUTD*) (PUTPROPS REMOVE NEWNAM REMOVE*) (PUTPROPS TO NEWNAM TO*) (PUTPROPS GET* NEWNAM GET**) (PUTPROPS NOT UNARY NOT) (PUTPROPS PLUS UNARY PLUS) (PUTPROPS DIFFERENCE UNARY MINUS) (PUTPROPS MINUS UNARY MINUS) (PUTPROPS TIMES UNARY TIMES) (PUTPROPS QUOTIENT UNARY RECIP) (PUTPROPS RECIP UNARY RECIP) (PUTPROPS AND NARY T) (PUTPROPS OR NARY T) (PUTPROPS PLUS NARY T) (PUTPROPS TIMES NARY T) (PUTPROPS EQUAL NARY T) (PUTPROPS *COMMA* NARY T) (PUTPROPS CONS RIGHT T) (PUTPROPS SETQ RIGHT T) (PUTPROPS MINUS ALT PLUS) (PUTPROPS RECIP ALT TIMES) (PUTPROPS NEWTOK EVAL T) (PUTPROPS DEFLIST EVAL T) (PUTPROPS FLAG EVAL T) (PUTPROPS GLOBAL EVAL T) (PUTPROPS NEWNAM EVAL T) (PUTPROPS PUT EVAL T) (PUTPROPS REMFLAG EVAL T) (PUTPROPS REMPROP EVAL T) (PUTPROPS INFIX EVAL T) (PUTPROPS PRECEDENCE EVAL T) (PUTPROPS ARRAY EVAL T) (PUTPROPS DEFINE EVAL T) (PUTPROPS IN* IGNORE T) (PUTPROPS OUT IGNORE T) (PUTPROPS ON IGNORE T) (PUTPROPS OFF IGNORE T) (PUTPROPS SHUT IGNORE T) (PUTPROPS CONT IGNORE T) (PUTPROPS END DELIM T) (PUTPROPS *COLON* DELIM T) (PUTPROPS *SEMICOL* DELIM T) (PUTPROPS THEN DELIM T) (PUTPROPS ELSE DELIM T) (PUTPROPS *RSQB* DELIM T) (PUTPROPS STEP DELIM T) (PUTPROPS DO DELIM T) (PUTPROPS UNTIL DELIM T) (PUTPROPS SUM DELIM T) (PUTPROPS PRODUCT DELIM T) (PUTPROPS ENDSTAT ENDSTAT T) (PUTPROPS MODESTAT ENDSTAT T) (PUTPROPS RETSTAT ENDSTAT T) (PUTPROPS TIMSTAT ENDSTAT T) (PUTPROPS ELSE NODEL T) (PUTPROPS UNTIL NODEL T) (PUTPROPS SUM NODEL T) (PUTPROPS PRODUCT NODEL T) (PUTPROPS BEGIN GO T) (PUTPROPS REAL TYPE T) (PUTPROPS INTEGER TYPE T) (PUTPROPS SCALAR TYPE T) (PUTPROPS ARRAY STATFN ARRAYFN) (PUTPROPS NTH2 LOSE T) (PUTPROPS COMPRIX LOSE T) (PUTPROPS FORLOOP LOSE T) (PUTPROPS WHILSTAT LOSE T) (PUTPROPS IN* LOSE T) (PUTPROPS MKPROG LOSE T) (PUTPROPS APPEND LOSE T) (PUTPROPS DEFLIST LOSE T) (PUTPROPS LENGTH LOSE T) (PUTPROPS MAP LOSE T) (PUTPROPS MAPC LOSE T) (PUTPROPS MAPCON LOSE T) (PUTPROPS MAPLIST LOSE T) (PUTPROPS PRIN0 LOSE T) (PUTPROPS PRINT LOSE T) (PUTPROPS SPACES LOSE T) (PUTPROPS SUBLIS LOSE T) (PUTPROPS SUBST LOSE T) (PUTPROPS ABS LOSE T) (PUTPROPS EXPT LOSE T) (PUTPROPS MINUSP LOSE T) (PUTPROPS UNION LOSE T) (PUTPROPS INTERSECTION LOSE T) (PUTPROPS SASSOC LOSE T) (PUTPROPS NTH LOSE T) (PUTPROPS TSTACK* INITL 0) (PUTPROPS SSTACK* INITL 0) (PUTPROPS SUBFG* INITL T) (PUTPROPS ORIG* INITL 0) (PUTPROPS COND NOCHANGE T) (PUTPROPS FLAG NOCHANGE T) (PUTPROPS PROG NOCHANGE T) (PUTPROPS PTS NOCHANGE T) (PUTPROPS QUOTE NOCHANGE T) (PUTPROPS SETQ NOCHANGE T) (PUTPROPS SETK NOCHANGE T) (PUTPROPS SETEL NOCHANGE T) (PUTPROPS ARRAYFN NOCHANGE T) (PUTPROPS VARPRI NOCHANGE T) (PUTPROPS PROG2 NOCHANGE T) (PUTPROPS PROGN NOCHANGE T) (PUTPROPS OR DIRECT T) (PUTPROPS AND DIRECT T) (PUTPROPS NOT DIRECT T) (PUTPROPS MEMBER DIRECT T) (PUTPROPS EQUAL DIRECT T) (PUTPROPS NEQ DIRECT T) (PUTPROPS EQ DIRECT T) (PUTPROPS GEQ DIRECT T) (PUTPROPS GREATERP DIRECT T) (PUTPROPS LEQ DIRECT T) (PUTPROPS REMAINDER DIRECT T) (PUTPROPS LESSP DIRECT T) (PUTPROPS NUMBERP DIRECT T) (PUTPROPS ORDP DIRECT T) (PUTPROPS STIME DIRECT T) (PUTPROPS SUM BIN (ADDSQ NIL . 1)) (PUTPROPS PRODUCT BIN (MULTSQ 1 . 1)) (PUTPROPS EXP SIMPFG ((NIL (RMSUBS1)) (T (RMSUBS)))) (PUTPROPS MCD SIMPFG ((NIL (RMSUBS)) (T (RMSUBS)))) (PUTPROPS FORT SIMPFG ((NIL (PTS (QUOTE *NAT) (GTS (QUOTE NAT**)))) (T (PTS (QUOTE NAT**) (GTS (QUOTE *NAT))) (PTS (QUOTE *NAT) NIL)))) (PUTPROPS GCD SIMPFG ((T (RMSUBS)))) (PUTPROPS VAL SIMPFG ((T (RMSUBS)))) (PUTPROPS FLOAT SIMPFG ((T (RMSUBS)))) (PUTPROPS ADDEXP SMACRO (LAMBDA (U V) (CONS U V))) (PUTPROPS LC SMACRO (LAMBDA (U) (CDAR U))) (PUTPROPS LDEG SMACRO (LAMBDA (U) (CDAAR U))) (PUTPROPS LT SMACRO (LAMBDA (U) (CAR U))) (PUTPROPS MULT SMACRO (LAMBDA (U V) (CONS U V))) (PUTPROPS MVAR SMACRO (LAMBDA (U) (CAAAR U))) (PUTPROPS LPOW SMACRO (LAMBDA (U) (CAAR U))) (PUTPROPS RED SMACRO (LAMBDA (U) (CDR U))) (PUTPROPS TC SMACRO (LAMBDA (U) (CDR U))) (PUTPROPS TDEG SMACRO (LAMBDA (U) (CDAR U))) (PUTPROPS TPOW SMACRO (LAMBDA (U) (CAR U))) (PUTPROPS NUMR SMACRO (LAMBDA (U) (CAR U))) (PUTPROPS DENR SMACRO (LAMBDA (U) (CDR U))) (PUTPROPS OVER SMACRO (LAMBDA (U V) (CONS U V))) (PUTPROPS *P2F SMACRO (LAMBDA (U) (LIST (CONS U 1)))) (PUTPROPS *K2F SMACRO (LAMBDA (U) (LIST (CONS (CONS U 1) 1)))) (PUTPROPS *K2Q SMACRO (LAMBDA (U) (CONS (LIST (CONS (CONS U 1) 1)) 1))) (PUTPROPS *P2Q SMACRO (LAMBDA (U) (CONS (LIST (CONS U 1)) 1))) (PUTPROPS *T2Q SMACRO (LAMBDA (U) (CONS (LIST U) 1))) (PUTPROPS MULTPQ SMACRO (LAMBDA (U V) (MULTSQ (*P2Q U) V))) (PUTPROPS NONCOMP SMACRO (LAMBDA (U) (AND (NOT (ATOM U)) (FLAGP** (CAR U) (QUOTE NONCOM))))) (PUTPROPS MULTPF SMACRO (LAMBDA (U V) (MULTF (*P2F U) V))) (PUTPROPS NTH SMACRO (LAMBDA (U V) (NTH2 U V))) (PUTPROPS NEQ SMACRO (LAMBDA (U V) (NOT (EQUAL U V)))) (PUTPROPS ASSOC SMACRO (LAMBDA (U V) (SASSOC U V))) (PUTPROPS ATSOC SMACRO (LAMBDA (U V) (ASSOC U V))) (PUTPROPS PRIN0 SMACRO (LAMBDA (U) (PRIN1 U))) (PUTPROPS PTS SMACRO (LAMBDA (U V) (SET U V))) (PUTPROPS PRINC SMACRO (LAMBDA (U) (PRIN1 U))) (PUTPROPS ORDERP SMACRO (LAMBDA (U V) (ALPHORDER U V))) (PUTPROPS SUBLIS SMACRO (LAMBDA (A B) (SUBLIS2 A B))) (PUTPROPS ASCII SMACRO (LAMBDA (X) (CHARACTER X))) (PUTPROPS PUTPROP SMACRO (LAMBDA (U V W) (PUT U W V))) (PUTPROPS MKVAR SMACRO (LAMBDA (U V) U)) (PUTPROPS EXPT SIMPFN SIMPEXPT) (PUTPROPS DIFFERENCE SIMPFN SIMPDIFF) (PUTPROPS MINUS SIMPFN SIMPMINUS) (PUTPROPS PLUS SIMPFN SIMPPLUS) (PUTPROPS QUOTIENT SIMPFN SIMPQUOT) (PUTPROPS RECIP SIMPFN SIMPRECIP) (PUTPROPS TIMES SIMPFN SIMPTIMES) (PUTPROPS SUB SIMPFN SIMPSUB) (PUTPROPS GTS SIMPFN SIMPGTS) (PUTPROPS *SQ SIMPFN SIMP*SQ) (PUTPROPS COS SIMPFN IDEN) (PUTPROPS SIN SIMPFN IDEN) (PUTPROPS LOG SIMPFN IDEN) (PUTPROPS DF SIMPFN SIMPDF) (PUTPROPS *SQ SPECPRN SQPRINT) (PUTPROPS *CARDNO SHARE T) (PUTPROPS *ANS SHARE T) (PUTPROPS *MODE SHARE T) (PUTPROPS LLENGTH OPFN T) (PUTPROPS DEN OPFN T) (PUTPROPS NUM OPFN T) (PUTPROPS TERMS OPFN T) (PUTPROPS ARB NMACRO (LAMBDA (U) (ARB U))) (PUTPROPS LET QUOTE T) (PUTPROPS XMATCH QUOTE T) (PUTPROPS COS OPMTCH ((((MINUS ***X)) (NIL . T) (COS ***X) NIL))) (PUTPROPS SIN OPMTCH ((((MINUS ***X)) (NIL . T) (MINUS (SIN ***X)) NIL))) (PUTPROPS EXPT DFN (((X Y) TIMES Y (EXPT X (PLUS Y (MINUS 1)))) ((X Y) TIMES (LOG X) (EXPT X Y)))) (PUTPROPS LOG DFN (((X) QUOTIENT 1 X))) (PUTPROPS COS DFN (((X) MINUS (SIN X)))) (PUTPROPS SIN DFN (((X) COS X))) (PUTPROPS PLUS SYMMETRIC T) (PUTPROPS TIMES SYMMETRIC T) (PUTPROPS CONS SYMMETRIC T) (RPAQQ COMMENT* NIL) (RPAQQ RED\BOOTFNS NIL) (RPAQQ NAMELIS* NIL) (RPAQ DATE* (DATE)) (RPAQQ BLOCKP* NIL) (RPAQQ CMSG* NIL) (RPAQQ EOF* NIL) (RPAQQ MATP* NIL) (RPAQQ OUTL* NIL) (RPAQQ PRECLIS* (OR AND NOT MEMBER EQUAL NEQ EQ GEQ GREATERP LEQ LESSP PLUS DIFFERENCE TIMES QUOTIENT EXPT CONS)) (RPAQQ TECHO* NIL) (RPAQQ TTYPE* NIL) (RPAQQ TYPE* NIL) (RPAQQ VARS* NIL) (RPAQQ *DEFN NIL) (RPAQQ *ECHO NIL) (RPAQQ *TEST NIL) (RPAQQ CONTL* NIL) (RPAQQ ARBL* NIL) (RPAQQ ASYMPLIS* NIL) (RPAQQ DEFL* ((SIMPFN . OPERATOR) (MATRIX . MATRIX) (**ARRAY . ARRAY))) (RPAQQ DSUBL* NIL) (RPAQQ EXLIST* ((*))) (RPAQQ EXPTL* NIL) (RPAQQ EXPTP* NIL) (RPAQQ FRASC* NIL) (RPAQQ LETL* (LET XMATCH CLR SAVEAS)) (RPAQQ SSTACK* 0) (RPAQQ SLIMIT* 36Q) (RPAQQ TYPL* NIL) (RPAQQ MCHFG* NIL) (RPAQQ MCOND* NIL) (RPAQQ MOD* NIL) (RPAQQ MUL* NIL) (RPAQQ NCMP* NIL) (RPAQQ OFL* NIL) (RPAQQ POWLIS* NIL) (RPAQQ POWLIS1* NIL) (RPAQQ PRIN* NIL) (RPAQQ SUBFG* T) (RPAQQ SUBL* NIL) (RPAQQ SUB2* NIL) (RPAQQ TSTACK* 0) (RPAQQ WTL* NIL) (RPAQQ *ANS 0) (RPAQQ *EXP T) (RPAQQ *FLOAT NIL) (RPAQQ *GCD NIL) (RPAQQ *HIPOW NIL) (RPAQQ *LCM NIL) (RPAQQ *MATCH NIL) (RPAQQ *MCD T) (RPAQQ *MODE ALGEBRAIC) (RPAQQ *MSG T) (RPAQQ *NERO NIL) (RPAQQ *OUTP NIL) (RPAQQ *SMALL NIL) (RPAQQ *PRI NIL) (RPAQQ *SQVAR* (T)) (RPAQQ *SUPER NIL) (RPAQQ *XDN T) (RPAQQ *VAL T) (RPAQQ COUNT* 1) (RPAQQ FORTVAR* ANS) (RPAQQ ORIG* 0) (RPAQQ POSN* 0) (RPAQQ YCOORD* 0) (RPAQQ YMIN* 0) (RPAQQ LLENGTH* 103Q) (RPAQQ OBRKP* T) (RPAQQ PLINE* NIL) (RPAQQ *CARDNO 24Q) (RPAQQ *FORT NIL) (RPAQQ *LIST NIL) (RPAQQ *NAT T) (RPAQQ YMAX* 0) (RPAQQ FRLIS* (***X)) (RPAQQ *RESUBS T) (RPAQQ IECHO* T) (RPAQQ IMODE* ALGEBRAIC) (RPAQQ TMODE* NIL) (RPAQQ ERFG* NIL) (RPAQQ FNAME* NIL) (RPAQQ CRCHAR* NIL) (RPAQQ CURSYM* NIL) (RPAQQ IFL* NIL) (RPAQQ IPL* NIL) (RPAQQ KEY* NIL) (RPAQQ KEY1* NIL) (RPAQQ NXTSYM* NIL) (RPAQQ OPL* NIL) (RPAQQ PROGRAM* NIL) (RPAQQ PROGRAML* NIL) (RPAQQ SEMIC* NIL) (RPAQQ *INT NIL) (RPAQQ FLG* NIL) (RPAQQ CLOC* NIL) (RPAQQ SOS* NIL) (SETQ REDUCERDTBL (COPYREADTABLE (QUOTE ORIG))) (SETSYNTAX (QUOTE !) (QUOTE ESCAPE) REDUCERDTBL) (SETSYNTAX (QUOTE %%) (QUOTE OTHER) REDUCERDTBL) (MAPC (CHARCODE (ESC %" $ %% ' %( %) * + , - %. / : ; < = > ^ _ %[ %])) (FUNCTION (LAMBDA (X) ( SETSYNTAX X (QUOTE BREAKCHAR) REDUCERDTBL)))) (CLDISABLE (QUOTE *)) (INITREDUCE) NIL