; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GPRINT 647   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071GPRINT647VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xANDFEATUREU+UjWCOMPLRSPECIALPRINLEVEL!#xGPRINLEVEL-ABBREV!#%xBOUNDP#%%'xW+UjuPRINLENGTH!#x^R!#)x^W!#xOUTFILES!#+xTYOu:]jw!#xGRIND-MACROEXPANDED!#-xGSHOW-ERRORS!#xxGFORCE-MORES!#/x// xW+UnWPRINENDLINE!#x1xPRINSTARTLINE!#xxGCHECKRECURSION!#3xu;UjW33 xPLP!#xxPLP-PROPERTIES!#5x:FUNCTION:VALUE557xW:]jwGSPECIAL-FORMATTERS!#xxGHUNK-FORMATTERS!#9x99xGARRAY-FORMATTERS!#xxW:]jwGPRINT-ARRAY-CONTENTS!#;x;; xGOVERRIDING-LIST-FORMATTERS!#xxGLIST-FORMATTERS!#=x==xW+UnWGSYMBOL-CAR-FORMAT!#x:G1TBLOCK?xGNON-SYMBOL-CAR-FORMAT!# x  ?xGAPPLY-FORMAT!#AxW+Uju:GAPPLY-FORMATAA!xGFN-FORMAT!#Cx:GFN-FORMATCC"xGSUGGESTED-FORMAT!#ExGPRINLEVELu:].W!##xGPRINLENGTH!#GxGPRINENDLINE!#$xGPRINSTARTLINE!#IxGATOM-PCODE!#%xW+UjuGEXPLODING!#KxGOUT!#&xGMAINFILE!#MxGLINELEN!#'xGINITIAL-CHARPOSu;Ujw!#OxGNOWPRINTING!#(x((xGABBREVED!#QxGTRUNCATED!#)x))xW:].uGPARENTS!#SxSSxGRPTR!#*xGQUEUE!#UxUUxGQLu:].W!#+xGQR!#WxGTSIZE!#,xGLSIZE!#YxGQS!#-xu:].W--xGQSP!#[xGLINENO!#.xGFREELEN!#]xGPENDING!#/xW+UnWGPENDING-NEWLINE!#_xGDEPTH!#0xGPS!#axaaxGPSP!#1xW*UjWGF-ARGS!#cxGFGF MACROMACRO2e3x=d "CEXPR-HASHeg4xU*U*GF-PARSE1GF-PARSE2GF-PARSE3GF-GROUPGF-CODEDISPLACESUBRZL3[`i5Z`Zak6`m :W-, $$7oDEFGFDEFGF MACRO8q3xW*TP)'q94x:GFORMATgfDEFUNsz SZ[-,:z A&@Z[-,  P0 $2-,-,1:z A&-,,Xd;-, u-, $$7oU:\PGFNGFN MACRO;w3xbJCw<4x:z A&Z[ (-, $2-,-,1:z A&-,2@d $-,-,1 -,u.W $$7oGFORMATGFORMAT MACROy=3xDn(E={4xU*UnuARGSGFORMAT-END*APPENDLIST[~a] @px xFORMATU(GPRINT1GEXPLODEIMPLODEZ[@Z%[ZgZZ-,>}z q@? -, Q,8,8`d,88,8g~K<A-,1 $;-, `3+0z un2-,3-,a(3-, -,`kz un2-,2@  $-,3-, $B-,0`0-,1 -,,/0i:u $$7o|&] JiC4xEXPLODENU*U*UNREVERSE  MEMBEROPEN)U*U*UCLOSE[GO-IN]GO-OUT{START}ENDU*U*U'PERIOD$END-SUB<U*U*U>%%&__U*U*U*-N!AB;AU*U*Ua!1CCcEEeU*U*UIIi'7(P8*U*U*U:SSsASSOCEQUALSTART-SUBGF - unknown characterERRORU*U*UGF - unmatched 'READLIST135U(079`3 += gD`K@3[`3EFz 3auGHIJKLMNOPQRSTUVUWXUYU YZXX[YY\]^^_`WaWbbc  dez daZ D`3`c 80N`Oz 0$f1 `fAszPFfK3 J`6@``` ,8M g}-,3-, ",oZ`,8`3[` -,`[` D` g  `-, BgOSTU zPm;]&u[(Z (2H``+Z `0B+r,86@g~+c @,8,8'3",o`[g~ 82Og`Zg~ Bg~Z4Di[ 83Og`3@a `D`-,1 $-,+qZg~,8g~3[`-,aAA``G1BO+u1BS+u A@0BT`,8[g~ 8#`Zg~' Dg~` 7@g~`[g~ 83Og`@30N+Zg~ Bg~ `D`-,1  $-,` Zg~,8g~3[``a-,``G P(1BU`1B `0`+#,807@g~`=[g~ 8#+Zg~'T Dg~+"ijklmiz '$f[g~a/Zg~,8g~3`3[`-,+`=( ijklmiz 33[g~a=Zg~,8g~33[` -,+7@``C `Ea D`+" "`G " g `"-, Bg`u,xgh]:U*Uoq#"@pn5n4x GF - < and . must be immediately in [] or ()ASSQGF - unmatched bracketsGFIRST()3++ gD+n@3[` Bg~ Dg1DQ`_0DN+5a P"1+51+5 ,5,8,8o,80AAA",o g0`s0`s1BP`s @P0BR`As3 DgPQRz zcg)[`oZ"3Dg` ,8,80AS",o g+Pz FfKz1ep3-,Zg~,8g~z <v4UH([`-, $-,z Zu-,2@0 -, g~? Bg~A0+f+X3qz?z FfK1z1ep4Bf3 "P-,+f P( 1B+_1BT+_1BS+_1BO+_0 0+_1BU+_0B `3-,Zg~`,8g~3[` Bg~-, Bg~@ +f3-, g0`0 `0`1BQ``Q3 0-,`Q/,x".] oOKC^_p4xMEMQ "-,0,83+{` g4Jx[(Z (0H` " ` `r5B{AsP W3` ",xo pock4xU*]nUGF - too many args stpuuxu xCARToo fU;]nwew args svwpx x svwpxxxx x svwpw( x xXP-,>-,~H"6@g~+7B>` ,8,8U", oD+TZg~,8g~[`3 g@Q-, BgbVSO zP&64J[(Z (@ R3+ 3+6@g~:zRZ@ g-,0B Bg+6D>`+ ,,8,8V,80 ",o+Z F>[-,D BgTSOU zPY*)fU[(Z (R3`1`0'0+!As3 Dg}3[`-,B`U6D>`K ,%,8,80 ",o`UAZ B>,83[`-, Fg}0B^  0`i6D>`a ,0,8,8W,8",@@o`iZ F>,83[`-,0+70BP+:Ase3[` Dg~bVSOP zP?S4JF[(Z (0H`u3+F6@g~+FbVSOP z J2ur1NzRgp4BD g "y-, Bg+F@ g-, Bg0BN` * ( Jg~`+N3 g~-,0 @@g~`0+P0@d`3 g~-, *  Jg~ "`+u:"ujPxo e",64xGF-GROUP-LISTGF-GROUP1-,1 :pz`+o o{4x,80B,86Bz+]D+ ZAA Dz[ F`1+a0FP`D + 1``3@-,"Zz,8z Dz[` Bg-, Bg`aA g-, Bg`1Fb` P( 1`1`1`1F`1FVAAAA`1FT`1`1FU`0F `D"3@-,Zz,8z Dz[` Bg  -, Bg`1FS`0FO "`3@-,Zz,8z Dz[`D Bg-,Zz,8z Dz[`-,0B/`3@-,AA:u`/,xoi;Lm4xNOTU*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,83` `@D+@3 $[`3 @0+Z[-,1 $:-,-,051Z[ Dg~`m|:}z P-, `0 $-, -,-,1,Xd-, $~-,`-+ ::}zq;AQAA`-0By+"::z84 `-0BN+$ "N`- P( 0BQ+&`-0BR+(zLF`-0Bbd`]A3[`-,1 $%-,aA -, Fg~`-+5 P2A3[`-,1z CG-,  -, Fg~`-`wAJ 3[`-,1z -, -,0BA Fg~`-`A3BA[` Fg~`-0B+FA3 d[`-,1z -, -,( Fg~`-0BV`A3[` @0-,1 $-, $-, Fg~`-0BT+RA3[`-,2@ 1 -, Fg~`-0BS`A3[`Z *[@-,0H1 $(-, -,P 3`-0BO+cA3[`Z *@ [@-,1 $(-, $-,0A3`-`A35[`Z[3`m:z A&-,  @0 $-,-,1 -,*` @0-,1,X-, $-,0P `-+vA3[`-,1(`z Dž-, -, Fg~AQAQ`-+xz@O`-0BX+z zd`- T( 0BW+|zrSIz4`-0BY+~ z.`-0BUa` A3[` Fg~`  P2 "-,1 z s-, -,`-0B +A3[`-,2AH1z /*%Q-, -, Fg~0P `-0B^`'A3[`-,1(`z +OED-, -, Fg~@ ``- -,8,8,8",o/0@0 `-, B`+ /,x o c4x. GABBREV-LENGTH9 D2 " `[U " ZQD`A`U $ a  "a $ !Q "a a ` " $!P a " `[Z` " [`.U ,xo51 4x...,8[ˀ -2O#G " A[.. -3n`o " `[.. -2.`w "`6@gA !`{ " `[ˀ -2O#` D` "` `n` 8anb+G " BD4C * Q $ a  "a"`] a " /,x`o ]FBOUNDPU*Uju*FEXPR*LEXPRGPRINTCGEXPLODEC*EXPRB!#3%xe4x:PRIN1U@GFORMAT-OBJLSUBR-0 @@;`Z(+U "1n`P@+X ";+[Z(-, a` 1n`@-,+_  ;+bZ(-,` a1n`@-,+f  #D"-,p#Gp$I%K g~0`k3 "+ %W+@`>xse'4x-0  @;`Z(+s "@(1n`@+v ";+yZ(@-,` 1n`@-,0H+} ;+Z(-, a` 1n`@-,+D"  (-,p#Gp$I%00K g~3 "+5z\|%>x?e4x-0 0 @;`!Z(+ "@1n`'@+ ";+$Z(-,`/ 1n`5@@-,+ ;+Z(-,0H`= 1n`C@-,  "+"  #-,p#Gp$IC%K g~3 " /U`0+\%>xN] mB)4x-0` @;`]Z(+/  "1n`c@+2 ";a +5Z(-,`k 1n`q$@-,+9 ;+BxW@B8 m4x-0 @@;+NZ(` "1n+QP@` ";`Z(-, a+U 1n+X@-,`  ;`Z(-,+\ a1n+_@-,`  b "-,1 (-,p#Gp$I%K3 g} g~ "/0}*p+%I>xPL^ޭ+4x-0` @;`P Z(+n "1n`@+q "@0 ,w,833,8,80 ,8,8Ko/kU.U,x%>+-xGSET-UP-PRINTERG Z/4xTTYINT5GPRINTABORTSSTATUSGCONTINUEGREPRINTPRIN11zn-dg3-z'\N7M Wg35z' KG g37,xoxH[ Z0J,@+8 ,>,8333K<, g~  -,1 $-,-,1 W-,1DAg[ Z0J,+B ,8`,8e,8g}",<,6@g|`3  ` "-`Zg~[7@g{+O "-A`@Z[3+S " +TZg}-, $Zg}-, -,D p#Gp$I%K`[0, g}s+_ ,_,83@ " K<6@g|+bQC) )` "`"/+d ",x-]:U*UPoIIK%.4xzSUBSTCHARPOSLINEL*ARRAYU*U*FIXNUM <GFORMAT-OBJ1*PRINT*PRINC,8(" ,8 #] B#G]!!G $] B$I " Id4Hu7@ ( Z 0+u `#-, B` ` $ / B`3 B!+~K+~I5n~ $4n~ ,~,8 `1K<-,-,&H$ [ )`7F``+  &-,MWMz:Eԍg[ Z0J, 0` ,8MK<,3+ D " `! !,8MKo_-,@@2O ,,8MK<0O-,0@b -,'-,] * -,1 1 . ( -,/-,_ D & -,07D(+" C,8,81!,8 uKoa+'U5B'`a M,8,8,8,8 ;KoaHU-,U * -, + ( B-,W7D(+0 _,8,8@b! w,8 Koa`aB ,A,8,8 },8 ?Koaab@b!-,a * -, 17D(+I`a ,8,8,8 Koa  +NS5BN ,8,8,8 @b,8 @KoaS-,S-,D@1Q *3-, * ( -,, "-,~ & -,Y -[L D[ˀ Np *p - ( 0D[.. - ( 0D[@ˀ Nw *w - ( 0Da 1LD 1ˀ a ( 0&D/`WMz:Eԍg[ Z0J,S+k ,8 M",<,WMz:Eԍg[ Z0J,` ,8`!ZgMK<,7B+| g3Eag`  " -. gx0`aA gyag-,1+  " $ -.` A gy4-,1+ D  `9` D` G "p`i1BQ` WK` W7@`` W[`)DAWMz:Eԍg '[ Z0J,`  ',8 MK<, %-,1 .-,2D ]-,G-, #-,0 @0-, $-,`-, $-,M-,2@`1 $-,-,1,X-,d,X-, $-, $-, 1-,1,X-,M-,O 1-,[`-,3-, B)& /K+ .DZ` ] " /0 ,,,,@`0,,,,,0 ,,,,@`0,,,,,0 ,,D"+1c2cec"@FcFj |r/I|?r /xGb?x( xOv|r/I|?r /xGb?x( S;'b?x8 ujumx@o(f$;E>g54x ,8 @1 "  * -, (0 -,73 "7@gy` k!E`0a+ S ",,+0P( 0 5B V " + W " Q,x]:U*Uo *c]64xGETUSRHUNKSENDI:WHICH-OPERATIONS:GFORMAT-SELF:PRINT-SELFU*@bPRINTGFORMAT-HUNKARRAYGFORMAT-ARRAY-,E,8 *B-, *3` *`3 B`[Bˀ -3/#+ i `4N i 8`n+ i ` 8`nb+ i"C * Q% "a+ T,87@`+ paA[` gC` " ` @aZ` D`` "5B T `4N w 8`n+ w ` 8#anb+ y ` %a+ T6@`` `  A7B` " Z+ %,87@` ` [` gC`4B  " ( + Z` D`+ ~ "5B TE$`  `B+ T=6@`` =``  an` % s `am! 7 ` #C ` 76@`+ d+ 7B` " Z+ [` P(1B` 50G` 50B$+ A  0a gC`+ $[`BA gC` E " + $Z` D` 0+ + T ` 8anS0+ F7zn zRgoz|Qg3+ / gp4B / $8 gE`` _ "4B 5[ Zq+ 0 q "qb+ E ` "9r5B : `4J <[(Z (#s` o3 %a+ E96@`+ ?D g~:` [`C` 04B C " ` Z` D`` y@A+ T7B` " Zu` ,86@`+ L;` [` gC`4B P " ` Z` D`` 00+ T ` %a,0ujU+o XY_&3w4xARRAY-DIMENSION-N*REARRAYGCHECKRECURSION1QbGCHECKRECURSION-LIST *ˀ-, B*S!@  "< `3.` , a,8S,8..  *pKoy`" `-,S * @ 0+ f `=5B m7B` "  1Z+ l ``{+ m `-,0.P,xo _{>4xGCRL1,<0 Z 7B` " ZAa0+ u g-,+ `=  g `a} @[g~-,1 p5N @ `D gXK`+  ``-,>pAs B`3` + ˀ Np "pZ`A@`0 D`` /-,0ujW,xo nD}?4x*NOPOINT%~a @pw(x xINTERN,8 "-,  ,< p4N  `P+  * -,1a 3,8,8,8  (p,8L K<AA,` ;>pZ D`@``K` # "/,xo W+]`xJ-=4x^~a Bpx x *@ p aS 4. %`` K@P !2B`` _ * -, [,8,8 e */p (p,8K<A  A,+ 1>p` C "@KW,xo ?%{:C4x4CHUNKSIZE . $ "a a`,< ` Np "p 30   "a p-,4C $ " $Da p D:p p2O`` @@p $ a p0N "  g-, $QD 4B < $qa $a/0.U/,xo 3]hMq;4xARRAYDIMSFLONUMU)CLENGTHGFORMAT-ARRAY-1GFORMAT-ARRAY-2 $ "a ` % a;` ,< `E[ P(1c` 1` 1D ` Z[80 8 ZF Np *p (=N c 3 ga+ f (0N+ f3 g "G $ujUio QQ4x contains[]``@C,<,:,8 $Ha"2 $ a $ "a[ˀ -!B$13/#+ v * Q% "a+ "00 $ "a a,<`0C[8 8 Np *p,<hC $ "a  "acA+  g p Nw "w` +  g p Nh "h`  g p C4. `` @ $ ":p p@S 2o`+ 2O` " z :w 5B  $1D4C a` $Ia $a@`0///0.] ,x4o ~G4xGFORMAT-ARRAY-2-1,8 $H!QDa $ a $ "a[BBˀ -3/#` O * Q% "QDa` { $ "a a,<0C[8 8 Np "p,< g $pJ:p p2o`` sSC2O` " z :w s $ a" (C" $ "a+ / $Ia $ a//,x8o W@`!lqJ4x,<,:,<[ˀ -3/#+ G * Q%1D4C "a` $ "a a,<[`Z`Z8[8 8 NpD *p,< $ "a  !A "ac`  wKT p.+ e`  wKT p. Nh "h+ e wKD p. `C+ e@ $ ":p p2o`` SC2O` " z :w $ a hC+ P $Ia $a/@`0///,x]+UjuPo }FLUSH-MACROMEMOSDEFUN-DEFAULT-GFORMATKKxDEFUN-DEFAULT-GFORMAT MACROL3x3fL4xMACROFETCHU*]nUWrong number args for macro~a-:Gformat NOpx xDEFPROP-DEFAULT-GFORMATEVALU(LOADEVAL-WHENMACROMEMOM ' `F @ + z , z,8 ),8g",oZ`-,1 >[Z[ H>Z ,8a3 ,8,8,8,8K<AA 2,X >-, `-, u @0-,@-,1 $-,*` -,1 $-,-,1,X-,2@` $P-,-,1,X-,(`2Qz Kn&d-, -,, K $ `R,x`o W(C y`u<P4xPUTPROP,8 sam 5 s `S+ "/,xo +4C?o+C&"4x $ "a a@-, " ZC1` _[` "Z` B`` _C0 $ a[` "Z` B`` hA" _ $ a $ "` Q $q ;Ua $io:GTBLOCKxnNrDT4x $ "a a2-, " Z hC` $ "a  "a[` "T1D1Z` B`` $ a+;CD; $qa $io34C1 ?`)?U4x $ "a a@-, " Z QD` $ "a  "a[`0C "Z` B`` $ aD4@c+O $qa $i]+HoG:GBLOCKHV4x $ "a !@ a-, "  CZ+j[`Z` B`CD1`5Bj $ a  "a+cCD; $qa $io[U9C":G1BLOCK)W4x $ "a @a-, " ZA0` [` "Z` B`` hC $ a  "a` $q!Qc]a $io :GMISER4CWB SmX4x $ "a a@-, " ZC1+[`Z` B``5B"1" $ a $ "a+ $q ;Ua $io:G1MISER)rDY4x $ "a a2-, " Z` `C[` "Z` B``C $4CC a $ "a`5 $qa"G:W $io%:GNOTHING-:GformatByKZ4x .]*u ",xo%:GNOTHINGPx:GUNTERPRI-:Gformatr[4x:GUNTERPRI*}.\Mz J5io&P\[xNm\4x-,2@d $-,-,1 W-,@ga[ Z0J,`W a,83@K<,[4BD 4nD-,2@d $-,-,1 W-,@g[ Z0J,+7 ,C,8 *p ,8,8g~K<0 (p,8,8g~K<,/ A:W` "/,xoOSETQ-:Gformatea]4x hC $ "a a-,@A " Z+c 1"[` "Z` B``5Bc $ ` a[` "Z` B``5Bc $!Q a  "a[` "Z`1D4C B``5Bc $ a  "a 1"[` "Z` B``` $q ;ua $ioP]xSETF-:GformatrD^4x $ "a a2-, " Z` +[` "Z` B``5B $0C1 a[` "Z` B``5BCD0C $ a  "a[` " (C"Z` B``5B $ a  "` a[` "Z` B``` $q!Qc]a $ioSETFu+TP^xQUOTE-:Gformat@ r5K_4x'Z4DZ hC5F $ "a $`aZ`[!Q " $a`#"zUj,xoP_xFUNCTION-:Gformat@ d'a4x#'ZD4C4DZ5F $ "a a4CZ`[ " $a`9"}*u,xo%Px`-expander|-:Gformatty|b4x` hC $  "a $caZ` " ;W $io;`-expander|PbxU:H`,|-:Gformattyv+d4x, $  "a $e!ADaZ` " $kU.Ri oI`,|Pdx`,@|-:Gformat{I&f4x,@ $ CD0C "a $gaZ` ""G:u $i0oW`,@|Pfx`,.|-:GformatW)C"-h4x,. $  "a $i4@caZ` " $i]:Uj @oe`,.|Phx`.,|-:Gformatmj4x., $ !Q "a $kaZ` " $ w.UiPos`.,|PjxMACROEXPANDED-:Gformat Qp `l4x-`-, [+D-,0 ;W A "$`oMACROEXPANDEDPmlxU:HDEFUN-:Gformat\v+`n4xDICK;GPRINT 647_2. $ "a !@ a-, "  CZ+V[` "Z` B`Q`5BV $ a[` "Z`QD B`` $qa $AAitoFZ[1?`1D `AA1D3`ZZ[1?`1F ` QD0F3+ $ "a a `2-, " Z` +[` "Z` B``5B $0C1 a[` "Z` B``5BC0 $ a[` "Z` B`` `C5B $ a[`Z` B`QD`5B $ a $ "a[`!@2 "Z` B``+| $q4CCa $a+& $ "a" ` a `-, " Z`E[` "Z`1D0C B``E $ a[` (CZ` B``E $ a[`bDZ` B``E $ a $0C1 "a[` "Z` B```7D $qa $a0/Uj ,xloPuxc_[Cx!o4xDICK;GPRINT 647_3. $!Q0 "a a-, A " Z+6[` "bDZ` B``5B6 $ a  !E4 "a+/ $qa $1nH;Ui|o'GCHECK-INDENTATION $posLAMBDA-:GformatE4Cq4xDICK;GPRINT 647_4. $ "a a@-, " ZC1`[` "Z` B``C0 $ a[`Z` B`` hC $ a $ "a[` "bDZ` B``` $qa $ vC_iou $poUPxU:HNAMED-LAMBDA-:Gformatr4xDICK;GPRINT 647_5. $ "a !@ a-, "  CZ+r[` "Z` B`Q`5Br $ a[` "Z`1D0C B``5Br $ a[` (C"Z` B``5Br $ a $ "` a[` "Z` B``+k $q!QcZa $ioV $sz]$$poPGrxNAMED-SUBST-:Gformat4xDICK;GPRINT 647_6. $ "`a a-,dC " Z`%[` " (CZ` B``% $ a[` "bDZ` B``% $ a[`0CZ` B``% $ aC0 $ "a[` "Z` B``D4@c` $qa $iZ}*uo $t$poP$xLET-:Gformatܽu4xDICK;GPRINT 647_9. hC $ "a a-,@A " Z`Q 1"[`Z` B``Q $ `Ca  "a[` "Z` B`D4@c` $qa $i4CoDICK;GPRINT 647_10.   "a $ "a" ` a-, " Z+?[`Z`1D4C B``5B? $ a  "aC4C[` "Z` B`` $qa"G: $io,DICK;GPRINT 647_8. $!Q0 "a a-, A " Z`[`bDZ` B`` $ a $0C1 "a[` "vZ` B```CD; $qa $ioRDDICK;GPRINT 647_7. $ "a a2-, " Z` +o[` "Z` B``5Bo $0C1 a[`Z` B``5BoCD0C $ a $ "a[` " (C"Z` B``+h $qa $h;uioX $w$poP~xLET*-:Gformat4Cu4xDICK;GPRINT 647_13. $ "a a@-, " ZC1+[`Z` B``5BCD0C $ a  "a[` "4 Z` B`` $qa $1nHioDICK;GPRINT 647_14.   "a $!Q0 "a a-, A " Z`7[`bDZ` B``7 $ a  !A "a[` "Z` B`` $q!Qc]a $ioDICK;GPRINT 647_12. hC $ "a a-,@A " Z+1 1"[` "xZ` B``5B1 $ `Ca $ "a[`Z` B`QD`+* $qa $iC"ioDICK;GPRINT 647_11. $ "a @a-, " ZA0`[` "Z` B`` `C $ a[` "yZ` B`QD` $ a $ "a[`0C "Z` B``` $qa@c; $ioi $poOW*]$LET*PzxCOND-:Gformat>O7p_{4xGCOND-FORMAT2 $ "`a a-,dC " Z`[` " (CZ` B`` $ a[`bDZ` B`` $ a $ QD "` $qa $AioPPx]&zf|4x[0D +"0 $ "a a `-,d " Z+|[`0C "Z` B``5B| $ a 1"[` "Z` B``5B| $ DdCa $ "+u $qa" (C" $a+ $ "a @a `-, " ZA0`[` "Z` B`` hC $ a $ "a`2hC $qa $aj]* ,xogPROG-:GformatT}Y}4xGPROG-FORMAT2DICK;GPRINT 647_15. $ !Q0 "a a-, A " Z`M[` "bDZ` B``M $ a[`!@Z` B``M[``Z`E4 B``+# $qa $1nU ioGDEFAULT-SPACESGSPACES -,1 $  -, $~p,0>W+o*PxIo4x"CFLATSIZEMAX2O5  "a"  ka `7 8`} `@ -, `Q %a $ a` ,80C",< $ a ` "@KU ,x o0DO-:GformatXg<4C4xDICK;GPRINT 647_18. $ "a a@-, " ZC1+_[` "Z` B``5B_CD0C $ a  "a[` " (C"Z` B``5B_ $ a  "`"a[` "Z` B`` $q ;Ra $ioGDICK;GPRINT 647_17. $0 "a a-,d " Z+p[`0CZ` B``5Bp  "aD4@c` $qa $i])C"o DICK;GPRINT 647_16. $ "a @a-, " ZA0`[` "Z` B`` `C $ a[` "Z` B`QD`  "a a[`0C "Z` B``  "a 1"[` "Z` B``+ $q ;a $i o -b@bC-,  --, $p@kW,+ oDOP xꪠ_ip4xGESTIMATE-INDENT;----------| ,8`  '&. L+ gp+BCC  "a ./` $p "a"1  "a $a W,8  *p,8C",<CD4C $ a  a  "a" D $a gp  "a $!Da ,;,8  *p ",< $ a  !QDa $a  "a0KW,x  o!K 4xQ@ 1GDETERMINE-INDENT 1ˀa +-, +$  +KW`U + `+M@0B+_ +..U @"`+R@5B_ ,8 +ˀU 4.W``@4BY +Z .p *p,8c",< !  Np +ˀ-, B++H KW-,+ ,oD\+4xU*@`FLATCGUPDATE-SIZESGEXPLODE-ITGPRINTOUT-, UW 4.h0`,8Wbˀ Np *p "-,U ( 4.o0`W.. Nw0BAAAA` "+0B+x1 +w1D+w " +#`* +1B`+* AAA+ + "+0` 1B` A`0`  " -, (w-, U  0+ 0B@ `_-,~[ˀ - -!H "<[..-,[ `"2n`7 ,,8,8-,8 01..( *pKoy -@[@WD[ˀ - (@1 ,D[ˀ $ `f4B&@ "p+( pˀ Nw "w ; -   L[.. Nw~ &w~ -  0(D+D+D -[  4.B -[..@[ - Nw~  , &w~; "(-,1U  4.>0`} -[ "p`[/. -,[1B`0#`0 @ ` `W..U 4.LbTb`BT ,. -, B,1B  +R0#+R+Z[..@[.0 - Nw} ˀ *w} ; - (  D1B`0#` H2`W`U "<Wˀb`-,W `2n` ,j@,8U,8 .. *p0`bKoy,<K+m @++..U `+q@1A`+0B` `0 `$ ,Y{]` +.. Np *pU@1 ( ] 4.}1``+"+U + 4.``@# zP&JFH [(Z (0H+ +..U 14. bT`BTY. -,YD +ˀ-, B+ kW+k +PH$SW+ * J+ ( W & F, * D!Y[-,[[7 -[b LD[/.-,[+ "`0,`; "//,x%k@co srdo 4x ,<3/+`sU 4.&``MD@ zP('-s[(Z (0H+'..U 4.-``[@5B8.. `.0U Np  g`+4@ *pU ( o0+8`0Kۻ+" "/,x]:TLo?%4xprinendline exceededGESTIMATE-GTABSIZE,<,< U + `+@@0B @ +k 0 +..U 4.FbTB$`BT  {]`a "< 1D0..-, B1 `2n@B+T ,8a .. *p Koy 1ˀa Np@  ,8 '] +ˀU 4.\``@4B^ +_ .p *p,8 ",</" (p  La 1LD!b &3 F0 0ˀ-, B0+ @` 05no 1/.-, B1 0!AA-, B0+1B`0#`!0``c_` .3/$`H(@1]4nz &: $ " ` kI@@2+ ,8,8&K< /O-,1b B/ .ˀ-, B._U +  `+@` + ˀU `+ @`[ .H kI+*,=/ p' %,8,8 ,8&@ b",<>p`U + A4.``/@#`A , ,8 +ˀU ;`+@,8&",o7`S1B`E`S S@,8 +ˀU 4.'``O@`b,8&",< +..U@  [bT+.BT]/ -,( ] " B/+ +A_+@ + ˀU 4.7bT`oBT /. @ -, B/ +ˀU 4.=ab `{A]/-,]+ " B!+0B` 0_`,<b,< +ˀU `+IH@@5BUa 1a 1D0+Ua,81` ` DT/a 1 '@] 1a ,\&  (4N` /(@ Np "p B` /.`-, B/] `a/`-,]//+ P$ "+0B` 0 +ˀU@  4.l``@0 +o0B  +p " +~ ` +..U !!bT+uBT  []` 0  1ˀa '@]2. " a+~ "+~ " 1ˀD a-, B/ '/-,  ] * J0 " _+ "+ "@D/,xc 4iP ]8@bTowF =.4x +-, +,8b,< +ˀ-, B+ KW `_U + )`+@a0#`/0B+ 3`3`_ +..U 4.bT`;BT  (.np * `] `M +..U@ IbT+%BT  .np`] `]3`S`_ +..U@  4.-bT`[BT  .np``k+-,+@oWDm9$E44x,< 1ˀa ' +; ;-, +,<,8 p +..U {``+>@ anb` @ ,8  +..U `+F@",< U +@  `+L@0B`:p b+P+P>p +ˀ-,1B B+ KW`+9@; ,83ˀû *p",oY0 `& `/0`0, -,,xkU*doc2p*'U 4xEXPLODENRECONCEXPLODECU +@  4.d``@ +p + ˀU bT+jBT,< p  Kk-,K@@p` " `#` +ˀU #!`+u@`KK`0`0B+ +ˀU 4.}@d2 ``@`KK` "~,xPoa;