; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading CGOL 651   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071CGOL651VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xANDFEATUREU*U*uCOMPLRSPECIALIT*LEXPRCAT*EXPRPARSE!#%'xGETU+UjWCGRUBLOADPRATT)+xEOFM!#-xBOUNDPLIST--/-xW:]juTOKEN!#xxSTRINGNUD!#1x11xCIBASE!#xu;UnW3xCGOLERR!#xxCTOKEN-TABLE!#5x55xRET-NUD!#xu.WxSUBR ,x7FUN!#xTOP-LEVEL9xW+UnWSILENCE!#x;xFREE-KONS!#xxCTYIPEEK!#=xu;U*U==xCGOL-INPUT!#xxSFAPFILEPTYI^QINFILENORMALIZE-READ-ARGS[Z`[,8Zg @b1D `*`? ` @@`  ` `0B `A J`+6@` @+7D!+C J`+A J`3 U-,/,x7LISTIFYWHICH-OPERATIONSU*@`RUBOUT-HANDLERTOPLEVEL-PARSECGOLREADLSUBR-0`E-,1`-"[Z-,8*Q`?4B & $# ` .;pD A@ " O4J&[(Z (G ``A &$ G gy .;pD+' gy ]$+ /+H%)ARGSbCKI&MxTOPLEVEL-PARSE-1-, "'.T+ 7QADVANCE-,= 9""# ( -,1 `O T$C0B(`e(z:u+4@@;,.@ +87+FORCE-RUBOUT,8s7HB`s $-` 3o` {b,8K< ,83", 1<? ,D,8,8",< 01,8K<7@`+I `Q` :U ",x&p 7 5FILEMODEFILEPOSDSKU*U*UMEMQMAXTYOEnd of file while forcing rubout ,Y-[.]/p__x_ xERROR,<`? `4BU & $# ` .;pD4BU[ 0ZQ` & Q ` .;pD  + ` `-, $-,0c-,1 $)-,gZA14D`[ ZS`[ "*aU` " " ,83 ,8@0 ,g,83KoS /.0` *p",<+",oS,8,<,80n2` ,83 ",A Np "p B` " 3` ,8",oWˀ+n/a1 ,83,8",A300 ,,8,8g",<00D],x&&;;_D7KCTYI1Ѐ=` , ,8,8",oA+d=,x;7Ѐ=+ ,,8,8 B]'",oA=+,x;7CUNTYI#]-,=,x7CGOLTYIPEEKh=7+CREAD-READTABLEu:T 1!#2xREADTABLE22exREADCREAD 2-,e 0k 5,8,8-",<3+7U*U*UCSKIP-WHITESPACEEOF encountered inside cgol-exp - CU;]*UGOLREAD 5k6m7o8q9 pssxs xMAKE-TOKENCTOKEN-STRINGCWHITESPACEPCDIGIT-PU*U#.ICHAR-UPCASECLOOKUPCFOLLOW-TAILKONSCGOLTOKEN4-,}",89N%3`C & i1@s+1 & g:  +1N`O+-3`S "(+1 & g:+!b `g3+0`g+1 & gD@:+?+8 * 3@@g~ Jg`a+N`3+?`u $-,1 $-, B *1+1 & g:+41;1 & g:+30N+V3``=`w@@g~A * +"<+6@g~+S1"b & $ :+7@g~+U * @ @@g~+3E+Xe`3`30``= 3+`3-``w g1 & 3 g|:@1+ * +`w3+h * Jg~3+j * Jg}+3++m-`3`3`Lb6@g}``=`w5B`y5= B`4B~3`Z`{ $b > & $ :+1 & gD:+@@g~33> `X`a Bg,Xg|+/,x7AA 0N+ " `! + " `!P 0N+ " `! + " `!0N @0+ " `!% " ,xX 07,8,8`a B` %`/3 " `%;%3`;`% `/,x7#ASSOC$?7UhEXPLODENINITIALIZE-MULTI-CHARACTER-TOKEN-TABLE` /,5 a3,x77-,4B(`=`y 03=O`a@`{ $1 `>`O,x7U*U*wtoken with illegal first character ABCpDDxu( #D xINSERTTOKPUTTOK-,`51[=5B0 ,0,8e,8",<0 @dX5a5+D(7)@ ,85B6 "-,`[=05B=[g $@a,X-, 3-,3+@ZZgaXC`@`]-,/,x$73izer U*U*whas inserted missing " before  FGHI pxqA@ x`a,8 `1N` "+K & $& `1 & $10:`0N``= 0N+O@1`a` & $:`?``= 1N``= ``a00 B``a3> Bg3+C`/,x7 1.`;9 +` " ,x7 @ +a+f0n=+f/.-,`-,0*U,x7NREVERSEOK-AS-NUMBER-PIMPLODEIBASEUCREADLISTREKLAIM,8J Bg3 D``5Bn gK+q -,  gL,*g` g0.@ 1,x7READLIST 2-,e:M+`7ERRSET-,1 ` " $|-.L-,0 1+ ,[  anb " ,xT7w,8A@7F+-,QBZ H "-,0 `0XB "`-,3/,x]d U7 *NCONC N B,xd7TYIPEEKU*U   MEMBERGET-READCGOL-#-READMACRO ,,8`P,8",OPz '$f "pQ4B`) ),83K@`_<3`*`C`,x7I3xU:U*wRATRATREADS3xUndefined language TUpxu*U*w xWRNG-TYPE-ARGNot a language symbol WXpYYxp` Y x4B an`A $3D  `a)I ?,8K,8g,8&KD <0``I ,$,8M,8g,8'KA@D"<0`,xVYV]:U*U7RAT-ARITHMETIC_ALIST!#xPLUSRAT-PLUSMINUSRAT-MINUSDIFFERENCERAT-DIFFERENCEU*U*UTIMESRAT-TIMESFLOATQUOTIENTRAT-QUOTIENTEQUALRAT-EQUALLESSPRAT-LESSPU*]*GREATERPRAT-GREATERPEXPTRAT-EXPTZ[\]^_`abcxARITHMETIC_ALISTLEXPR-FUNCALL-0@@b`E-, ,.,8``0_",<d,/,x%zH;UI 0%OKS&Mx#-MACRO- ""R$70SETSYNTAX-SHARP-MACROMACROu*Ujue(xSTRING-STREAM-CHAR-LISTSTRING-STREAMCHAR-LISTDEFSTRUCT-SLOTfgxDEFSTRUCT-EXPAND-REF-MACROfhxMAKE-STRING-STREAM-1W+UjuDEFSTRUCT-NAMEixDEFSTRUCT-EXPAND-CONS-MACROxALTER-STRING-STREAMjixDEFSTRUCT-EXPAND-ALTER-MACROjxONEU*U*USFADEFSTRUCT-DONT-DISPLACE%%DEFSTRUCT-EMPTY%%NOTYPESELFEVALCOMPILESTRING-STREAM-W*T"DEFSTRUCT-DESCRIPTIONklg&mfn&o+jpxSFA-CREATESFA-STOREMAKE-STRING-STREAM $n a*`` & $& `q,x]*U*U71UNTYISFA-GETunknown command to string-streAam stuvpx x,80D#+;(P(0 ArzV?jC`A+A $&aZ $&@  q[``+D $&Ca[`0Dr` $&a `-,7 & $& gq` ,8 ],8",<0,x47oREAD-PRIN1-STACKw*D 1!#wxwwxPRIN1CGOL-ENTER 3-, w  Q-, BwI B3,x7NCGOL-EXITZw,8w Bw[`[ D3Zj\@0,x7ADVANCE NUDNUDOyxO-,1,x# 71`} B,x<7YVERIFY@`]`O `-,,x7[NUDERRW UNUDERR NUD{x-,1,x7LBPLGETDEN1FUNBOUNDP MISSING PRECEDING EXPRESSIONNUDL(RBP|4Bh1! `5Bh ,f,8,8",<" $0 & i+},8`c`OT `4BxPOz '$f `Q4Bx1+sI# | 0B~+s|5Bx Ea) "-,13-,0@ @0`-,1 $-,-,2H1 $-, $-,/.\C,x}7`FUNBOUNDP NUDx "-,1 *U -,,x7~FSUBREXPRFEXPRLEXPRU*@*FEXPRAUTOLOADGETLFBOUNDP4B 1an`7%'% z 5O{U `5B ``+ *r ",x7LEDERRLEDERR NUD x "`!-,1,x$7  IS NOT AN OPERATOR WITH A LEFT ARGUMENT ,8,8,8QKW",< & i& 7GETDEN NUD| x0d "-,1 $|-,,x,7@F-[ a)-Z`|0.\@0,x7%NUD NUDx-,1,x! 07/15B!  8anb+ d -,1 $-, $-, b0]+!|zE`,x7LEDW QLED NUD x -,1,x87#LEDLDa:r|z5B',x47IPARSE NUDx "`]-,1 $-,,x@7O*LESS@0 `@| $5D/ $&D0ac `+5` C` `]`Y/,x7UPUTPROPW:WLBP ([nxx ",x86EXITEXIT NUD x 4 " -,1,xT7o` ",xP79#LANGUAGE_ALIST is an unknown languageSPEAK  ?}Z D`+C ,8,8g",<" @ & $ [`-,D Z`[-,Z`Z[ @0-, ",x%j\@0d7uFORGETFORGET NUDx "-,1,xYD"l7M@4BRA@A "j\@0,xh7RESETLANGUAGERESETLANGUAGE NUDx "-,1,x%%t7SCNUDCLEDCLBPzP:z z@:6z0:5: B  J    J ",x]Fp7LEARN  ?Z D`+o ,8,8g",< ,f,83,8",< ,8,8g~ 0",<-,1,X-,,Xb-,3 B`-,7  -, B [` BZ`[Z`Z[H( F-, $-, z 7X\-,2@0 $?-,,X*`-,-,2J 1 $-, z 7X\-, $-,0d-,1,X-, $-,*u,x 7RIGHTRIGHT NUD#xDRBP`] -,1 $-,,x7RIGHTLISTW*JRIGHTLIST NUD%x,PARSELIST'zZu-,1 -,2A:W $-,,x7RIGHTREPRIGHTREP NUD)x`1 -,1 $-,-,1  U-, $-,,x7DENTYPEISFUNU*U 1LEFTDEPROGNIFYDEFUNSYNTAX-NEEDED*EVALDEFFIX-,+` ,8-,1 $-,bP+a'-z:6U`O "&@ 2,X-,,X-, / 0-,3`E -,13 @0-,7 -, -,-,0J 1 `-,oz ?@[\]^`{|}~!@7xDEFTOK $E0u.+xaNEWTOKNEWTOK NUD8qx% o`!0 -,7D``1,x7cW`C( NUD~9x "& "-',x_+@$ 7-&x( LED~s x 1B-+o '!E "&` ",X-,7 "-unU',x7k~:x'&x{{ LEDu( @2u; xAPPLY}-, -, ' d "&,X-, w-, >u "<',x7su:x<&x[$C[ NUDy=xCIRC 0[+ ' "& A /-, 0B-` `-,@aa1 {-,+ `` ` P "[-zHdf',x7{LAST >-,XC`@//UjU+ 7[&x[ LEDy} xABMAPCARUHCONSSUBLIS u+`O ` "?@0-,3 "& -,-,e0C1,X-,w@?z ~ҫA "<'@ @2+ `-, -, ' d "&,X-, $@-, `_[',x7y:xU:HOCTOCT NUDBx -,  "~ ' "&, "-'kHC,x7!' NUD.Cx $& " ".}*q',x7O.&x## NUDDx,8C`O,x 7W== NUDEx "0Ch1(7[\\ NUDFx%W'!Ld "&,X-, $-,&_ +7`O,x07/&xU:TLETLET NUDGx&UNPPRATT;CGOL 651_3[`+;Z`@ @0[+= `-, /-,0.U*P,x%8INBE:=REVERSELENGTHR10Wz H8& aU5BQ% $ g5S$C BgIzUe&' u+L`O "& 2 *  "<'-,1 0-,+M "n3-,b0 '`}`O`}`O7@`` $H`C,J "& g  -, $-,-,1 -,0b g=N][g` gM@ -,-,1,X-, w-,0Pf2` "& g-, $0-, gJ,X-,0.Uc,x87>PROGPROG NUDKx%W ` ' "&,X-, $K-,0.Uj,x\7NEWNEW NUDLxRETURN%!PfW' "&>[ -,1 $M-,QC`@/`],X-, $K-,,xd7SPECIAL NUDu`2#xDECLARE% #-,-,1 $N`C-,,xl7LITERAL NUDcx ' "n * c-,,xt7}SUB1PRATT;CGOL 651_4-,2A:P $O-,,xx% FILLARRAYCGOLARRAYA0C 0B~+ `O[` ' "&`C ,,X-, "-'C+ ` %`O[` "n`@a-,1,X-, $P-,+ *u[`,x ARRAYARRAY NUDQxPRATT;CGOL 651_5t2 i) % PRATT;CGOL 651_6 `-, H -,-,1 $-, $-,1:P  $& (% +REMPROPPRATT;CGOL 651_127@` ` ?  ` + ! S`Q/,x8% FIXNUMFLONUMMAPC~uyzPfdf4J &([(Z (2H` E "Q+ % $R, , 0B~4C5` `O ' "& "-'T zPU\c*!#4J 4[(Z (2H` _,8`O` i " zPE4J :[(Z (2H` k`O1@$ "n` u " W` `O`7@`+ J,8 "`,8g}7@`+ H 2[` g~-,1,X-, $P``-,-,1Z` D`+ @ /` " "&@2 $5 g~-, $ -,,8 "`37@`d` [` g}-, $-,  $Q-,-,1Z` D``` /,X-,H` [g~-,1 $-,,80  "`37@`+ |[`  0a)-,1,X-, ` -, -,3-,2H $-, $Q-,-,1@`3-, $-,3` d-,1 g-, $P-,-,1+ v ",X-,,X-,00>Z` D``+ b/,X-,@`a $-, i-,+ CW` `O "&+  " , @0,8 ,8g~,8g~K<U/.UjR,x7 "DIMDIM NUDVxARRAYDIMSCDR "`2-,1 -,-,1 $W}."-,,x7  nx; LEDW x W &n!oU. (#7 Wnx&& LEDX x "&d-,1,X-,7 $-, jW i-,,x7 #XnxIFIF NUDYx0CCTHENELSEi "Z'i`$,X-, ` O`O!@ai6 + $[`0B@0+ $Z`` M ` $ -,-,0(21+ ( ",X-, $}nW-,,x7 Z&x&x MnxGO [nxU:H3WHILEWHILE NUD\xDOi`]-,10'i,X-, `] $-, -,,x7 UREPEATC0CREPEAT NUD]xUNTILi "^'!L4i $5 i-,H -,1-,1 $-, -,0/U.P,x7 3&xFORFOR NUD_xPRATT;CGOL 651_13 `@A6 8+ B[`0B) " ` * ",xx% {ADD1PRATT;CGOL 651_14 $nZ`  -, a -, $`-,0@ + LZ`-, -,13-,2@`7 $Z-,-,1Z`[-,0@`]3-,7/,x% PRATT;CGOL 651_15 2Z`Z[-,13-,7 A:U-,/,x% PBODYCOLLECTCOALESCEU*U*PMAPCANONMAPMAPLISTMAPCONASSQ FOUND WHERE IN OR ON EXPECTED FOUND WHERE DO, COLLECT OR COALESCE EXPECTED-," -,1`O`OUb@cdbez  }(b `a4B ]Z D`` , `D,8,8g /",< & i "nA-,1 '` `O3`4-,`O g' "n ``#-, B`` 3 ?4B p"Z[3` , s,8,8,8 ",f< & i`O `J B`d J "n0BU+ b `,4B , ,8 13 3K<@ , ,8,8 ,8g},8g~L K<@0-,1,X`@a-,,X-, -,` -#a3@a4B `7 + H 2`+ -,13-, $H-,-,1 -, `-,0@`23-,/+f"}*ua7 U&&b&&xITERITER NUDgxIVARSU*TWHENVARRESULTSTEPDITTOWHEN-,hF!ihOOi/OjO ihi^i/_iMiiiz gFL a B4B !`OZ1!!![`1+ 6Bh` M` M6Fi` MPd#` Mi hJ i -,1-,-,1,X-,2@  -,6 8 $` ca@` cA@+ 3-,1 >W $5+<7 3&&^&&&M&xTO LED)k xCA BY 0Bl+ : (`O` u "n-,1,X-,d ,X-,7 $)-,,xX7 i1)xl&x*GREAT*PLUS,8a4B B @ "+ K g-, g g~b0m3 Bg~a5B J g~-, + D,xH7 }U:@CLOTSOFLOTSOF LEDn x*I "n-,1( `_&z X5-,\nz w: -,,X-,7 `] -, -,,xp7 Lw+UjuoxoxCGOLPRINT /nxCGOLPRIN1 p/pnx:= LED xSTOREFORMP  STORE7 + X &n $ `A+ n[`)+ bZ`[ "nZgZ[-,1,X-,0H ,X-, $ -,+ n $qa) B4B lZ`[--,`0 "n $-,-,1,X`1D-,,XA+ n &n  `}*U,x7 xCARRPLACARPLACDSETARGU+U*UPLISTSETPLISTSSTATUS r-q Ws-q S-q t-q u-qxITOPLEVELBREAKLEVELWHO2WHO3U*]*pTTYSCANTTYREADTTYINTGCTIMEU mvwxyxOFOF LEDz x!@ 2 "*`-,,X-, )ujW-,,x7 oz{xOFQOFQ LED| x d "*`-, $-, @0-,1,X-, )-,,x_:\7 t{x _PxNOT LED_ x` *`C`d -,1 _-,,x7 u9C__3xAND LED} x (  $(#7 xW)C_OR LED x ( &~ $(#7 ~xU*U*W=#=$<#>#<$>$<=>=oooooooo xC@= LED x2 3 $&_*\7 3xNENE LED x2 3 @0 $-,1 _-,,xD;7 3xEQEQ LED  x 3 $&$7 u+@C"3x<< LED  x2 ( 3}*p $(#,7 3x>> LED  x!Q_2 ( 3 $(#47 #3xW>W=# LED x 3 &87 +3x=$ LED x"}." 3 &<7 3x<# LED x 3 $D;&@7 13x># LED x 3 $&D7 u9;u3x<$ LED  x 3 $&H7 73x>$ LEDrwjp x 3 $&L7 3x<= LED  x!P022 3 $-,1 _}.-,,xP7 =3x>= LED x 2 3 $-,1 _-,0/U.U,xT7 $3x|| LED  xZEROPREMAINDERC0C " 223`*g-, g-,,X-,` -,1,X-,,x\7 Su+HC_ 3xISINISIN LED x 3 $Q&l7 g3xU:H;uISATOMISATOM LED xATOM $i;t7 53xISNUMW)>UISNUM LED xNUMBERP !i;7 63xEXISTSEXISTS LEDpd# x-, $-, $-,z].R,x7 73xNULL 3x. LED<% x &!n]*r &7 :<'x@@ LED) x ("}.Q ' M(#7 w'x{ NUDuxGATHER  Q 1B<+ A ' "&` " +-,0` U "<',x7 { LEDu)C_- xUNION ( & /(#7 ExD; LED1 xINTERSECT ( & $(#7 GD;x~~ NUD3xSETDIFF $5$7 IW;u~ LED3 x 3 & 5(#7 3xW)C_ LED7 xELEMENTP 7 3 9(#7 73xD; LED; xSUBSETP ( 3 $(#7 u*U*W3xULIBLSPSETSFASLELEMENTSSYMDIFFCLEARSETSU== =*? +/5A9!C %%/5!xU9C_^^ LED"E x ("  $(# 7 "xW;uCAT LED# x (  $(# 7 x| NUD40C GxABS "$2 $o " ' Q,x 7 ++ NUDI%x ~uyzPfdf 1C[(Z (2H` "Z2` Kk@C",x (7 Y+ LEDI& x "Z2 I K}*p $(# 07 _IKx-- LEDM' x!Q_ "\2 M K $(# 87 cMKxWh;U- NUDMOx "[2 K$ <7 g** NUDQ!C(Qx~yuzPfdf [(Z (2H` "]2 uj+ n "(,x D7 i* LED() x "];u2 (( S $(# H7 (Sx/W/ LED*U x2 "^2!A@S-,1,X-,-,1`03-,7,X-,,xC T7 *Sx/:o+x/: LED+W x2">U (+ S $(# \7 |+SxREMREM LED4;,Y x2 S $& d7u+@C,SxMODMOD LED-[ xS-,1`_,X-,7 $--,,x l7 -Sx ,8as " 6!gg11 $ a5B `4N g `m` #.W `,x h7**o.x** LED.] x]2 S $& t7 % u*U.W./x+#-#*#/#\\o_o0oao1ocx+# LED_2 x"wjr _ K I(# 7_Kx-# LED0e x (0"}." K M(# 70Kx*# LEDa3 x a S!oUd" $((# 7aSx/# LED1g x (1 S $*D;(# 71Sx\\ LEDc4 x &o c& 7u*Ujrcox+$-$*$/$oio5oko6x+$ LEDim x i"}." K i(# 7 ?iKx-$ LED57 x (5 K!oUd" $5(# 7 C5Kx*$ LEDko x k S kDC(# 7 GkSx/$ LED68 x (6 S $6(#_*U*u 7 K6Sx:N::A::V::X::^:oqo9oso:oux:N: NUDu`dq;xBOOLES-,1 $&-, `] -, w-,,x 7 O:A: LEDr29< x $9S,X-,7 $n u-, w-,,x 7 Y9Sx:V: LEDr2sy x sK,X-,7 $~ u-, w-,,x 72sKx:X: LEDu0:= x $:K,X-,7 `_ {-, w-,,x 7 o:KxW);u:^: LEDu> xLSH &/ }& 7=u/xPRINTw:Uj" ?ix ix ixWRITEWRITE NUD@x 'iJC] /-,Uz09J5 K im 7 }NEWLINE;NEWLINE NUDAx "h5 7 UREADUREAD NUDBx, $B-,,x 7 UWRITEUWRITE NUDCx, $C-,,x 7 UFILEUFILE NUDDx, o $D-,,x $7  [n6  9 u!x;