;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GPRINT 647pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071GPRINT647VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xANDFEATUREU+UjWCOMPLRSPECIALPRINLEVELxGPRINLEVEL-ABBREVxBOUNDP#xW+UjuPRINLENGTHx^Rx^WxOUTFILESxTYOu:]jwxGRIND-MACROEXPANDEDxGSHOW-ERRORSxxGFORCE-MORESx xW+UnWPRINENDLINExxPRINSTARTLINExxGCHECKRECURSIONxu;UjW xPLPxxPLP-PROPERTIESx:FUNCTION:VALUExW:]jwGSPECIAL-FORMATTERSxxGHUNK-FORMATTERSxxGARRAY-FORMATTERSxxW:]jwGPRINT-ARRAY-CONTENTSx xGOVERRIDING-LIST-FORMATTERSxxGLIST-FORMATTERSxxW+UnWGSYMBOL-CAR-FORMATx:G1TBLOCKxGNON-SYMBOL-CAR-FORMAT x  xGAPPLY-FORMAT xW+Uju:GAPPLY-FORMAT  !xGFN-FORMAT!x:GFN-FORMAT!!"xGSUGGESTED-FORMAT"xGPRINLEVELu:].W#xGPRINLENGTH#xGPRINENDLINE$xGPRINSTARTLINE$xGATOM-PCODE%xW+UjuGEXPLODING%xGOUT&xGMAINFILE&xGLINELEN'xGINITIAL-CHARPOSu;Ujw'xGNOWPRINTING(x((xGABBREVED(xGTRUNCATED)x))xW:].uGPARENTS)x))xGRPTR*xGQUEUE*x**xGQLu:].W+xGQR+xGTSIZE,xGLSIZE,xGQS-xu:].W--xGQSP-xGLINENO.xGFREELEN.xGPENDING/xW+UnWGPENDING-NEWLINE/xGDEPTH0xGPS0x00xGPSP1xW*UjWGF-ARGS1xGFGF MACROMACRO223x=d "CEXPR-HASH234xU*U*GF-PARSE1GF-PARSE2GF-PARSE3GF-GROUPGF-CODEDISPLACESUBR,8ZL3[45Z`Z566 $:W-, $,X$7(7DEFGFDEFGF MACRO883xW*TP?T)894x:GFORMATgfDEFUN9z E*St,8Z[-,:z A&,8ZgZ[-,  P0 $2-,-,:z A&-,,X -, $:-, $,X$77U:\PGFNGFN MACRO;;3xbJC;<4x:z A&,8Z[ (-, $2-,-,:z A&-,2@d $-,-, $ -,u.W $,X$787GFORMATGFORMAT MACRO<=3xDn(E==4xU*UnuARGSGFORMAT-END*APPENDLIST[~a]@p@@x@ xFORMATU(GPRINT1GEXPLODEIMPLODE,8Z[,8ZgZ[,8ZgZZ-,>>z 48@? $?-,,8 ,(,8,8`d,88,8g~",<A-, $;-, `,87@g~+0z un2-, g~-,a( g-, $A-,+5z un2-,2@  $-, g-, $B-,0`0-, $B-,,/0i:u $,X$7@P7|&] J4C4xEXPLODENU*U*UNREVERSEMEMBEROPENU*U*UCLOSE-GO-IN.GO-OUT=START>ENDU*U*UPERIOD$END-SUB<U*U*U>%&/_U*U*U*NAB U*U*U0!1!C1"E2U*U*U$I4'7(P8*U*U*U:)S9ASSOCEQUALSTART-SUBGF - unknown characterERRORU*U*UGF - unmatched 'READLISTU(0,8C,8-,~ 6@g~ += gD+%Zg~,8g~[`/ Bg~ DgDEEFz '$f gF5B:GGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVUWWXXUYYU YZXZX[Y[Y\\]\]^^^__`_`WaWabbbc c ddedz ]eIMk ge Z D`7@g~+K[g~ 80N+KOz 0$fD `f4BKZg~fzPFfK Dg~ J`6@`+Q` ,Q,8,8& g}-, g~-, ,8",<gZ`4BV,8` g~ Bg[` -, Bg~/+Q[` D` g  `-, BgOSTU GKzPm;]&4J:[(Z (2H` `+Z `0B+r,86@g~+c ,b@,8,8',8g|",<g+l[g~ 82Og+lZg~ Bg~Z4Di[ 83Og+lL @0 `DB-, $-,+qZg~,8g~ g Bg}[`-, Bg/0ABA +^/+#1BO+u1BS+u A@0BT+,8[g~ 80N+yZg~  " Dg~+7@g~+}[g~ 83Og+}@30N+Zg~ Bg~ `Dh-,  $-,+Zg~,8g~ g Bg}[` 0-, Bg/+y/+# P(1BU+ 1B + 1BG+ 0BK+#,807@g~+[g~ 80N+Zg~ "T Dg~+"Viijjkkllmmiz '$f[g~F4BZg~,8g~ Dg}@ g[`-, Bg/++( iijjkkllmmiMz g$f[g~F4BZg~,8g~ Dg} g[` -, Bg/+7@`+! `Ea Dh+" "/+# " g `"-, Bg+:/,xgh]:U*UH78#"@pn5n4xGF - < and . must be immediately in [] or ()ASSQGF - unmatched bracketsGFIRST(),8-,~ 6@g~++ gD+nZg~,8g~[` Bg~ Dg1DQ+/0DN+5[g P"1FI+51FG+5 ,5,8,8o,8AA ",<g g1BH+91BJ+91BP+9 @P0BR+AZg,8g DgGH IJ fP QR z zcg)[`oZ"/3Dg+A ,A,8,8o,8A)",<g g0BG+P gfz FfKIGzM besp 4BG g~ "f-, Bg~Zg~,8g~Kz <v4UH( Bg}[`-, $-,pz Zu-,2@0 $I-, g~? Bg~/  0+f0BH+X g~LqJzT~c#N? Bg~ gfz FfK)DIGzM besp4Bf g~ "P-, Bg~+f P( 1B+_1BT+_1BS+_1BO+_1BK 0+_1BU+_0B +d g~-,Zg~`,8g~ Dg}[` Bg~-, Bg~/@ +f g~-, Bg~ g1BG+k1BI +k1Bf+k1BQ+k/+( g 0-, Bg/+(/,x".] noP7'KC^_pq4xMEMQ,8 "-,0,8,87@g+{[g g4Jx[(Z (0H+t " +{ `r5B{ZgP W Dg+r "/,x7 p6I^co5r4xU*]nUGF - too many argsssttpuuxu xCARToo fU;]nwew argssvvwpwwxw xsvvwpxxxx xsvvwpw( xxxx xXP-,>,8-,~ H"6@g~+7B>+ ,,8,8U,8", <g gD+TZg~,8g~[` Dg g@Q Bg} g-, BgIb\d_VSOfzPA66H4J[(Z (@ 2Hg+ 7@g~+6@g~7Uu:zRZ@ g-,0B Bg+6D>+ ,,8,8V,80 ",<g+Z F>[-,D BgTSOKU zPY*)f4J*[(Z (2Hg+[g}1B0+!Zg},8g} Dg} g~[`-, Bg~B/+*6D>+% ,%,8,8V,80 ",<g+*Zg}Z B>,8 g~[`-, Bg~ Fg}/ g0B^  0+46D>+0 ,0,8,8W,8",@@<g+4Z F>,8 g~[`-, Bg~/ g1BJ+70BP+:Zg~e,8g~[` Dg~ Fg}/Jb\d_VSOPzP[b?)4JF[(Z (0H+:7@g~+F6@g~+F g}IJb\d_VSOfPz J2ur)DNzl6R3p4BD g "y-, Bg+F@ g "-, Bg g0BN+I * ( Jg~/+~0BI+N g~ g~-,0 @@g~ Bg~/+~1Bf+P/0@d+~ g~ g~-, * Bg~ Jg~ "/+~/+u:"ujPwxxX7|[D,^6y4xGF-GROUP-LISTGF-GROUP1-,1 :pzz+`7W8p7z{4x,80B,86Bz+] gD+ ZA Dz[ F`1FJ+a0FP+b gD + 1FI+d0Ff+l g*-,Zz,8z Dz[` Bg-, Bgza g-, Bg/+Z1Fb+v P( 1F\+v1Fd+v1F_+v1F+v1FV A +v1FT+v1FK+v1FU+v0F +|D" g*-,Zz,8z Dz[` Bg  -, Bg/+Z1FS+~0FO "+ g*-,Zz,8z Dz[`D Bg-,Zz,8z Dz[` Bg~-,0B Bg~/+Z g*-,AA:u Bg+Z/,x(7Yi;L6{4xNOTU*U*UPAIRPRETURNPROGLETGF-ENDCDRLGOGQU*U*U:PRINC:SPECIALGDISPATCHFUNCALL:START:END:NEWLINE:ALWAYS:NORMALU*U*U:BLOCK:SPACE:TAB:EVALinternal bug GF-codew8`s  p  x x,8,86@g+ `@D+Zg,8g $[`,8 Dg~0BI @0+Z[-, $:-,-,05Z,8[ Dg~6||:}z Ua!|w-, `0 $-, $}-,-,,X  -, $~-,+0B+ ~::}z6%cI "A +0By+"::z84 +0BN+$ "N+ P( 0BQ+& "+0BR+(zLF+0Bbd+.Zg~,8g~[`-, $%-, a $-, Fg~/+0B\+5 P2Zg~,8g~[`-,z .GD-, $ -, Fg~/+0Bd+;Zg~J ,8g~[`-,z X>aA-, $-,0BA Fg~/+0B_+?Zg~,8g~BA[` Fg~/+0B+FZg~,8g~ d[`-,z X>aA-, $-,( Fg~/+0BV+LZg~,8g~[` @0-, $-, $-, Fg~/+0BT+RZg~,8g~[`-,2@  $-, Fg~/+0BS+ZZg~,8g~[`Z *[*-,0H $(-, $-,/P Hg~+0BO+cZg~,8g~[`Z *@ [*-, $(-, $-,0A/ Hg~+0Bf+oZg~,8g~5[`Z,8[ Hg}6:z A&-,  @0 $-,-, $ -,*` @0-,,X-, $-,/0P +0BK+vZg~,8g~[`-,(`z /E-, $-, Fg~/ "A(+0BL+xzRc+0BX+zzoUIK+ T( 0BW+|zrSIz4+0BY+~z1;IJ+0BU0+Zg~,8g~[` Fg~4B/+  P2 "/-,z [OA-, $-,+0B + Zg~,8g~[`-,2AHz /*%Q-, $-, Fg~/0P +0B^+Zg~,8g~[`-,(`z +OED-, $-, Fg~/@ `+ ,,8,8,8",<g/0@0 `-, B`+ /,x%kU* h7 <<+$1~ 4x. GABBREV-LENGTH,85B D2 " +-4B*7@ " (B{Z0B?QD+ +* $ " $ " $ !Q " $ " ` " $!P " " +-Z`6@g " [`.U /,xh7f:1?  4x...,8,8 -.. - (2O#7# " @ ,8 -.. - (3n+7 " +G -.. - (2.+; "+G6@g @ += " +G -.. - (2O#+A D` "+G4DF(D{ `n+F g(N{ 8anb+Gg " / 4!4BN * J( $ " $ "" `] $ " " /,x@7.FBOUNDPU*Uju*FEXPR*LEXPRGPRINTCGEXPLODEC*EXPRA B~%x L2A4x:PRIN1U@GFORMAT-OBJLSUBR-0,8 Z(,8@ g1n+TZ(+U ",81n+WPZ(+X ",81n+[Z(-, 0+[ ,81n+^Z(-,+_  ,81n+bZ(-,+b a,81n+eZ(-,+f  (D"-,p#p#p$$%% g~``5 g} g~ "/+OW+@`>A xSNL24x-0,8  Z(,8 g1n+rZ(+s ",8@(1n+uZ(+v ",81n+yZ(@-,+y ,81n+|Z(-,0H+} ,81n+Z(-, 0+ ,81n+Z(-,+D"  (-,p#p#p$$%00% g~ g} g~ "/+5z\xm> x d=2 4x-0,8 0 Z(,8 g1n+Z(+ "@,81n+Z(+ ",81n+$Z(-,+ ,81n+Z(@-,+ ,81n+Z(-,0H+ ,81n+!Z(-,  "+"  (-,p#p#p$$C%% g~ g} g~ " //U`0+8 >  xN] mB4x-0,8 Z(,8 g1n+.Z(+/  ",81n+1Z(+2 ",81nB +5Z(-,+5 ,81n+8$Z(-,+9 ,81n+B xW@B8 m4x-0,8 Z(,8@ g1n+NZ(+N ",81n+QPZ(+Q ",81n+TZ(-, 0+U ,81n+XZ(-,+X  ,81n+[Z(-,+\ a,81n+_Z(-,+_ ,8 b "-, (-,p#p#p$p$%% g} g} g~ "/0}*p+I> xPLR{=-E4x-00@,8 Z(,8 g1n+mP Z(+n ",81n+pZ(+q "@0,8 ,w,8,8g~,8g~,8,8,80 ,8,8",< /kU.U,xXh> xGSET-UP-PRINTERG Z4xTTYINT U*U%GPRINTABORTSSTATUSGCONTINUEGREPRINTPRIN1zn-dz'\N7M Wz' KG  "A B,xp7xp <74xU*U*U*TERPRI*PRIN1SQUIDMAKUNBOUNDVALUEPLP2EXPRFEXPRFSUBRU GETLPROP,8-,5B~  B,8 ,87@g+8Zg,8g[` Bg DgL 0Z4F`: g(N{6 87g@`[g g(N{6 87g[g,8D g(N{6 87Zg,8(B{6 0@07=Z`,8 g(N{6 8+@ g4J[(Z (0H+[gZZ1D+ * ( & $ g a,8 g(N{6 8+! g4J( 1([(Z (0H+ g~4B( 37 z W;|S g~! g (!Z[[ B` g~ 7Bg~7Z,87@`+7 `3Bg +5 g~(N{6 8+2[ g~4J5 @[(Z (0H+/ g (!Z[[@0 g~ Z`Z B`+*/+  "/,x?C|?r )xGa |OsF| qF.]*   |{V"4x;DICK;GPRINT 647_1.,8-,0 ,87@ " (B{Z0B?+V [`,87@ " (B{Z0B?+Q" 0 $" "[` "Z` B`~`5BQ[` %Z` B`~5BQ[`!@ "Z` B`~/Z` $ 4 B` " ` " "/jU*U,x07=NAMED-LAMBDANAMED-SUBSTDEFSUBSTValue - FNCELLFunction cell -  property - P,8,8,8,8,81H+o4F^ A7@ & (F{Z0B?+o[g1B A +b1B#+b0B$+o1B$7 ": Bg @ 0D+f g~-,+h*-,A g~-,,8[g~0D+kZg~+l @0Zg~Z,X-, $:-, Bg@`05Ju ,u,8,8g~,8,8,80 ,8,8,8",< @ + ,,8 g0B:+y "+0B EQ +{%zwy9+0B%+}&zBAn+0B!+(H &z A-'ET g~-, $'-,+ "a g~-,,8,8,8,8@`,8,8,8",< /0.U,x$#p70Wd%P^'4xNOINTERRUPTTYIR aborted "( , ,8,8(",<(7B(  @]+ $ ")+ ",x7 Z b?ub)4xGREDO "( ,,8,8(",<(!n\C ""* 7ZbHW?*4x "( ,,8 :u,8(",<( " "*07"U9`*+4xFILEMODEU*@!CURSORPOSMIN*EVAL,87D)+c[4Fc,8Z[,8ZZ[,8Z`-, ,8Z-, ,8Z-,0d [,8 g-, $-, 1-, $+-,4B-[ Z D0J,+( ,-,8,8g~",<,[,8D7@g|+3 ,2,8,8,8g|",<,+3 @0 g},8 g~-, $-,-,2F $+-,4B>[ Z0J,@+8 ,>,8,8g,8g|,8g|",<, g~  -, $-,-, $+-,1DA4BG[ Z0J,+B ,G,8`,8e,8g}",<,6@g|7e[g~,87@g{  +K "-+LZg~[,87@g{+O "- +PZg}Z[,87@gz+S " +TZg}-, $Zg}-, -,D p#p#p$$%% g}-/0, g}3Og+_ ,_,8,8g}@ " ",<6@g|+b g|QC) )+b "`"/+d "/,x-]:U*U 7IIK%.4xzSUBSTCHARPOSLINEL*ARRAYU*U*FIXNUM <GFORMAT-OBJ1*PRINT*PRINC,8,8(" ,8,8 #5Bi ". B# #5Bk ".!! B# $5Bm ". B$ $5Bo " B$d4Hu7@ ( (H{Z 1B?+u `#-, B` ` $ / B`7@g~ B!+~6D%+~ $5n~ $4n~ ,~,8 `1,8",<,X-,-,&H$ [5B7D+7F+[5B  &-,&+&zii TF4B [ Z0J,@@0+ , ,8,8&",<,,87@g~+ D " + ,,8,8&",</-,@@2' ,,8,8&",<0/'/.-,0@b -,'-,. * -,1 1 . ( -,/-,/ D & -,07D(+" ,!,8,80 1,8,8 :",<0+' *5B'@a ,&,8,8,8,8 ;",<0H B*-,* * -, + ( B-,+7D(+0 ,/,8,8@b!,8 ;,8 <",<0+5 -5B5 ,4,8 2,8,8 <,8 =",<0 B--,D!- * -, -7D(+< ,<,8 1,8,8 =,8 >",<0+A 05BAB ,A,8,8,8 >,8 ?",<0 B0 b-,0 * -, 17D(+I@a ,H,8,8,8,8 ?",<0  +N )5BN ,M,8,8,8 @b,8 @",<0 B)-,)-,D@1( *3-, * ( -,, "-,~ & -,, - -"0 Q -.. Np *p - ( 0 Q -.. Nw *w - ( 0 Q -@.. Nw *w - ( 0 Q 0 1"0 Q 1.. Nw~ *w~ 0 ( 0& Q7B+x+&zii TF4Bp[ Z0J,@$)+k ,p,8,8 @,8&",<,+&zii TF4Bx[ Z0J,+q ,x,8[g,8!Zg,8,8&",<,7B+| g g~E g3+ " $ -. gx gxA@a gy3-,+ 5B " $ -. ` A gy4-,+ D 5B ` D` G g,< "p4/1B7B(+ +6D%+ +7@`+ +[`,8)DA+&zii TF4B [ Z0J,+  , ,8 ,8&",<,,8 %-, .-,2D $.-, #-, #-,0 @0,8 g}-, $-,,8` g}-, $-,,8 &-,2@` $-,-,,X-,d,X-, $-, $-, 1-,,X-, &-, ' 1-,[`-, g-, B)& /7B%+ .DZ+ . " /0 ,,,,@`0,,,,,0 ,,,,@`0,,,,,0 ,/,/D"+P112121"@F1PFj |r/I|?r /xGb?x( xe&vOD|;pv@|r/I|?r /xGb?x( S;'b?x8 uj[Vu86xa@ 7(f$;E>354x ,8,8 @1,8 " $ T-. * -, (0 -, gx "7@gy+ R $5!E`0 "+ S ",,+0P( 0 5B V " + W " B(/,x]:U*U87 H*c]64xGETUSRHUNKSENDI:WHICH-OPERATIONS:GFORMAT-SELF:PRINT-SELFU*@bPRINTGFORMAT-HUNKARRAYGFORMAT-ARRAY-,",8 *B-, *7F+ ]* B` -B.. - (3/#+ i `4N i(N{ 80`n+ i `(N{ 8`nb+ i!  * J(  "+ T,87@`+ pa [`,8 gC`/4B n " + paZ` D`+ i "/5B T `4N w(N{ 8`n+ w `(N{ 8@Fanb+ y ` %+ T6@`+ z+ } A7B` " (B{Z0B?+ %,87@` + [`,8 gC`/4B  " ( + Z` D`+ ~ "/5B T7D"$+  `B+ T,86@`+ [g,8@4B (B{ an+  $9 `6 $!5B  `4B 7! + 6@`+ d+ 7B` " (B{Z0B?+ [` P(1B+ 1B#+ 0B$+ 7  /0a,8 gC`/+ $[`,8BA gC`/4B " " + $Z` D` 0+ /+ T `(N{ 8an L 0+ F7zn zR,87z|Q,87@g+ / gCg4B / $8 gE`+ / ",84B 5[ Z0J8+ 0 g~ $8 "Ggb+ E ` "9r5B : `4J <[(Z ( @F0H9+ 7 g~ %+ E,86@`+ ?D g~:+ D[`,8 g}C`/ 04B C " + DZ` D`+ 4xGCRL1,<0 ,8Z,8 ,87B` " (B{Z2a1B?+ u g-,+ `=5B x g g `>,84B Zg~,8[g~-, g~/.,8,< p5N @ `D gXK`+  `[g-,>pZg B` Dg+ }//+ / g.. Np "pZ` BgA@`0 D`+ p/-,//0ujW,xX7 n'q F>?4x*NOPOINT%~a@pw(@@x@ xINTERN,8,8,8 "-,  ,<,8 p4N  `2Bg~+  * -,1a ? , ,8,8,8  (p,8L ",<AA,+ >pZ D` @`%+  "//,x@h7 W+]`pJ=A4x^~aBpBBxB x,8 */.@,< p4. 0 )(.4. %[+ %ZP !2B`+ / * -, ? , -,8,80H,8 2 */p,< (p,8",<A  /A,+ 1>p+ ! "@KW//,xBP7 )g*=:C4xU4!HUNKSIZE . $,8 " $p "`,< `C Np "p,8 1N0g .,< $ " g p-,0hC $ " $D " p4N L D:p p2O`+ E@@p $ " p0Ng " ,8 g-, $,XQD 4B < $q " $ "/0.U/,x 7 3]hMq;D4xARRAYDIMSFLONUMU)CLENGTHGFORMAT-ARRAY-1GFORMAT-ARRAY-2 $ ,8 " ` % 7B+ g,< `E,8[ P(1D1+ [1DE+ [1D + [5D fZ[8@` 84N fZF Np *p,8 (=N c  g gF+ f (0N+ f g g "G/// $ "ujU/$07 Qli#- FG4x contains[]@@!,<,:,8 $H,8 "" 2 $ " $ " -.. -$ (3/#+ v * J(  "+ " 00 $ " $H ",<[g0Zg[8 8/. Np *p,<,8hC,8 $ " $ " g0B1 +  g p ( Nw "w+ 0BE+  g p ( Nh "h+ g p(.C4. [+ Z $ ":p p@S 2o`+ 2O`g " z :w 5B  $!E4! "+ ~ $I " $ "@`0/////0.] ,xh7 ix}}~nGI4xGFORMAT-ARRAY-2-1,8 $H,8!QD " $ " $ " -BB.. - (3/#+ ' * J(  "QD+ = $ " $H ",<0Zg[8 8/. Np "p,<,8 g $p gJ:p p2o`+ 9&!2O`g " z :w 5B 9 $ "" (C" $ "+ / $I " $ " ///,xp7 W@`!lqJJ4x,<,:,8,<,8 -.. - (3/#+ G * J( !E4! "+ q $ " $H ",<[`Z`Z8[8 8/. NpD *p,<,8,8 $ " $!A " g0B1+ Y g~ w".$( p. ( Nw~ "w~+ e0BE+ _ g~ w".$( p. ( Nh "h+ e g~ w".$ p.(.4. d[+ eZ $ ":p p2o`+ m&!2O`g " z :w 5B m $ " hC+ P $I " $ "/@`0////,x]+Uju 7 >FLUSH-MACROMEMOSDEFUN-DEFAULT-GFORMATKKKxDEFUN-DEFAULT-GFORMAT MACROKL3xQN>fsLL4xMACROFETCHU*]nUWrong number args for macro~a-:GformatNNOpOOxO xDEFPROP-DEFAULT-GFORMATEVALU(LOADEVAL-WHENMACROMEMO,8M5B  `F0.@ + z , z,8,8 ,8g",<gZ`-,1 >[Z[ H>Z ,8,8B , ,8,8,8 ,8",<AA 2,X,8 >-, `-, $: @0-,*g-, $-,*` -, $-,-,,X-,2@` $P-,-,,X-,(`2PQz Kn&d-, $Q-,, &K % $ `R/,xMO@7 sW(C y`u<PR4xPUTPROP,8,8 $965B  &9 ( ` gS+  "/,x7 W4!?o+C&"S4x $,8 " $p "@,X-,,87@ " (B{Z A0B?+ /[` "Z` B`~5B /" 0 $ "[` "Z` B`~ hA"5B / $ " $ "+ ( $q " ;U $ "/$ 7 :GTBLOCKxnNrDTT4x $,8 " $p ",X2-,,87@ " (B{Z0B? hC+ C $ " $ "[` "TbDZ` B`~5B C $ "+ ;"  $q " $ "/$@7 3W4!1 ?`)U4x $,8 " $p "@,X-,,87@ " (B{Z QD0B?+ W $ " $ "[`!@! "Z` B`~5B W $ " h@1+ O $q " $ "/$]+Hx7 G:GBLOCKQ!mUV4x $,8 " $p!@ ",X-,,87@ " (B{ CZ0B?+ j[` "UZ` B`QD~5B j $ " $ "+ c"  $q " $ "/$X7 [U9C":G1BLOCKR|VW4x $,8 " $p "@,X-,,87@ " (B{Z200B?+ |[` "Z` B`~ hC 5B | $ " $ "+ u $q!Qc] " $ "/$h7 m:GMISERW4!WB SmWX4x $,8 " $p "@,X-,,87@ " (B{Z A0B?+[` "WZ` B`~5B" 1" $ " $ "+ $q " ;U $ "/$x7:G1MISERTR|rDXY4x $,8 " $p ",X2-,,87@ " (B{Z0B?` +![` "Z` B`~5B! $!Q! " $ "+ $q ""G:W $ "/$7:GNOTHING-:GformatByKYZ4x .]*u ",x7%:GNOTHINGPZYx:GUNTERPRI-:Gformat.strC[[4x:GUNTERPRI*}.\&z + J "$07&P\[x ;Xmp\\4x,8-,2@d $-,-, $+-,@4B0[ Z0J,++ ,0,8,8g@",<,[,84BD 4nD g-,2@d $-,-, $+-,@4BC[ Z0J,+7 ,C,8 g/.,< *p,8 ,?,8,8g~",<0/.,< (p,8,8g~",<,/ A:W+D "/,x@7'SETQ-:Gformat\MJ0]]4x hC $,8 " $p ",X-,0 ,87@ " (B{Z0B?+c 1"[` "Z` B`~5Bc $ "` [` "Z` B`~5Bc $!Q " $ "[` "Z`E4! B`~5Bc $ " $ " 1"[` "Z` B`~+U $q " ;u $ "/$P7EP]xSETF-:GformatrD^]4x $,8 " $p ",X2-,,87@ " (B{Z0B?` +[` "Z` B`~5B $!A "[` "Z` B`~5B" 0! $ " $ "[` " (C"Z` B`~5B $ " $ "` [` "Z` B`~+v $q!Qc] " $ "/$`7fSETFu+TP^^xQUOTE-:Gformat@ r5K__4x',8Z4DZ hC5F $ " $` "Z`[!Q " $ "+"/zUj,xp7P_xFUNCTION-:Gformat@ d'`a4x#',8Z4!4DZ5F $ " $a "hC Z`[ " $ "+"}*u/,x7P `x`-expander|-:Gformat#Qr|Ubb4x` hC $ ,8 " $c "Z` " ;W $ "/$ 7`-expander|PcbxU:H`,|-:Gformat#Qrvdd4x, $ ,8 " $e!AD "Z` " $ "/kU.R$@7$`,|Pedx`,@|-:Gformat{I&ff4x,@ $  0!,8 " $g "Z` ""G:u $ "/$`7+`,@|Pgfx`,.|-:GformatW)C"D{I&hh4x,. $ ,8 " $i "h@1Z` " $ "/$]:Uj 72`,.|Pihx`.,|-:Gformat{I&6jj4x., $ ,8!Q " $k "Z` " $ w.U "/$ 79`.,|PkjxMACROEXPANDED-:Gformat9#Sip `ll4x,87D+C-, [+D-,0 ;W * "/$@7@MACROEXPANDEDPmlxU:HDEFUN-:Gformat\v+`mn4xDICK;GPRINT 647_2. $,8 " $p!@ ",X-,,87@ " (B{ CZ0B?+V[` "Z` B`Q~5BV $ "[` "Z`QD B`~ $q " $ "/@A $h7F,8Z[1D+b1D +b @A 1D3+bZZ[1F+b1F +b QD0F3+ $ " $p " `2-,,87@ " (B{Z0B?` +[` "Z` B`~5B $!A "[` "Z` B`~5B" 0 $ "[` "Z` B`~ `C5B $ "[` "UZ` B`QD~5B $ " $ "[`!@2 "Z` B`~+|/ $q!Q! " $ "+& $ "" ` $p " `-,,87@ " (B{Z0B?+"[` "Z`E0! B`~5B" $ "[` "n (CZ` B`~5B" $ "[` "UbDZ` B`~5B" $ " $!A "[` "Z` B`~+D/ $q " $ "/0/Uj ,xX7YP:mxc_[Cx!o4xDICK;GPRINT 647_3. $,8!Q0 " $p ",X-,,8 A7@ " (B{Z0B?+6[` "bDZ` B`~5B6 $ " $!E4 "+/ $q " $ "/1nH;U$x7'GCHECK-INDENTATION $o$p79LAMBDA-:Gformat/ &Enu4!pq4xDICK;GPRINT 647_4. $ ,8 " $p "@,X-,,87@ " (B{Z A0B?+Q[` "Z` B`~5BQ" 0 $ "[` "UZ` B`~ hC5BQ $ " $ "[` "bDZ` B`~+J $q " $ vC_ "/$7: $q$p7UPpxU:HNAMED-LAMBDA-:Gformat&( Urr4xDICK;GPRINT 647_5. $ ,8 " $p!@ ",X-,,87@ " (B{ CZ0B?+r[` "Z` B`Q~5Br $ "[` "Z`E0! B`~5Br $ "[` "U (C"Z` B`~5Br $ " $ "` [` "Z` B`~+k $q!QcZ " $ "/$07V $sz]$$p 7uP#rxNAMED-SUBST-:Gformatsr4xDICK;GPRINT 647_6. $ ,8 "` $p ",X-,,87@ H! " (B{Z0B?+[` " (CZ` B`~5B $ "[` "bDZ` B`~5B $ "[`!@! "UZ` B`~5B $ "" 0 $ "[` "Z` B`~ h@1+ $q " $ "/$Z}*u@7v $t$p87P$sxLET-:Gformat~r{@dtu4xDICK;GPRINT 647_9. hC $,8 " $p ",X-,0 ,87@ " (B{Z0B?+( 1"[` "UZ` B`~5B( $ "`C $ "[` "Z` B`h@1~ $q " $ "/$]4!X7DICK;GPRINT 647_10. $,8 " $ "" ` $p ",X-,,87@ " (B{Z0B?+?[` "UZ`E4! B`~5B? $ " $ " 4![` "Z` B`~ $q ""G: $ "/$`7,DICK;GPRINT 647_8. $,8!Q0 " $p ",X-,,8 A7@ " (B{Z0B?+T[` "ubDZ` B`~5BT $ " $!A "[` "vZ` B`~+M"  $q " $ "/$h7BRDDICK;GPRINT 647_7. $ ,8 " $p ",X2-,,87@ " (B{Z0B?` +o[` "Z` B`~5Bo $!A "[` "vZ` B`~5Bo" 0! $ " $ "[` " (C"Z` B`~+h $q " $ "h;u/$p7X $w$pH7rP~txLET*-:Gformatu4!wu4xDICK;GPRINT 647_13. $,8 " $p "@,X-,,87@ " (B{Z A0B?+[` "UZ` B`~5B" 0! $ " $ "[` " 4 Z` B`~ $q " $ "/1nH$7sDICK;GPRINT 647_14. $,8 " $!Q0 " $p ",X-,,8 A7@ " (B{Z0B?+[` "UbDZ` B`~5B $ " $!A "[` "Z` B`~ $q!Qc] " $ "/$7DICK;GPRINT 647_12. hC $,8 " $p ",X-,0 ,87@ " (B{Z0B?+1 1"[` "xZ` B`~5B1 $ "`C $ "[` "xZ` B`QD~+* $q " $ "/iC"$7DICK;GPRINT 647_11. $ ,8 " $p "@,X-,,87@ " (B{Z200B?+K[` "Z` B`~ `C5BK $ "[` "yZ` B`QD~5BK $ " $ "[`!@! "Z` B`~+D $q ""G4 $ "/$74 $y$px7OW*]$LET*PzwxCOND-:Gformat>O7p_z{4xGCOND-FORMAT2 $,8 "` $p ",X-,,87@ H! " (B{Z0B?+c[` " (CZ` B`~5Bc $ "[` "{bDZ` B`~5Bc $ " $ QD "+\ $q " $ "/z\ $(7PPzx]&zf{|4x,8[0D +" 0 $ " $p " `-,d,87@ " (B{Z0B?+|[`!@! "Z` B`~5B| $ " 1"[` "Z` B`~5B| $ " d! $ "+u/ $q "" (C" $ "+ $ " $p "@ `-,,87@ " (B{Z200B?+[` "Z` B`~ hC5B $ " $ "+/2hC $q " $ "/j]* ,x87gPROG-:Gformat2Qz,|}4xGPROG-FORMAT2DICK;GPRINT 647_15. $ ,8!Q0 " $p ",X-,,8 A7@ " (B{Z0B?+&[` "bDZ` B`~5B& $ "[`!@ "UZ` B`~5B&[`}Z`E4 B`~+# $q " $ "/1nU $`7GDEFAULT-SPACESGSPACES,8 *~-,1 $  (~-, $~p,0 >W/+H7*P}|x%^B}4xUD!FLATSIZEMAX,8 2O+5 $ ""  $5 " `(N{7 8+> ` /0/ -, B `Q % $ "+E ,A,8,8 0!,8F",< $ " ` "@KU  B/,x X70DO-:GformatXg<u4!4xDICK;GPRINT 647_18. $,8 " $p "@,X-,,87@ " (B{Z A0B?+_[` "Z` B`~5B_" 0! $ " $ "[` " (C"Z` B`~5B_ $ " $ "`"[` "Z` B`~ $q " ;R $ "/$ (7GDICK;GPRINT 647_17. $ 0,8 " $p ",X-,d,87@ " (B{Z0B?+p[`!@! "Z` B`~5Bp $ " h@1+j $q " $ "/$])C" 07b DICK;GPRINT 647_16. $ ,8 " $p "@,X-,,87@ " (B{Z200B?+[` "Z` B`~ `C5B $ "[` "Z` B`QD~5B $ " $ "[`!@! "Z` B`~5B $ " 1"[` "Z` B`~+ $q " ; $ "/$ @7s,8 * b!-,  (-, $p@kW,/+ 7DOPxW*U j}R~p4xGESTIMATE-INDENT;----------| ,8,8,8 '&. 20+ gCg+B" ! $ " ./`,< $p "" 1 $ " $ " ,+,8 g/.,< *p,8,8C",</ 4! $ " $ " $ "" D $ " gCg $ " $!D " ,;,8 g/.,< *p,8 ,8C",</ $ " $!QD " $ " $ "/0KW/,x  7! K4xQ@ 1GDETERMINE-INDENT 1.. 0 ( +-, +$ ,< +2/++a * +(.4.L[$+MZ0B+_ +.. *(.4.Q@"[+RZ5B_ ,],8 +.. *@  (.4.W[+WZ4BY +Z .p,< *p,8,8c",</0@  Np +..-, B++H KW,\-, + X7Dg@4\4xU*@`FLATCGUPDATE-SIZESGEXPLODE-ITGPRINTOUT-,|,8-,  * +(.4.hQC(+hXC(,8 +b.. Np *p "-, * ((.4.oQC +oXC +.. Nw g0B A +s "+0B+x1D+w1D+wg " +0B+{* Nw "w +1B+}0B+* Nw "w A +0B+ "+1B+1B+ A`1B+g " -, (w-,  *  (.4. QC+ XC g0B@ +/-,~ -.. - ,< -!H "< -..,8-, B- `"/2n+ ,,8,8-,8 01..(,< *p,8",<QC(+>XC( - - ,< "p / -/. -, B- g1B+H1B+H1B @ +H0B+N +.. *(.4.L[ (b+LZ ( ,. -, B, g1B  +R1B+R0B+Z -.. -.0 - Nw}  (.. *w} Nw} (w} - (  Q g1B+]1B+]0B H2+^ + * "< +..,8`-, B+ `/2n+j ,j@,8,8*,8 ..,< *p,8A@b ",<p+/ * +(.A4.[+Z,80B+ , ,8 +.. *(.4.[+Z,8 (,8&",<+)1B+"0B+) ,)@,8 +.. *(.4.'[+'Z`b,8,8&",</ +.. *@ (.4.-[ (+.Z ( ./ -, ( B. " B/+0B+A6D/+@ + .. *(.4.7[ (+7Z ( /. @ -, B/ +.. *(.4.=[(b +=Z( ./-, B.+ " B!+0B+f 05ne6D/+e,<,< +.. *(.4.H[+IH@Z5BU 0 1 (4.N 0 1 (D0 Nw~ "w~+U,80,81 g ` D Q(/ 0 1 ( Nw~ "w~ '@/. 1.0 0,<  (,\/& Rw *w,8,8 (4N` /(@ Np "p B` /.`-, B/ .@`0/`-, B.//+ P$ "+0B+ 05n +.. *@  (.4.l[+lZ,81B+o0B  +p " +~0B+} +.. *(.!4.t[ (+uZ (  2o.+w 05.|  1.. 0 ( '/.2.g " a+~ "+~ "/4B 1..D  0 -, B/ '/-,   B. * J0 " B/+ "+ "@D//,x1 4iP D]8@b!(7;F =. 4x +-, +,8b,< +..-, B+ 2/+ +/ * +(.4.[+Z,8 P 01B+0B+ 7@g+/+/ +.. *(.4.[ (+Z (  (.np * Jg+.0B+& +.. *@ (.4.$[ (+%Z (  .np+.0B +.7@g+)/+/ +.. *@ (.4.-[ (+-Z (  .np/@`5+,\-, /+!7 WDm9$E4  4x,< 1.. 0 ( '/ +,<` Pw (w-, +,<0$,8 p5NH +.. *(.4.=@`[+>Z(B{ anb+H ,G@ ,8 *w,8 +.. *(.4.E[+FZ,8",<  Nw * +@ (.4.K[+LZ,80B+N:p b+P0B+P>p/ +..-,1B B+ 2/++T+9:w ,Z,8,8g w&..w,< *p,8",<,0/ `& `&//0`0, -, /,xkU*!H712p*'U 4xEXPLODENRECONCEXPLODEC * +@  (.4.d[+dZ,80B+p + .. *(.4.i[ (+jZ (,< p  4Nn % "5-, B%@@p+j " /+0B+w +.. *(.#4.t[+uZ % B%+ P$1B+y0B+ +.. *(.4.}@d2 [+}Z % B%+ "~/,x! 7a;