; i1U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GPRINT 812   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071GPRINT812VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xANDFEATUREU+UjuCOMPLRSPECIALGRIND-MACROEXPANDED!#xBOUNDP%xPRINLEVEL!#xPRINLENGTHu;UnW!#'xGSHOW-ERRORS!#x%xGFORCE-MORES!#)x%)) xPRINENDLINE!#xW+].u%+xPRINSTARTLINE!#x%xPRINMARGIN!#-x%--xMISER-WIDTHu:].W!#x%/xMAJOR-WIDTH!#x %1xGCHECKRECURSION!#xu:Ujw% xPLP-PROPERTIES!#3x:FUNCTION:VALUE%335xGSPECIAL-FORMATTERS!#x%xW:]jwGHUNK-FORMATTERS!#7x%77xGARRAY-FORMATTERS!#x%xGPRINT-ARRAY-CONTENTS!#9x%99 xW:]juGOVERRIDING-LIST-FORMATTERS!#x%xGLIST-FORMATTERS!#;x%;;xGSYMBOL-CAR-FORMAT!#x:G1TBLOCKu;Uju%=xGNON-SYMBOL-CAR-FORMAT!#x%=xGAPPLY-FORMAT!#?x:GAPPLY-FORMAT%?? xGFN-FORMATu:].W!#Ax:GFN-FORMAT%AA!xGPRINLEVEL-ABBREV!#Cx#%CC"xPLP!#Exu:].W%EEx^R!##x^W!#GxOUTFILES!#$xTYO!#IxW+].uGSUGGESTED-FORMAT!#%xGINSPECTING!#Kx%KKxGLOC!#&x%&&xGPRINLEVELu:].W!#MxGPRINLENGTH!#'xGPRINENDLINE!#OxGPRINSTARTLINE!#(xGATOM-PCODE!#QxW+UjuGEXPLODING!#)xGOUT!#SxGMAINFILE!#*xGLINELEN!#UxGINITIAL-CHARPOSu;UnW!#+xGNOWPRINTING!#Wx%WWxgf-var!#,x%,,xGABBREVED!#YxW:]juGTRUNCATED!#-x%--xGPARENTS!#[x%[[xGRPTR!#.xGQUEUEw+Uju!#]x%]]xGQL!#/xGQR!#_xGTSIZE!#0xGLSIZEu;Uju!#axGQS!#1x%11xGQSP!#cxGLINENO!#2xGFREELENu:].W!#exGPENDING!#3xGPENDING-NEWLINE!#gxGWENT-UP!#4xGDEPTH!#ixW:].UGPS!#5x%55xGPSP!#kxGF-ARGS!#6xGFGF MACROW*]*UMACROm7ox=d "CEXPR-HASH78qxGF-PARSE1GF-PARSE2GF-PARSE3GF-GROUPU(GF-CODEDISPLACESUBRZ[9`sZ`LhZ:`u; -, $j].Uiwp<DEFORMATDEFORMAT MACROy=ox<={qx:GFORMATDEFUN(`>z SZ[-,Z`ZZ`@Z[-,,X-, ;U }-, $iwP<DEFGFDEFGF MACROu9 ?oxc%U2x@qx>z SZ[-,( ,z l^1=X@Z[-, m-,0 `-,1,z l^1=X-,,X-, ;U }-, $iwx<#GFUNCTIONGFUNCTION MACROu9 Aox$ KAqx,z l^1=XZ[-,  P2 m-,-,1,z l^1=X-, $H-,-,1 -, $j].Uiw<GFORMATGFORMAT MACROBoxaCqxARGSNREVERSEU*U*STUFFNTHLISTNCONSGPRINT1GEXPLODEIMPLODEZ[Z`Z[Z`ZZ-, ,8,8,<6@` `aD`q pˀz } "p 0-, $E-,3-,Z` D` Np+./a(`y-,+=Fzs,X@`e*`-, m-,-,1z }  -, $-,-,1 -,0*7@g`z un2-, g-,d3-, -,+Oz un2 2-, $-,3-, $GH-,-,1 -,:u, $iw(<& 1_9HqxGF-CHARSU*U*UEXPLODENEQUALSTART-SUB[GO-IN]GO-OUTU*U*UPERIOD<>(P8CU*U*UCcSSsIIi'U*U*UQUOTE-ARG?~NUMBER-ARG*:*$U*U*USTRING-ARG%%&END-SUB{STARTU*U*UIND}END++OPEN())U*U*UCLOSEAAa!'N7-U*U*U!B1;MMm_U*U*UEEe  ASSOCGF - unknown character#ERRORGFP-QUOTE-ARGGFP-STRING-ARGGFP-NUMBER-ARG-,IBЀ+W gD`Z [[ 80N` DD@(@JA@ KLMNOPQRRSTUUVWX XY XZ[\[][^_X`aX/b_XcdeefegghXgiijXi XiklXmnop/z r3 a B`5Bg ,g,8-,03-,",oZ`,80A3`` B``31Ar`0B[+p``0BX+r@`s`` g~-,As Bg~3 `2`/`/+q]:@1<G,8,8e,8",o`Z,8@3[`-,0 +E0B^+HAs3[` Dg~QRUZ\^ zP?S4JT[(Z (0H`3+TA*16@g~+TRUZ\^ z J2urzRg~4BR g " @0-, Bg+T g-, Bg ` * Jg~` +\3 g~-,@@g~  `0+^`3 g~-,2a *  Jg~`D]+,   < e",u( #u qxGF-GROUP-LISTGF-GROUP1-,`+!(<<%qx,8,86B+k1AD+Z D[ F`1+o1AA0F^`D+1``D"3@-,Z,8 D[` Bg`-, Bg` g-, Bg0P( `1` 1FR` 1` 1FUAAAA` 1F` 1FZ` 1F]` 1` P(1` 1` 0F `3@-,1@0Z,8 D[` Bg-, BgA`1F\``-3@D-,Z,8 D[` Bg-,Z,8 D[`-,/0@``3@-,`/0.]*U,xx<v&`;qxGF-INITIALRETURNPROGLETU*U*UGF-NEXTGF-NEXT-PERIODLGOGQ:PRINC:SPECIALGDISPATCHFUNCALLU*U*U:START:IND:END:NEWLINE:ALWAYS:NORMAL:BLOCK:MISERU*U*w:SPACE:TAB:EVALinternal bug GF-code +-p//x`1/ x,83`; `D`i@3 $[`3+-Z`0[-,1 $,-,-,1Zj [ Dg~; z gOvm-, $-,2@` $ -,-,1,X-, ( -,+2+/ zLC!+20BQAAA+1z:[Yv@+2+3+2+5 P* " +2+7 zLF+2`{AH 3[`-,1 Q-, $-,0BA Fg~+20BR+DA3 d[`-,1z CG-, $-,( Fg~+2`A3[` @0-,1z -, $-, Fg~+20BU`A3[` Fg~+20B+UA3[`-,2AH1z -, $-, Fg~0P +20BZ`A3[`-,1 ` $-, -, Fg~ 2+20B]+aA3[`-,1 $ -, Fg~+20B\`A03[`Z *[@-,1 $(d-, $-,3+2 @+rA3[`Z *[@ @0-,1 $(-, -,03+2`A3[`Zj [3;,z l^1=X-, $-,0`-,1 -,*`-,1@`a,X-, -,+2 T(0B_`zB+2+A3[` @0-,1z ,MF-, $-, Fg~+2`A3[` Fg~(`!-,1@aAz ,MF-, $-,+2`#z@O+20Be`'#zd+20Bg`+#%zrSIz4AQAQ+20Bi`/#z.+2`3#'zp,yC+2 @+"A3[` Fg~4B @e+!-,1z s-, ( $-,+20B `QA3[` @0-,1)z /*%Q-, $-, Fg~+2+/A3[`-,2AH1z +OED-, $-, Fg~+2 ,2,8k,8",o / `-, B`+/.]*Q,x/0<1p{ qx. GABBREV-LENGTHZ,P" B,q " `4BH " Z2(C"`y+H ! " $#hC" $ 1 " $ "$4CA , "a $ " " `B1 Z, " [,a3,x0<6W*@!M3qx...,8cˀ 1 SM7'5c.. 1P$3n+U " +ec.. 12. A+Y "+e6@g+[ " +ecˀ( 1SM+_ "+e4Dd `n+d 8anb`BB" "  * Y ! "D4  $ " " /,x<LWA:q^C17qxZ, B,,x8<t(G qx7B,d " Z0 " ,x<mU*U.WFBOUNDP*FEXPR*LEXPRGPRINTCGEXPLODEC*EXPR9E;G=  #Qxt`C?qxU( 0:PRIN1GFORMAT-OBJLSUBR-0 @ ;+vZ(` "1n+y@` ";`Z(-,0H+} 1n+@-, a`';`Z(-,+  1n+@-,`  D" ( -,Mp'O(Q) g~3 "bA+]:\h!q!CxK`C"qx-0 0 @;+Z(`) "@1n+@`/ ";`5$Z(-,+ 1n+@@-,`=';`CZ(-,0H+" 1n+%@-,  "`K  -,Mp'O(CQ) g~3 "bA/U`0+`!!CxmCEqx-0` @;+2Z(`e  "1n+5@`k ";a `qZ(-,+9 1n+<$@-,`y';`Z(@-,+@ 1n+C@-,0Ib`  ( -,Mp'O(Q) g~3 " bA0}.+8!-!Cxa/KN\G#qx-0 @;+PZ(  ` "1n+S@` "@ ;`Z(-,+W 1na +Z@-,`';`$Z(-,+^ 1n+a@@@2-,`  "-,1 ( D"-,Mp'Op(Q)30`k g} g~ "bA/+p!Ku8 0G!CxU KN\=Gqx-0 @ ;`Z(+p "1n`@+s ";+vZ(-,0H` 1n`@-, a+z';+}Z(-,`  1n`@-,+ H "-,1 -,Mp'" COp(Q)3 g} g~ "bAWjW/+h!=!CxPLi$Iqx -0 @;@+Z(` "1n+@`%  " 1,833,8@`,8,8,8Ko/0.]*u,x@! $!%xGSET-UP-PRINTER+KK&qxTTYINTU*U*UGPRINTABORTSSTATUSFEATURESTOPS-20 GCONTINUEGREPRINTRM&PRIN1M'Ozn-d(Qzl$jUg?[ Z0J) L*5`7MS*zg\N;(`AM%*z'\N7(MU+z' KG (.U*W,xX<3COLON-FLAGSTANDARD-OUTPUT*APPLYFORMAT-CTL-ONE-ARG-,(6@,7, "-,`Y-,3-,7 $-I:u+8[#HGPRINT.LISP_1. $hC" ! " i " ! "`C" '#[` "a $ "u$$P<;Function cell -GPRINT.LISP_2. $hC" ! " k " ! "`C" '#[` "a $ "u* $`<y; property -GPRINT.LISP_3. $!QD ! " m "[`!QD "a $7 " ! " '!@4 #Z`[ "a $ "1nU*$x< NAMED-LAMBDANAMED-SUBSTDEFSUBSTFNCELL,8 ,82a++5 & dAAZ++[g1B+1B8+ P(q++0q}c`E g~`-,`I*-, g~-,7 as0D`O@`Q@Z,Xd-, }-, Bg`]7@`+. 0}+4 g,83,8,80 ,8,8,8,8EKo`a+< w,8-,0 `0,8O,8,8,8,8Ko`s+D @,8-,,8P,8```1,8,8,8Ko` Dg+M ,8-, g~-,0 `07,8Q,8,8,80,8Ko` "DDDK,x9 5 6 o<'CS&UO:qxNOINTERRUPTTYIaborted "`uQzl$jUgC $ ") ,8,8;K<;@d W+[ Ow` ",xx<RW)S  *<qxGREDO "`uQzl$jUg $ ")C ,8,8;K<; "hy]9S <\npG +=qx "`uQzl$jUg $ ")CBj ,j,8,8;K<; " hy]:U*P0< @jy{qxFILEMODECURSORPOSMIN*EVAL@ 7D-`k[kZ[Z`Z[Z-, Z-,0 Z-, [ g-,2@d1 $-,-,1 $>-,@g[ Z}` ,83@Ko}[3+  ,8 ,8g|",<?`  g~-,1@c $-,-,1 $>-,g4B[ Z}+ ,,833 d3Ko} g~-,1 $-, 1-,1 $>-,g3[ Z D}+ 3,8,87,8g}",o}6@g|Ao`3`;`=Zg~[7@g{+!`E@Z[P 3+%1+&Zg}-, $Zg}D"-, -,Mp'O(Q )@, g}s@0+1 ,1,83K<6@g|+4a QC- -`i "/+6 "0.U,x H<keAqxzSUBSTU*U*UCHARPOSLINEL*ARRAYFIXNUM<GFORMAT-OBJ1*PRINTP!!*PRINC,8,8Mw "AMPD '{ "A B'O "AO (  @1 B(4HG7@ ( Z  @ !0+G `-, B` ` $ I$ a B`3+P6D)+P (5nPO@04nP ,P,8K<-,b!!-,S[7D#`G`%1[$I-,*>*z:Eԍg[ Z}` ,8,8*Ko}3+`1` ,8,8*K"<B-,+-` +h ,hd0,8,8*K/+-,-,1D@1U-,e 1-, 2 @b 1-,3-,g 1-,1D!i-,4W+w ,8B ,8,8,8 K<C+|]@ 5B| ,8,8,8 !KD@1<C]-,] 1-, / D 1-,_W+  ,8,8,8  #K<C+ 15B ",8,8,8  %K<C B1-,$"1 1-,cW` # , " ,8,8,8  'K<C` - 5 - , ,8,8,8  )K<CH B5-,5 1-,kW@ +  ;,8,8,8,8 KH"0<C+ #[5B # E,8,8,80@d +K<C[-,[-,1 $Y *E-, . 1-,b0-,~ 1-,a 1cLDcˀ Np *p 1 ( 0 Dc.. 1 ( 0Dcˀ Nw *w 1 ( 0D 5@kLDkˀ 5 (*1 0D)` >*z:Eԍg [ Z 5}+ @ ,8,8 ,8*",o}>*z:Eԍ@g [ Z}` ,8`@2Zg,8*Ko}7B+ Q g (03a` " -.  gx gya-,1+ "  00 $ Z-.8 - gyF-,1+ `]8 38 9 "p`$Y` 6D)` 7@`` [`S>*z:Eԍg [ Z}` ` 1,8,8*Ko}Q-,1 2 1-, $A-, '-,Md-,-, $-,H-, $-, * -,1 $-,-,1,X-,0H ,X-, $-, A-,0b-,1,X-, *-,` +-,[`-,3-,B0 B-/7B)+ DZ`  " @`0/,,,,0 ,,,,@`0,,,,,0 ,,,,@`0,,,,0 D"+ND1"D"DDpDNpw |r/I|?r /xGb?x( xOv|r/I|?r /xGb? Wx( S;'b?x8 umx@<(8GqxU*UnuNote enough }s in format HIpJJxJ x  ,8O ] * -,1DW-,W3 "ac  5N 'k S S,8,8 2Ko7@gy b@0` Y  "+ - ",,0(+ 5B 0 " + 1 " Y0u.W,xJX< FLUSH-MACROMEMOSGINSPECT-ATOMKKxGINSPECT-ATOM MACROLoxꪠ1.(;LqxMACROFETCHLENGTHWrong number args for macroMACROMEMOM5B <@" `1N+ 9 , 9,8,8 =,8g",oZ`[  $ `a.].W,xN@< eGINSPECTKOKxGINSPECT MACROOoxA:&ePqxDM5B G `1N+ D , D,8`,8 H,8g",oZ`[ &O $ ` :ua,xNx< { qxGETU*U*UUSRHUNKSENDI:WHICH-OPERATIONS:GFORMAT-SELF:PRINT-SELFPRINTGFORMAT-HUNKARRAYGFORMAT-ARRAY-,%,8 .-, .7F + N* B`cˀ 1kM`` `  8`n` `B 8`nb` * YCH` ,87@`` [` gC` 4B _ " + aZ` D`+ Z "0 `  8`n ` ` 8anb` `Q@"` 6@`+ k+ n7B` " Z2@` +,87@`+ u[` gC` " ` Z` D``  " 7D%+ y `B` ;6@`+ `4B ~ 1an+  $> `Q5B ``94B  A + 6@`` ` 7B` " dAAZ` [`1B+ 1B8+ H@`q` ?  gC`` )[` gC`Aa4B  " ` )Z` D`` ` @ ` 8an` mzn zRg)@ Rz|Qg3` ? gp ?  gE`+ " K[ Z0JSC` A $S "q` k `A U ` Y[(Z (0HT+ (3QH` k76@`` _ g~`+ 5[` C` g " + 5Z`A@a D`+ -` 7B` "  Z0BU+ C,86@`` ya`+ B[` gC` @ " + BZ` D`+ :` `0``kQ,+h< W*U"Y_&VqxARRAY-DIMENSION-N*REARRAYGCHECKRECURSION1GCHECKRECURSION-LIST .ˀC-, B.[!a `0 03.+ R ,8[,8..  *pK<W `-,1[ . 4. V0`  `@A` 7B` " Z` D`0 `X` `-,,x`< F_XqxGCRL1,<Z,8 ~d7B` " Z0` g-,` ``5B i g `0Y4B w@[g~-,1 p `D gXK` ` ``-,>pAs B`3 0+ n` ˀ Np "pZ` D`+ a/```K-,,x!< W*]nUDYqx*NOPOINT%~a p[[x[ xFORMATINTERN`,8 "-,,< p!  `P`  * -, Z , 3,8,8  (p,8Ko\ ,+ >pZ D`+  "0 :u/,x[< xJ-qx^~a ]px x . p4. ! [ +`+ @2B`+ *   -, Z , ,8,8,8 # .0c/p (p,8Ko\@0,` C>p+  "0ujR,xx< c{^qxHUNKSIZE . $CD4C ! " "`,< ` Np "p 30  $# p-,4C $ "a $_ " p } D:p p2O`` o@@p ! " p0N "  g-, $QDa34B . " $ "/0.U/,xH< G &\=rqxARRAYDIMSFLONUM4CGFORMAT-ARRAY-1GFORMAT-ARRAY-2 $ 5 "#! `Q9+ [,< ``[1DD+ O1+ O1D + O5D Z 0Z[8 84N ZZ Np *p ( 3 ga` (0N` 3 ga"G:u $ "$X< Cabqx containsU@` [],<,:,8 !QD " ! " %#cBBˀ 1kM` * YCQD+ $ ! " $c!A@ ",<`C[8 8`C Np *p,< $)"  $#0BD+ { g p Nw "w` + g p Nh@ "h`  g p 4.`` @  $ "a:p p2o`+ 2O`"L(C " z :wa35B ! "` !Q " $ "//@`]/,x< ]UuC"dqxGFORMAT-ARRAY-2-1,8  " ! "d %#cˀ 1kM H1"` 9 * YC+4 $hC ! " $c ",<0C[8 8 Np "p,<` g $pa:p p2o`+02O`bD " z :wa35B0 ! " %1D4C#` K  " $ "@`]//,x<)a[p eqx,<,:,<cBBˀ 1kM` { * YCQD` $ ! " $c!A@ ",<[`Z`Z8[8 8 " Np *p,< $)`A $#0BD`  w KT p.+]`  wKT p. Nh@ "h+] wKD p. C `+]@ $ "a:p p@S 2o`` 2O` " z :wa3 !1D4C "+H  " $ "@`0////0.].W,xH< 5DEFUN-DEFAULT-GFORMATKKxDEFUN-DEFAULT-GFORMAT MACROfoxN>g6fqxU+]jU~a-:Gformat ghpx xDEFPROP-DEFAULT-GFORMATEVALLOAD0EVAL-WHENM ` +r ,r@1,8,8g",oZ`-,@[Z[Z ,8 ,83,8,8,8Ko\,Xd-, `-, }-,`@-,1 $-,*`-,1  2 $-,-,1,X-, $i@(-,-,1,X-,jz Kn&d-,2@d -,,  $ `KWa,xN`< y`u<ikqxPPUTPROP,8 $>Q% &> `P Wa+ "/,x< 1E.!lqx hC" $ $ " "`b1-,-,, ML(C"[,a M ! " '#$3C[, "a M ! "" D %#`A, " $!nUd "$<:GTBLOCKt^Nmqx $hC ! " "-,#C-,, s $)" H3 $#[,a s !!D D "+2, " $;@C "$H<*1O`)=qx $"0 ! " "-,bD-,,  $) $!I1"#[, "a  ! "AHC"+E, " $ "@C$h<=:GBLOCKqAnqx $"0 ! " "-,b1$3-,, 5B^[, "na hC5B^ ! " $#+X,2hC] " $ "$`<P:G1BLOCK4Cusuoqx $ ! "" `1 "-,-,,I1" [, "a  ! "b" $#`, "w*r $ "$p<:GMISER=pqx $CD4C ! " " # -,-,, 5B[,!L(C" "pa 5B ! " %#AHC"+{, " $ "@C$<s:G1MISERusuqqx $"0 ! " "-,b1$3-,, %[, "a hC% ! " %#`,2hC] " $ "$< :GNOTHING-:GformatW.UByKrqx ",x <:GNOTHINGisrx:GUNTERPRI-:Gformatru>Wtqx:GUNTERPRI*z J5 "$8<ixNmuqx`2-, $-,-,1 $>c-,gC[ Z}`9 C0,83Ko}[4B5 4n5`2-, $-,-,1 $>c-,gi[ Z}+( ,4,8 *p a,8,8g~0K *p,8g~Ko}`]/`k "/,xH<1:GSETQ-FORMAT4CvX UVvqx $ $ "" `1 "-,-,,3C 5BP[,a 5BP ! "" H3 '#[, "a 5BP !!QD " ! " $#[,!L(C" "a 5BP $E " $#D4C+C, " $ "$]+G>WX<mSETQ-:Gformatwqxhh<ixPSETQ-:GformatwqxkUc]hx<TPSETQixxSETF-:Gformatwqxh<SETFu+@iyx:GQUOTE-FORMAT Kzqx,8Z "  Z`ZZ $!Q 1 "3 " ``b11-,-,, 5Be 5Be3D1[,a , $ "`AA:W*!/,x<UQUOTE-:Gformat0r=Fe{qxPwjW' $i(<ixFUNCTION-:Gformat0TuFe|qxPwjW#' $ "}i@<ki|x:GBACK-QUOTE-FORMATkIl*:~qxD,8 $ 1 ",X0# "-,-,, I"5Bw` , "a, $ "󺮠C$X< `-expander|-:Gformat{:޻qx` $i]:Ujh<y`-expander|ix`,|-:Gformat:޻qx, $kU.Pi <`,|ix`,@|-:Gformat:޻qx,@ $!n]*ui (<|`,@|ix`,.|-:Gformat޻ qx,.ujW $ i H<`,.|i x`.,|-:Gformat޻ qxPw.U., $i h<`.,|i xDEFSELECT-:Gformat3uDD qxGPRINT.LISP_4.-,, $ 5!Q 1 " " ,-, ,3C 5B[,a 5B ! "" H3 '#[, "na 5B $!I1#[, "a `,CD0k " $ "+!< hC" $ 5 " "`b1-,-,, WL(C"[,a W ! " '#$3C[, "oa W $# b"[,a +', "w.U $ "$!<DEFSELECTi xPROGW-:Gformat%HqrD qx $ 5 " 0# "-,-,, bD5B@[,a 5B@ ! " '!I1"#[, "a 5B@ $#D4C`w, " $ "$]:Uj !(</PROGWixPROGV-:GformatU(w3 qx $!QD $ " "`b1#-,-,, 5B^[,aQD 5B^ ! " '#[,!L(C" "a 5B^ ! " %#$3C[, "a 5B^ $ "" H3 $#[, "a 4BZ,2hC] " $ "$!@<PROGV@Ci xMULTIPLE-VALUE-BIND-:Gformat=wqx$"0 + " "-,b1#1-,, [,a CD2C ! " '#[, "oaC$3  $#[, "a hC $ " $#[, "D Da , " $!n]*p "$!`<MULTIPLE-VALUE-BINDixMACROEXPANDED-:Gformat Q!qxA@07D+-, [`-, A w.U "i"<~MACROEXPANDEDixDEFUN-:Gformatp #qxZ[1c`1D2`1o `ZZ[1c`1F2`o hC"+0 $ 5 " "`b1 `-,-,, 5B,L(C"[,a 5B, ! " '#$3C[, "a 5B, ! "" H3 '#[, "a 5B, !4C$3 " '#[, "na hC5B, ! " %#[, "D Da +&, " $1D4C "` $ 5 "" `1 " `-,-,,3C 5BJ[,a 5BJ ! "" H3 '#[, "oa 5BJ !4C$3 " '#[, "na hC5BJ ! " %#[, "D Da +D, " $!AA>U ",x"<i}#xDEFUNS-:GformatOM}rD%qx $ 5 " 0# "-,-,, bD5Bf[,a 5Bf ! "[,!L(C "a 5Bf ! "[, "n1D4Ca 5Bf ! " %# b"[, "a +`, "w.W $ "$"(<DEFUNSi'%x3f1 qx hC" $ ! " "`b1-,-,, 5B|L(C"[,a 5B| ! " %#$3C[, "a 5B| ! "" D $#+v, " $!nUj "$<LAMBDA-:GformatgA~B)qxGPRINT.LISP_5. $!QD 5 " "`b1#-,-,, )[,aQD ) ! " '#[,!L(C" "na ) ! " %#f2[, "a `, 4CC " $ "$"X<GCHECK-INDENTATION +$_*]* "H<i)xNAMED-LAMBDA-:Gformat[,-qxzGPRINT.LISP_6. $!QD $ " "`b1#-,-,, g[,aC$3 g ! "[, "a hCg ! " $#[, "n1D4Ca g / " ! "" H3 %#[, "a 4B.,2hCZ " $ "$#< $zUjR$"h<7i8-xNAMED-SUBST-:GformattT1qxGPRINT.LISP_7. $CD4C $ " " # -,-,, [,1D2Ca  ! "[, "aQD  ! " $#[,!L(C" "na  3 " ! "D2C1 %#[, "a 4BMdCD;, " $ "$# <8!oU.U $$#<Viq1xLET-:Gformatn}Z2 5qxGFORMAT-BIND-LISTGPRINT.LISP_8. hC" $ 5 " "`b1-,-,, L(C[,a  ! "[,71D4Ca  ! " %# b"[, "a `, "vC_ $ "$#@<W $$#(<ni5xW)C"LET*-:Gformat9qxGPRINT.LISP_9. $ 5 "` "-,-,DF1", [,a  ! "$3C[,7a  ! "" H3 %#[, "a `,2hCZ " $ "$#P<o $kUj $#H<LET*i;9xLETS-:GformatqxGPRINT.LISP_10. $!QD 5 " "`b1#-,-,, 5[,aC$3 5 ! "[,7a hC5 ! " %#[, "D Da `), " $!m:u "$#h< =$#`<LETSixZxUuDD7?qxGPRINT.LISP_11.-,, $ !!Q 1 " " ,-, ,I1" 5B/[, "na 5B/ ! "D2C1 $#[, "a +)D, " $ "+$C$<GPRINT.LISP_12.-,, $#CD4C $ ! " "#C ,-, , [, "naQD  ! " $#[,3dC "a `}, "" 0 $ "+$<3-,6@`+L " +Q[`4BO 0an`Z` B`+J " hC" $ ! " "`b1 `-,-,,  bD[, "a  ! " $!D D#`, " $1D4C "` $ ! "" `1 " `-,-,,I1" 5Bs[, " a 5Bs ! "D2C1 %#[,Aa +mD, " $ "0.Uj ,x#8<COND-:GformattQQ!CqxGCOND-FORMAT2 $!QD $ " "`b1#-,-,, 5B [,aQD 5B ! " '#[,!L(C" ""a 5B ! " %#D4C+, " $ "$_+@ $<i!x0Wg"Eqx[0D `K $!QD $ " " ``b1#-,-,, C[,aQD C ! " '#[,!L(C" "a C ! " %#D4C`7, " $ " hC"`m $ ! " "`b1 `-,-,, 5B3 bD[, "a 5B3 ! " %!D D#+-, " $!AA:W ",x$ <PROG-:Gformat i#GqxUGNAMED-PROG-FORMATGPROG-FORMATZ4D<7@ $ Z2`Z`[4B@ 0an` `$` ``I ,x$0<oi #xPROG*-:Gformat%GqxZ4DH A7@ $ Z`Z`[4BL an` `$ W` ``I,x$P<PROG*iK%xW*HI$3CHI&qxGPROG-FORMAT2GPRINT.LISP_13. $ $!Q0 " "-,-,1 $3 , 5Ba[,a 5Ba !4C$3 " '#[,7a b"5Ba[,`M `, "w  $ "$$p<GWAS-LABEL-, ]O $'+$H<WL?:4C$(qxGPRINT.LISP_14. $ $ "" `1 "-,-,,3C [,a  ! " bD[, "a  ! " '2C1##[,7a [,`MAHC" +{, " $ "@ $$%<h-,O Q0uj+$@<tGM)qxFLATSIZEOD0a` $# `7 8`%!` * O `SL,< $p "hC ` "a ! "2 `) ` "aO,x$h< U:@b"DO-:Gformat!*|F*UqxGPRINT.LISP_16.-,, $hC ! " " ,-,#C1 , 5B"[, "oa 5B"CdC $#`;, "" : $ "+%0<+GPRINT.LISP_17.-,hC", $ ! " "D1 ,-, , 5B4[, "1D4Ca 5B4 ! " %#D4C+., " $ ".H+%8<&GPRINT.LISP_15. $ $!Q0 " "-,-,1 $3 , 5BO[,a 5BO !4C$3 " '#[, "+a D2C15BO $#[,Wa 5BO" F1 $ "[,`M 4BM,"; " $ "$%@<8-,$0`kO $,+% <W*]$DOiY*xDO-NAMED-:Gformat -[qxGPRINT.LISP_18. $hC 5 " "[` "`a ! "Z`[ "a !!QD " '# $ 1!QD " $ ! " 0# "Z`Z[-,, $3C[, "oa  $#D4C+n, " $ "CD4C $# $ ! "" `1 "Z`-, -,,I1" 5B[, "a 5B ! "b" %#+ "hC $ " $ "Z`-,#3 -,, 5B[,`M 4 `, " $ ";bC$%`<V-,O $.W.U+%P<DO-NAMEDi]-xDOLIST-:GformatCtqrD/_qx $ 5 " 0# "-,-,, bD5B)[,a 5B) ! " '!I1"#[, "a 5B) ! "DdC %#+#, ""ujr $ "$%p<-DOLISTi0/xDOTIMES-:Gformata_qx $CD4C 5 " " # -,-,, 5B?[,1D4Ca 5B? ! " '# bD[, "a 5B? ! " % AHC"#+9, " $ "kUjU$&<YDOTIMESi1ax[\QVcqxGESTIMATE-INDENT;----------| ,82U/3o+H gQp` $# ./` $p!Q " e " `  $p!QD " $3 " $# "/` $p " gp $#C" ./` $p " e "C" `  $p " $3 "``0 $#,x]:U*U"`< _?-.2gqxGMISERINGGGET-INDENTMAXToo many }s in w8  k6mhp77x7 x,<,<kˀ1 5,8/4,8-,p/$  /K_+] / `A+q@0B` g%3`% ,8 /ˀ] 4.y``@&@4B{ +|`i .p *p0`9",<5  Np`% @ 0B` g Nw "w Bg`%@ `% g5N /..] 4. `! `@5B p.{U`% * :p@`% gˀ BgD /ˀ-, B/ 1 1,8 ,8Ko+l-,``DK,/,x117& <W*U*WoqxFLATCGPRINT -- bad type to GQ q9s:upw*T;;x; xGUPDATE-SIZESGEXPLODE-ITGPRINTOUT-,1]_ 4."0`E,8_ˀ Np *p "-,] (@  4.)0`S_..] NwAAAA g+. "`#`g1D`eAA1%`e1'`e1`0B +70AA*S`0+90B`w0A*8`0B`{ "` P( 1B`1B`0)`0B`1@ ` ,8",o-, *w-,,X ( 4.J0` b+o-,~cˀ 1   1!ac..-,1 c `2n+[ ,8,81,8i ..( *pK<WD 1c@_Dcˀ@  1 ( 0Dcˀ 1D `J "p` pˀ Nw "w ; 1  Lc.. Nw~ &w~aA 1  0D+0B+$  1c 1c..@c  1 Nw~  0 (w~;D "-,]  0@+~ 1c "p`w  c/.-,c 5. ,0AA,8Ko0`1B `1B`0B`#_..] 4.@@bT`BT 0. -, B0 P(0+1B +0B+c..@c.0 1 Nw} ˀ *w} ;AA 1 (  D0`A1B `A HdC0B`C_`w]!a_ˀ -,_ `2n`[ ,-,8],8 .. *p!K<W,<7B)+0<+B /..] g`+4L A@k`y+B#`q `1B B `u 0a{U` /.. Np *p] ( &A 4.@1``yH@+B`] / 4.E``@(@ zP&JFH[(Z (0H+F /..]@  4.LbT`BTa. -,  a /ˀ-, B/ 5.T ,T@d!,8,8jKo /k_+. /S_ B!` 1 J/ 1_ 1 F0 1aD c-,c 1cLDcD4Ne/.-,c  ,8 ( Ko` ",+g "@D"//,x;D77%k@7P< ;t6H@w=qx ,<3//+] `+rD@#)zP-4J[(Z (0H`..] `+y@.. `.0] Np  4.``@ *p] ( 4.0``0Kۻ` "/,x]:T!'8<k'fW]y{qxprinendline exceededGESTIMATE-GTABSIZEiw] /@ A 4. ``@#+$ /ˀA] 4.``!@1B+ P( %+ " +#'+4+#0B @ `E 45B#kˀ 5@U@e2.+" /..] ?bT+ BT  {e " +# ""5B5] / 4.'``O@ zPk6/ w[(Z (0H+( /..] 4..bT`]BTeˀ  |`w kˀ 5@U@e2.`wk "ˀ 5-, B3U/-,1 e@@4 * g-,}] /@  4.?``@`i @5Nf /..] bT+FBTH2  {e+f 5!ak..b`-,k `2n` ,S,8,85 .. *pK@"<Wkˀ@U@e  Pp (p 5 (  D4k@ˀ@k 5 ˀ  Nw (w 5 (  D 5kLB D -,+iˀ-,P$ i+0B+i5N45Bk ˀ,85 Nw~ ,{,8kˀ@ /ˀ] `+u@` ``i .p *p ,8",<5/ (w~*`  `aAD -,+ "+ H("0B+i5N * J4k/.-, k 5. ,8Ko b ` "+-,i+0AAA!+1B +1B+0B`g+B!" 2kO+e+Sj O ">b` 3/(`9 5,8SK<D  3.+-, B3 2ˀ-,"!  B2g 23/(`M,=3 p4n& ,%H,8S",oI>p+! A] / S`+*@0B`_ /ˀ] ]`+/@@!" 23/(+G] / 4.4``i"@0B `{ ,=,8 /ˀ] u`+;@S",oW `0`0B` ,8 /ˀ] 4.D``@S",@ < /..] bTb!+KBTe/ -,e1 B3 @ +0B+` /ˀ] 4.S``@ 5.[ ,Z,8 ./300 *p",<5 B`D  3.`-, B3e/`-,( e+)` i g ` ,<,< /ˀ] "`+h@5Bt 5k # 5k+t,85k`}b ` T/ 5kDUe@k 5 ,\&  (4N/( Np "p B` 3.`-,1b B3e/`-,e/@0/+ "+ "/0],xD174iP 'H<t~^q4?qxk4n 5.{U H@@] " +U2/ " ,x&@< F =.qDiqx /-, /,8,<D /ˀ-, B/ 3 3,8 D,8;Ko /K_+9] / AA4.``=@1B +!`SAB 3+#+9 /..] MbT+'BT  .np * +80B+0 /..] 4..bT`](BT  .np+80B+83+3+9 /..] mbT+7 BT  .np+-,I:p+7&H<#h6dy}@qx,< !kˀ 5@U /D; ;-, /,<,8 p @ /..] `+H@ anb` ,8  /..] `+P@@ ",<5 ] / `AA+V@`:p+Z0B+Z@>p /ˀ-, B/ 2!5.` ,`,8,8kKo /K_+b+C@;ˀۻ2/`` `û`0 `;-,,0KW,x7'h<w2p*'U<qx"EXPLODENRECONCEXPLODEC] / `+o@0B` /ˀ] 4.t@ bT`BT,< p4Ny )-,1(  B)@@p+u "+ 0B @+ /ˀ] 4.``@#!AAA )a B)+ 1B+` /ˀ] `+@B2 )a B)+ ",x'@<x;