;[& U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GPRINT 812pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071GPRINT812VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xANDFEATUREU+UjuCOMPLRSPECIALGRIND-MACROEXPANDEDxBOUNDPxPRINLEVELxPRINLENGTHu;UnWxGSHOW-ERRORSxxGFORCE-MORESx xPRINENDLINExW+].uxPRINSTARTLINExxPRINMARGINxxMISER-WIDTHu:].WxxMAJOR-WIDTHx xGCHECKRECURSIONxu:Ujw xPLP-PROPERTIESx:FUNCTION:VALUExGSPECIAL-FORMATTERSxxW:]jwGHUNK-FORMATTERSxxGARRAY-FORMATTERSxxGPRINT-ARRAY-CONTENTSx xW:]juGOVERRIDING-LIST-FORMATTERSxxGLIST-FORMATTERSxxGSYMBOL-CAR-FORMATx:G1TBLOCKu;UjuxGNON-SYMBOL-CAR-FORMATxxGAPPLY-FORMATx:GAPPLY-FORMAT xGFN-FORMATu:].W x:GFN-FORMAT  !xGPRINLEVEL-ABBREV!x#!!"xPLP"xu:].W""x^R#x^W#xOUTFILES$xTYO$xW+].uGSUGGESTED-FORMAT%xGINSPECTING%x%%xGLOC&x&&xGPRINLEVELu:].W&xGPRINLENGTH'xGPRINENDLINE'xGPRINSTARTLINE(xGATOM-PCODE(xW+UjuGEXPLODING)xGOUT)xGMAINFILE*xGLINELEN*xGINITIAL-CHARPOSu;UnW+xGNOWPRINTING+x++xgf-var,x,,xGABBREVED,xW:]juGTRUNCATED-x--xGPARENTS-x--xGRPTR.xGQUEUEw+Uju.x..xGQL/xGQR/xGTSIZE0xGLSIZEu;Uju0xGQS1x11xGQSP1xGLINENO2xGFREELENu:].W2xGPENDING3xGPENDING-NEWLINE3xGWENT-UP4xGDEPTH4xW:].UGPS5x55xGPSP5xGF-ARGS6xGFGF MACROW*]*UMACRO677x=d "CEXPR-HASH788xGF-PARSE1GF-PARSE2GF-PARSE3GF-GROUPU(GF-CODEDISPLACESUBR,8Z[99Z`LhZ::; $-, $,Xj].U$;p<DEFORMATDEFORMAT MACRO<=7xW4z E*St,8Z[-,Z`ZZ`,8ZgZ[-,,X-, ;U $>-, $,X$;P<DEFGFDEFGF MACROu9 ??7xc%U2x?@8x>z E*St,8Z[-,( ,z l^1=X,8ZgZ[-, $6-,0 `-,,z l^1=X-,,X-, ;U $>-, $,X$;x<GFUNCTIONGFUNCTION MACROu9 @A7x$ KAA8x,z l^1=X,8Z[-,  P2 $6-,-,,z l^1=X-, $H-,-, $ -, $,Xj].U$;<GFORMATGFORMAT MACROBB7xLCrBC8xARGSNREVERSEU*U*STUFFNTHLISTNCONSGPRINT1GEXPLODEIMPLODE,8Z[Z`Z[Z`ZZ-, C,8,8,8,<,86@` +0 gD+8 p..Dz <{1Q "p,< 0-, $E-, g-,Z`,\ Bg D` Np+.//a(,87DC+< "E-,+=FzH sT,X`2*`-, $6-,-,Dz <{1Q  -, $-,-, $ -,0*,87@g+Iz un2-, g-,0H  g-, $F-,+Oz un2 2-, $-, g-, $GH-,-, $G-,/:u, $,X$;(<& 1_9H8xGF-CHARSU*U*UEXPLODENEQUALSTART-SUB-GO-IN.GO-OUTU*U*UPERIOD<>(P8!U*U*UC1)S9$I4U*U*UQUOTE-ARG?~NUMBER-ARG*:*$U*U*USTRING-ARG%&END-SUB=STARTU*U*UIND>END+OPEN()U*U*UCLOSE A0'N7U*U*U!B1&M6/U*U*U"E2ASSOCGF - unknown characterU*@ERRORGFP-QUOTE-ARGGFP-STRING-ARGGFP-NUMBER-ARG,8-,HIB BH-,~ 6BH+W gD+vZ DH[ Fg4D_[ 80N+_ $IDD@(*J4B_ZH DH *J JgKKLLMMNNOOPPQPQRRRSSTSTUUUVVWWXX XY XYZIZ[[\[\][JJ]^^__X``aaXb__XbKcLc`ddeeefefggghWXghiiijWXijW XikklklWXkmmnmnoopz U}e g p B`5Bg ,g,8,8w g}-,0 g~-,,8",<qZ`,8,80A7@g+u[g B`0BV+m g} g~P 1 r+r0B[+p g~r+r0BX+r@`s+r[g g~-,Zg Bg~ Dg `2+h/+T/+q]:@1<QG ,>,8,8e,8",<q+BZ FC,8@ g~[`-, Bg~/ g1BL +E0B^+HZg~,8g~[` Dg~ Fg}/2DLPRSUZ\Z^zP[b?)4JT[(Z (0H+H7@g~+TA*16@g~+T g}KLPRSUZ\ZJ^z J2urMzl6R3~4BR g " @0-, Bg+T g "-, Bg g0BM+W * Jg~/+ 0BK +\ g~ g~-,@@g~ Bg~/  + 1BJ+^/+ g~ g~-,2a * Bg~ Jg~/+ /D]+, < [D,^u( #:8xGF-GROUP-LISTGF-GROUP1-,+]8 (<eIp 8x,8,86B+kD gD+Z D[ F`1FL+o @bA 0F^+p gD+1FK+r0FJ+zD" g*-,Z,8 D[` Bg`-, Bg g-, Bg/0P( +h1FP+1FR+1FS+1FU A +1F+1FZ+1F]+1F_+ P(1Fa+1FW+0F + g*-,1@0Z,8 D[` Bg-, BgA/+h1F\+ 0FZ+ g*D-,Z,8 D[` Bg-,Z,8 D[` Bg~-, Bg~/0@`+h g*-, Bg+h/0.]*U,xx<gv& `;8xGF-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-codepxp@ x,8,86@g+ `D+4Zg,8g $[`,8 Dg~0BK+-Z`0[-, $,-,-,Zj ,8[ Dg~;  z gOvm-, $-,2@` $ -,-,,X-, ( $ -,+20B+/  zLC!+20B EA +1 z:[Yv@+20BM+3 "M+20BN+5 P* " +20BO+7  zLF+20BP+=Zg~H ,8g~[`-, $(-, $ -,0BA Fg~/+20BR+DZg~,8g~ d[`-, z .GD-, $ -,( Fg~/+20BS+JZg~,8g~[` @0-,z X>aA-, $ -, Fg~/+20BU+NZg~,8g~[` Fg~/+20B+UZg~,8g~[`-,2AHz X>aA-, $ -, Fg~/0P +20BZ+[Zg~,8g~[`-, ` $-, $-, Fg~/ 2+20B]+aZg~,8g~[`-, $ -, Fg~/+20B\+iZg~0,8g~[`Z *[*-, $( -, $-,/ Hg~+2 @0BZ+rZg~,8g~[`Z *[* @0-, $(-, $-,/0 Hg~+20BJ+~Zg~,8g~[`Zj ,8[ Hg};,z l^1=X-, $-,0`-, $ -,*`-,`0,X-, $-,/+2 T(0B_+ zCBb+20B_+Zg~,8g~[` @0-,z ,MF-, $ -, Fg~/+20Ba+Zg~,8g~[` Fg~(4B /+ "/-,(a z ,MF-, $ -,+20B`+(P*  zRc+20Be+ zoUIK+20Bg+ zrSIz4 "A(+20Bi+ z1;IJ+20Bk+ zp,yC+2 @0BW+"Zg~,8g~[` Fg~4B/ @e+ "/-,z [OA-, ( $ -,+20B +(Zg~,8g~[` @0-,z /*%Q-, $ -, Fg~/+20Bm+/Zg~,8g~[`-,2AHz +OED-, $ -, Fg~/0D+2 ,2,8,85,8",<q / `-, B`+/.]*Q,x0</\bp= 8x. GABBREV-LENGTHZ,P" B,5B8 " +K4BH7@ " (B{Z2(C"0BE+<+H $ " $ "hC" $ " $ " $ "hC  , " $ " " +K1Z,6@g " [,5BK,x0<6W*@BM?8x...,8,8 1.. 1  (2O&7' ",8 1.. 1 (P$3n+U " +e 1.. 1 (2. A+Y "+e6@g+[ " +e 1..( 1 (2O&+_ "+e4Dd(D{ 0`n+d g(N{ 8anb+dBB"g " /4Bj * J, $ "h $ " " /,x<LWA:q^C1 8xZ, B,,x8<k+S(# 8x7B, H " (B{Z1BEg " ,x<mU*U.WFBOUNDP*FEXPR*LEXPRGPRINTCGEXPLODEC*EXPR"F G    (xSR`!F8xU( 0:PRIN1GFORMAT-OBJLSUBR-0,8 Z( ,8 g1n+vZ(+v ",81n+yZ(+y ",81n+|Z(-,0H+} ,81n+Z(-, 0+ ,81n+Z(-,+  ,81n+Z(-,+  D" ( -,p&p'p'(() g~ g} g~ " /+]:\h!qCF! xf!`!"8x-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+`!C! xS7J! "8x-0,8 Z(,8 g1n+2Z(+2  ",81n+5Z(+5 ",81nB +8Z(-,+9 ,81n+<$Z(-,+< ,81n+?Z(@-,+@ ,81n+CZ(-,0Ib+C  ( -,p&p'p'(() g~ g} g~ "  /0}.+8!-C ! xa/KN\G#8x-0,8 Z(,8 g1n+PZ(  +P ",81n+SZ(+S ",8@ 1n+VZ(-,+W ,81nB +ZZ(-,+Z ,81n+]$Z(-,+^ ,81n+aZ(@@2-,+a ,8 "-, ( D"-,p&p'p'p(() g}``5 g} g~ " /+p!Ku8 0CG! xU KN\#8x-0,8 Z( ,8 g1n+oZ(+p ",81n+rZ(+s ",81n+vZ(-,0H+v ,81n+yZ(-, 0+z ,81n+}Z(-,+}  ,81n+Z(-,+ H,8 "-, ( -,p&p'@!p'p(() g} g} g~ " WjW/+h!jC! xPLENp4$$8x -0,8 Z(,8 g1n+Z(+ ",81n+Z(+  ",8 ,,8,8g~,8g~,8,8@`,8,8,8",< /0.]*u,x@! C$% xGSET-UP-PRINTER ._1%%&8xTTYINTU*U*U GPRINTABORTSSTATUSFEATURESTOPS-20 GCONTINUEGREPRINTRM&PRIN1&''zn-d((zl$jU4B[ Z0J) L*5+&)*zg\N;(+ &%*z'\N7(&*+z' KG ( "F.U* B+,xX<COLON-FLAGSTANDARD-OUTPUT*APPLYFORMAT-CTL-ONE-ARG-,(C,86@,7, "F,8 "-,` ,-, g-, $,X-I:u/+ p-#p <7".8x*TERPRIU*U*U*PRIN1SQUIDMAKUNBOUNDVALUEPLP2EXPRFEXPRFSUBRGETLPB"PROP,8-,5B. " B",8,807@g+hZg,8g[` Bg DgZ" D4F8.`j g(N{6 87g[g / g(N{6 87g[g,8 g@(N{6 87Zg,8(B{6 7mZ`,8 g(N{6 8+F g4JK[(Z (0H+C[gZZ1D0A@+K * (0 & $ g 1,80  g(N{6 8+Q g4JX[(Z (0H+N g~4BX127<!2z W;|S g~3 g (3Z[[ B` g~ 17Bg~7Z,87@`+g `3Bg+eB g~(N{6 8+b[ g~4Je[(Z (0H+_ g (3Z[[ g~  1Z`Z B`+Z/+0 "/,x?C|?r )xGa |OsF| qF%kU$ (2, NL148x;Value -GPRINT.LISP_1. $,8 "hC" $ " $4 " $ "`C" $ " [` " $ "u$/$ P<m;Function cell -GPRINT.LISP_2. $,8 "hC" $ " $5 " $ "`C" $ " [` " $ "u* /$ `<y; property -GPRINT.LISP_3. $,8!QD " $ " $6 " [`!QD " $7 " $ " $!@4 " Z`[ " $ "/1nU*$ x<NAMED-LAMBDANAMED-SUBSTDEFSUBSTFNCELL,8,8 ,8,8,81H0++4F7@ & (F{ A Z0BE++[g1B+1B8+ P(0B8++1B87N "> Bg0D1+" g~`-,+$*-, g~-, ,8[g~0D+'Zg~+(Zg~Z,X -, $>-, Bg.7@`+. 0 g0B>+4 ,3,8,8g~,8,80 ,8,8,8,8E",<F+M0B0+< ,;,8 g~-,0 `0,8,8O,8O,8,8,80,8",<F+M0B9+D ,C@,8 g~-,,8,8P,8P,8@`,8,8,8",<F+M D0B3+M ,L,8 g~-, g~-,0 `0,8,8Q,8Q,8,8,80,8",<F+M "/D%,x9 5 6 7<0W*TC)0pM@*':8xNOINTERRUPTTYIaborted ":(zl$jU " $ ")5BX ,X,8,8;",<;Qd7B++[ $' ";+ ",xx<RW)S  *<8xGREDO ":(zl$jU $ ")D!5Bb ,b,8,8;",<; ""<]9S <\npG +=8x ":(zl$jU $ ")D!5Bj ,j,8,8;",<; " "<]:U*P0<c"U9`<=8xFILEMODECURSORPOSMIN*EVAL,8@ 7D-+5[4F5,8Z[,8Z`Z[,8Z-, ,8Z-,0 ,8Z-, [,8 g-,2@d $-,-, $>-,@4B[ Z0J>+z ,,8,8g~@",<>[,87@g|+ ,,8,8 ,8g|",<?+ g},8 g~-,  @1 $-,-, $>-,4B[ Z0J>+ ,,8,8g,8g| d,8g|",<> g~-, $-, 1-, $>-,4B[ Z D0J>+ ,,8,87,8g}",<>6@g|A77[g~,87@g{+ "?+Zg~[,87@g{+! "?+"Zg}Z[,8P 7@gz+% "+&Zg}-, $Zg}D"-, -,p&p'p'(( ) g}@/, g}3Og@0+1 ,1,8,8g}",<6@g|+4 g|a QC- -+4 "/+6 "/0.U,x ?H<k_A 2 @8xzSUBSTU*U*UCHARPOSLINEL*ARRAYFIXNUM<GFORMAT-OBJ1*PRINTP!!*PRINC,8,8,8,8 &5B; "A B&PD '5B= "A B' '5B? "A B' (  @5BA " B(4HG7@ ( (H{Z  @ !1BE+G `-, B` ` $ $$ A B`7@g~+P6D)+P (5nP '@04nP ,P,8,8",<,X-,!-,)[5BV7D#+U7F#+UH %[$5BV $-,*>*zii TF4B]"[ Z0J>+X ,],8,8*",<>,87@g~+` "+b ,b,8,8*",D<B-,+7D+e +h ,hd0,8,8*",<B/+/.-, -,1D@1*-,2 *-, 2 @b (-,3-,3 &-,1D!4-,47D++w ,v,8B ,8,8,8 ",<C+| .@ 5B| ,{,8,8,8,8 ",D@1<C B.-,. *-, / D (-,/7D++  , ,8,80D,8 ,8 ",<C+ 15B , ",8,8,8 ,8 ",<C B1-,1 "1 *-, 17D++  , " ,8,8,8 ,8 ",<C+  5@ 5B  , ,8,8,8 ,8 ",<CH B5-,5 *-, 57D+@ +  , ,8,8,8,8 ",H"0<C+ # -5B # , ",8,8,80@d,8 ",<C B--,--,1 $, *E-, . (-,b0-,~ &-,0 1 1"0 Q 1.. Np *p 1 ( 0 Q 1.. Nw *w 1 ( 0 Q 1.. Nw *w 1 ( 0 Q 5@ 5"0 Q 5.. Nw~ *w~ 5 (*1 0 Q7B+ M>*zii TF4B E[ Z D 0J>+ @ , E,8,8 ,8*",<>>*zii TF@4B M[ Z0J>+ F , M,8[g@2,8Zg,8,8*",<>7B+ Q g (0 g~ gE+ ^ " $ U-. gx  gx gyE-,+ 5B ^ "  00 $ Z-. `  gyF-,+0L" 5B ^.` `  g,< "pF$/7B,+ 6D)+ 7@`+ [`L ,8>*zii TF4B h[ Z0J>+ c , h` 1,8,8*",<>,8 (-, 2 1-, $A-, '-, &d-,,8 g}-, $-,H,8 g}-, $-,,8 * -, $-,-,,X-,0H ,X-, $-, $ -,0b-,,X-, *-,` +-,[`-, g-,B0 B-/7B)+ DZ+  " @`0/,,,,0 ,,,,@`0,,,,,0 ,,,,@`0,,,/,0 D"/+NCD"D"DDDpDNpw |r/I|?r /xGb?x( xe&vOD|;pv@|r/I|?r /xGb? Wx( S;'b?x8 [Vu86xa@<(8W[EG8xU*UnuNote enough }s in formatGHHIIpJJxJ x  ,8,8,8 "' $ .-. * -,1D +-,+ gx " 1  5N ' 54N ) , ),8,8 2",<q7@gy b@0+ , $J " + - ",,0(+ 5B 0 " + 1 " B,/0u.W,xJX< FLUSH-MACROMEMOSGINSPECT-ATOMKKKxGINSPECT-ATOM MACROKL7xW*U .(;LL8xMACROFETCHLENGTHWrong number args for macroMACROMEMO,8M5B <@" `M1N+ 9 , 9,8,8 =,8g",<qZ`[ &K $ `N/.].W,xN@< 2GINSPECTKOKxGINSPECT MACROOO7xA:&eOP8xD,8M5B G `M1N+ D , D,8`,8 H,8g",<qZ`[ &O $ ` :uN/,xNx< =.I!P8xGETU*U*UUSRHUNKSENDI:WHICH-OPERATIONS:GFORMAT-SELF:PRINT-SELFPRINTGFORMAT-HUNKARRAYGFORMAT-ARRAY-,%,8 .-, .7F + N* B` 1.. 1 (3/&`+ Y `4N Y(N{ 8`n+ Y `B(N{ 8`nb+ Y * J, ! " H + D,87@`+ `[`,8 gC` /4B _ " + aZ` D`+ Z "0/5B D `4N g(N{ 8`n + g `(N{ 8anb+ i ` (@" + D6@`+ k+ n7B` " (B{Z2@0BE+ ,87@`+ u[`,8 g(C`/4B s " + uZ` D`+ n $ "/5B D7D%+ y `B+ D,86@`+ [g,84B ~(B{ Pan+  $> `Q5B `4B  7 + 6@`+ + 7B` " (B{ A Z0BE+ [`1B+ 1B8+ H@`0B8+ 7 /,8 gC`/+ [`,8 gC`/ 04B  " + Z` D`+ y/+ D@ `(N{ 8an+ 6Qzn zR,8)@ Rz|Q,87@g+  gCg4B  $R gE`+ ",84B %[ Z0JS!+ g~ $S "Gg+ 5 ` "SA5B * `4J ,[(Z (0HT+ ( g~ (H + 5,86@`+ / g~T+ 5[` ,8 g}C`/4B 3 " + 5Z`A@a D`+ -//+ D7B` "  (B{Z0BU+ C,86@`+ < g@0U+ B[`,8 gC`/4B @ @ " + BZ` D`+ :/+ D `A@`5 ( ,/+h< HW*U"Y_&V8xARRAY-DIMENSION-N*REARRAYGCHECKRECURSION1GCHECKRECURSION-LIST ...,8C-, B.,8 - "V `/0 03.+ R , Q,8,8-,8.. ,< *p,8",<W/ `-,1 - .(.4. VQC(+ VXC( `A W5B ]7B` " (B{Z0BE+ \D`0 `X+ ] `-,/,x]:@`< Fe$&_XX8xGCRL1,<,8Z,8 ~d,87B` " (B{Z1BE+ e g-,+ { `W5B i g g `0Y,84B wZg~,8[g~-, g~/.,8,< p5N q `D gXK` + u `[g-,>pZg B` Dg 0+ n//+ {/ g.. Np "pZ` Bg D`+ a/@`%-,//,x< ^W*]nU'q FYY8x*NOPOINT%~aZp[[x[ xFORMATINTERN`,8,8,8 "-,,<,8 p(4N `2Bg~+ * -, Z ,  ,8,8,8  (p,8",<[\ ,+ >pZ D`+  "/0 :u/,x[< ~pJW\8x^~aw8]p]]x] x,8 ./.,< p4. ! -(.4. [+ Z2B`+ *   -, Z , ,8,8,8 # .01/p,< (p,8",<[/\@0,+ !>p+  "//0ujR,x]x< +g*=T^8xHUNKSIZE . $ 4!,8 " $ " $b " `,< `^ Np "p,8 1N0g .,< $ " g p-,0hC $ " $_ " p4N > D:p p2O`+ 7@@p $ " p0Ng " ,8 g-, $,XQD4B . $c " $ " /0.U/,xH< # &\=rU_8xARRAYDIMSFLONUMU4!GFORMAT-ARRAY-1GFORMAT-ARRAY-2 $,8 " $ "  B ` ( 7B+ [,< ``(,8[1DD+ O1D`+ O1D + O5D Z 0Z[8 84N ZZM Np *p,8@ (=N V g ga+ Y (0N+ Y  g ga///"G:u $ "/$ X< C$vGab8x containsU@` [],<,:,8 $b,8!QD " $ " $ " 1BB.. 1 (3/&+ i * J, ! " QD +  $ " $ " $c!A@ " ,<[gZg[8 8/.@! Np *p,<,8,8 $ " "  $ " g0BD+ { g p ( Nw "w+ 0B`+  g p ( Nh@ "h+  g p(.4. [+ Z  $ ":p p2o`+ 2O`g"L(C " z :w5B $ " + s $c!Q " $ " //@`]///,x< ]/gYS*uC"ad8xGFORMAT-ARRAY-2-1,8 $b,8 " $ "d $ " 1.. 1 (3/& H1"+  * J, ! "  + 4 $ "hC $ " $c " ,<0Zg[8 8/. Np "p,<,8` g $p gd:p p2o`+ 02O`bDg " z :w5B 0 $ " $!E4! " + % $c " $ " @`]///,x< Q$&a-p de8x,<,:,8,<,8 1BB.. 1 (3/&+ = * J, ! " QD + i $ " $ " $c!A@ " ,<[`Z`Z8[8 8 "/. Np *p,<,8,8 $ "`A $ " g0BD+ Q g~ w ".$( p. ( Nw~ "w~+ ]0B`+ W g~ w".$( p. ( Nh@ "h+ ] g~ w".$ p.(.C4. \[+ ]Z $ ":p p@S 2o`+ e2O`g " z :w5B e $!E4! " + H $c " $ " @`0/////0.].W,xH< 5DEFUN-DEFAULT-GFORMATKeKxDEFUN-DEFAULT-GFORMAT MACROef7xN>g6ff8xU+]jU~a-:Gformatgghphhxh xDEFPROP-DEFAULT-GFORMATEVALLOADP 0EVAL-WHEN,8M5B `M0.+ r , r@1,8,8 ,8g",<qZ`-,C@[Z[ HCZ ,8,8 , z,83,8,8 ,8",<[\,X,8d C-, `-, $>-,`*g-, $-,*`-,  2 $-,-,,X-, $i@(-,-,,X-,ijz Kn&d-,2@d $j-,, &e $ `KWN/,xNh`< ky`u<ik8xPPUTPROP,8,8 $>Q5B &> ` gP Wk+ "/,x< 1E.!l8x hC" $,8 " $ " $b "@b ,X-,-,, 5B&L(C"[, 5B& $ " $ "f! [, " 5B& $ " " D $ "+ , $c " $!nUd "$ <:GTBLOCKt^Nlm8x $,8 "hC $ " $b " ,X-,0F!-,, 5B9 $ " " H3 $ " [, "l 5B9 $!D D " +2, $c " $!n\@! "$ H<*1O`)m8x $,8 " " 0 $ " $b " ,X-,bD-,, 5BL $ " $!I1" " [, " 5BL $ "AHC" +E, $c " $ "j\@!$ h<=:GBLOCKqA/nn8x $,8 " " 0 $ " $b " ,X-,b$-,, 5B^[, "n hC5B^ $ " $ " +X,2hC] $c " $ "$ `<P:G1BLOCKW4!sUfuvoo8x $,8 " $ " " `1 $b " ,X-,-,,I1" 5Bo[, " 5Bo $ "b" $ " +i, $c "w*r $ "$ p<a:GMISER4R.=opp8x $ 4!,8 " $ " $b "  # ,X-,-,, 5B[,!L(C" "p 5B $ " $ "AHC" +{, $c " $ "j\@!$ <s:G1MISERSUfuvqq8x $,8 " " 0 $ " $b " ,X-,b$-,, 5B[, " hC5B $ " $ " + ,2hC] $c " $ "$ <:GNOTHING-:GformatW.UByKrr8x ",x <:GNOTHINGisrx:GUNTERPRI-:Gformat.strCu>Wst8x:GUNTERPRIt*z + J "$ 8<itsx ;Xmptu8x`2,8-, $-,-, $> -,4B![ Z0J>+ ,!`,8,8g",<>[,84B5 4n5`2 g-, $-,-, $> -,4B4[ Z0J>+( ,4,8 g/.,< *p,8 ,0,8,8g~@",<B/.,< *p,8,8g~",<>`]/+5 "/,xH<:GSETQ-FORMATW4!vX UVuv8x $,8 " $ " " `1 $b " ,X-,-,,Hf! 5BP[, 5BP $ " " H3 $ " [, " 5BP $!QD " $ " $ " [,!L(C" " 5BP $E " $ "4!+C, $c " $ "$ ]+G>WX<6SETQ-:Gformat,_7Aqvw8x"uh<SivxPSETQ-:Gformatww8xkUc]"ux<TPSETQixwxSETF-:Gformatxw8x"u<TSETFu+@iyxx:GQUOTE-FORMAT82R%yz8x,8,8Z7@ "  (B{Z0BE+gZZ5Fg $!Q " $ " g " `D1-,-,, 5Be 5BeL D[, , $ " +hAA:W*!/,x<UQUOTE-:Gformat0r=Fez{8xPwjW' $ "{$y(<iizxFUNCTION-:Gformat0TuFe||8xPwjW#' $ "}$y@<ki |x:GBACK-QUOTE-FORMATkIl*:}~8xD,8 $,8 " $ " ,X!@  " ,X-,-,, I"5Bw , ", $ "j] !$ X<l`-expander|-:Gformat[lu^]~8x` $ "$}]:Ujh<y`-expander|i~x`,|-:GformatXLu^]8x, $ "kU.P$} <z`,|ix`,@|-:GformatXPu^]8x,@ $!n]*u "$} (<|`,@|ix`,.|-:GformatXOe^]8x,.ujW $ "$} H<}`,.|ix`.,|-:GformatX_U^]8xPw.U., $ "$} h<`.,|ixDEFSELECT-:GformatTl9<uDD 8xGPRINT.LISP_4.-,, $ " $!Q 1 " $b " ,-, ,Hf! 5B[, 5B $ " " H3 $ " [, "n 5B $!I1 " [, " +," 05 $c " $ " +!< hC" $,8 " $ " $b "@b ,X-,-,, 5B+L(C"[, 5B+ $ " $ "f! [, "o 5B+ $ "  b"[, "  +', $c "w.U $ "$ !<DEFSELECTi xPROGW-:Gformatq8rD  8x $,8 " $ " $b!@  " ,X-,-,, bD5B@[, 5B@ $ " $!I1" " [, " 5B@ $ "4!+;, $c " $ "$ ]:Uj !(</PROGWi  xPROGV-:GformatU(w3  8x} $,8!QD " $ " $b " ,XD1-,-,, 5B^[,QD 5B^ $ " $ " [,!L(C" " 5B^ $ " $ "f! [, " 5B^ $ " " H3 $ " [, " 4BZ,2hC] $c " $ "$ !@<CPROGVu+T@!i  xMULTIPLE-VALUE-BIND-:Gformat_T{a;8x $,8 " " 0 $ " $b " ,X-,b#-,, 5Bz[, 5Bz" 2! $ " $ " [, "oQ$ 5Bz $ " [, " hC5Bz $ " $ " [, "D D 4Bv, $c " $!n]*p "$ !`<aMULTIPLE-VALUE-BINDixMACROEXPANDED-:Gformat9#Si8x,8A@07D+-, [+-, * w.U "/$"<~MACROEXPANDEDixDEFUN-:GformattZJp 8x,8Z[1D1+ 1D2+ 1D7 + ZZ[1F1+ 1F2+ 0F7 hC"+0 $ " $ " $b "@b `-,-,, 5B,L(C"[, 5B, $ " $ "f! [, " 5B, $ " " H3 $ " [, " 5B, $!Q$ " $ " [, "n hC5B, $ " $ " [, "D D +&, $c " $!E4! " +M $ " $ " " `1 $b " `-,-,,Hf! 5BJ[, 5BJ $ " " H3 $ " [, "o 5BJ $!Q$ " $ " [, "n hC5BJ $ " $ " [, "D D +D, $c " $!AA>U " /,x"<i>xDEFUNS-:GformatOM}rD8x $,8 " $ " $b!@  " ,X-,-,, bD5Bf[, 5Bf $ " [,!L(C " 5Bf $ " [, "nE4! 5Bf $ " $ "  b"[, " +`, $c "w.W $ "$ "(<NDEFUNSixn(ff 8x hC" $,8 " $ " $b "@b ,X-,-,, 5B|L(C"[, 5B| $ " $ "f! [, " 5B| $ " " D $ "+v, $c " $!nUj "$ <iLAMBDA-:GformatgA~B8xGPRINT.LISP_5. $,8!QD " $ " $b " ,XD1-,-,, 5B[,QD 5B $ " $ " [,!L(C" "n 5B $ " $ "f2 [, " +, $c!Q:! " $ "$ "X<GCHECK-INDENTATION $$_*]* "H<ixNAMED-LAMBDA-:GformatgU6,K8xzGPRINT.LISP_6. $,8!QD " $ " $b " ,XD1-,-,, 5B3[,Q$ 5B3 $ " [, " hC5B3 $ " $ " [, "nE4! 5B3 $ " $ " " H3 $ " [, " 4B.,2hCZ $c " $ "$ #< $zUjR$"h<7i8xNAMED-SUBST-:GformatCSTe8xzGPRINT.LISP_7. $ 4!,8 " $ " $b "  # ,X-,-,, 5BR[,E2! 5BR $ " [, "QD 5BR $ " $ " [,!L(C" "n 5BR $ " $ "dC $ " [, " 4BMD, $c " $ "$ # <8!oU.U $$#<Vi8xLET-:Gformatn}Z2 8xGFORMAT-BIND-LISTGPRINT.LISP_8. hC" $,8 " $ " $b "@b ,X-,-,, 5BjL(C[, 5Bj $ " [, "E4! 5Bj $ " $ "  b"[, " +d, $c "vC_ $ "$ #@<W $$#(<ni xW)C"LET*-:Gformat8xGPRINT.LISP_9. $,8 " $ "` $b " ,X-,-,DF1", 5B[, 5B $ "f! [, " 5B $ " " H3 $ " [, " +|,2hCZ $c " $ "$ #P<o $kUj $#H<LET*ixLETS-:Gformat8xGPRINT.LISP_10. $,8!QD " $ " $b " ,XD1-,-,, 5B[,Q$ 5B $ " [, " hC5B $ " $ " [, "D D +, $c " $!m:u "$ #h< $$#`<LETSix=4x*uDD8xGPRINT.LISP_11.-,, $ " $!Q 1 " $b " ,-, ,I1" 5B/[, "n 5B/ $ "dC $ " [, " +)D, $c " $ " +5h $!$<GPRINT.LISP_12.-,, $ " " 4! $ " $ " $b " F! ,-, , 5BD[, "nQD 5BD $ " $ " [,!L d! " +>, $c " " 0 $ " +$<3,8-,,86@`+L " +Q[`4BO(B{ 0an+PZ` B`+J "/ hC"4Bc $ " $ " $b "@b `-,-,, 5B_ bD[, " 5B_ $ " $!D D " +Y, $c " $!E4! " +v $ " $ " " `1 $b " `-,-,,I1" 5Bs[, "  5Bs $ "dC $ " [, "  +mD, $c " $ " /0.Uj ,x#8<HCOND-:GformattQ Q!!8xGCOND-FORMAT2 $,8!QD " $ " $b " ,XD1-,-,, 5B [,QD 5B $ " $ " [,!L(C" "" 5B $ " $ "4!+, $c " $ "$ _+@ $<wi!xg`W3""8x,8[0D +% $!QD " $ " $b " `D1-,-,, 5B![,QD 5B! $ " $ " [,!L(C" " 5B! $ " $ "4!+, $c " $ " hC"+6 $ " $ " $b "@b `-,-,, 5B3 bD[, " 5B3 $ " $!D D " +-, $c " $!AA:W " /,x$ < PROG-:Gformat i##8xUGNAMED-PROG-FORMATGPROG-FORMAT,8Z4D<7@ $ (D{Z20BE+AZ`[4BA4B@(B{ 0an+A `$+B `$/0/U`,x$0<7i #xPROG*-:Gformat%#8x,8Z4DH A7@ $ (D{Z0BE+MZ`[@ 4BM4BL(B{ an+M `$ W+N `$/,x$P<CPROG*i%%xW*HI$3CH$&8xGPROG-FORMAT2GPRINT.LISP_13. $,8 " $!Q0 " $b " ,X-,-,1 $3 , 5Ba[, 5Ba $!Q$ " $ " [, " b"5Ba[,& +^, $c "w  $ "$ $p<OGWAS-LABEL,8-, ]' $'/+$H<dWL?:u4!$(8xGPRINT.LISP_14. $,8 " $ " " `1 $b " ,X-,-,,Hf! 5B}[, 5B} $ "  bD[, " 5B} $ " $!I1 " [, " 5B}[,&AHC" +{, $c " $ "@ $$ %<h,8-,' $(/0uj+$@<kR1F#&)8xFLATSIZE,86D' `0+ $ " `(N{7 8+!` * J' `)"0/,< $p "hC ` " $ " /d+ ` "@b'/,x$h<U:@b"DO-:Gformat!*|F**8xGPRINT.LISP_16.-,, $ "hC $ " $b " ,-,1 $C , 5B"[, "o 5B"" d! $ " +, $c " " : $ " +%0<GPRINT.LISP_17.-,hC", $ " $ " $b "D1 ,-, , 5B4[, "E4! 5B4 $ " $ " 4!+., $c " $ " .H+%8<&GPRINT.LISP_15. $,8 " $!Q0 " $b " ,X-,-,1 $3 , 5BO[, 5BO $!Q$ " $ " [, "+ dC5BO $ " [, "+ 5BO" F1 $ " [,& 4BM," ; $c " $ "$ %@<8,8-,1``5' $,/+% <RW*]$DOi,*xDO-NAMED-:GformatL"K--8xGPRINT.LISP_18. $,8 "hC $ " $b " [` "` $ " Z`[ " $!QD " $ " $ " $!QD " $ " $ " $b!@ " Z`Z[-,, f!5Br[, "o 5Br $ " 4!+n, $c " $ " " 4! $ " $ " $ " " `1 $b " Z`-, -,,I1" 5B[, " 5B $ "b" $ " +, $c "hC $ " $ " Z`-,0F -,, 5B[,& 4 + , $c " $ "/1lb!$ %`<V,8-,' $.W.U/+%P<DO-NAMEDi.-xDOLIST-:Gformatn)t8rD//8x $,8 " $ " $b!@  " ,X-,-,, bD5B)[, 5B) $ " $!I1" " [, " 5B) $ " d! $ "+#, $c " "ujr $ "$ %p<DOLISTi0/xDOTIMES-:Gformat0/8x $ 4!,8 " $ " $b "  # ,X-,-,, 5B?[,E4! 5B? $ " $ "  bD[, " 5B? $ " $ AHC" "+9, $c " $ "kUjU$ &<,DOTIMESi10x[\QV18xGESTIMATE-INDENT;----------| ,8,82,8 */3o+H gQCg+d $ " ./`,< $p!Q " $2 " `/.,< $p!QD " $3 " $ " ."/`,< $p " gCg $ "C" ./`,< $p " $2 "C" `/.,< $p " $3 "``0 $ " //,x]:U*U"`<B_?-.238xGMISERINGGGET-INDENTMAXToo many }s in w8 566ghp77x7 x,<,< 5..1 5 (,8/,<4,8-,p/$ ,8 /2//+ . /(.4.p[+qZ,80B+ g5N6@g+ ,,8 /.. .(.4.y[+y@&Z4B{ +|4 .p,< *p@``,8,8",<5/  Np+ @ 0B+ g/. Nw "w Bg+0B@ + g5N /.. .(.4. [! + Z5B p.3o*+ * :p@ Jg+ g.. Nw "w Bg/D /..-, B/ 5. ,,8 ,8",<q+l,\-, /@D%,/,x7& <eW*U*WcN^ 78xFLATCGPRINT -- bad type to GQ899::pw*T;;x; xGUPDATE-SIZESGEXPLODE-ITGPRINTOUT-,|,8-,1 . /(.4."QC(+"XC(,8 /.. Np *p "-, . (@ (.4.)QC +)XC /..,8. NwA g0B+. "+E0B+31D+2 P A 1D+21D+2g "+E0B +7@A *) Nw "w+E1B +90B+;@A*8 Nw "w+E0B+= "+E P( 1B+A1B+A1B+A0B+B "@ +E ,E,8,8h,8",<q-, *w-,,X ((.4.JQC +J bXC g0B+o-,~ 1.. 1   ,< 1 "V 1..,8-,1  B1 `/2n+[ ,Z,8@,81,8i ..(,< *p,8",<WD/ 1 1 / Q 1.. Nw@  *w 1 ( 0 Q 1.. Nw~ $D `J4Be "p+g p.. Nw "w (w~ 1   Q 1.. Nw~ &w~a 1  0 Q/+0B+$  1 1  4. 1 1  .. 1 .0 1 Nw~   0/ (w~ Pw~D &w~ "-, .  (.4.}QC(@+~XC( 1 1 ,< "p;/1  1/.-, B1 5. ,@`A ,8,8i",<q g1B + 1B + P$1B+ 0B+ /.. .(.4.@@[ (+Z ( 0. -, B0 g P(1B +1B +0B+ 1.. 1.0 1 Nw}  (.. *w} Nw} (w}A 1 (  Q g1B + 1B + HdC0B+! /; . "V /..@,8-, B/ `/2n+- ,-,8,8.,8 ..,< *p ,8",<W/,<7B)+0H<+B /.. .(.4.3[+4L AZ4B5<+B g0B+8 `1B B +: 0/03o*+A /.. Np *p . ( &A(.4.@QG +@XG <H@+B+U . /(.4.E[+EZ(@  zP&JFH4JN[(Z (0H+F /.. .@ (.4.L[ (+LZ ( 0. -,   B0 /..-, B/ 5.T ,T@d!,8,8j",<q /3//+. /2O/ B!+f * J/ ( H/ & F0 * J0D  1-, 1 1 1"0 Q 1D4Ne/.-, B1 5.d ,d,8 ( ,8j",<q+\ ",+g "@D"//,x;D77%k@7P<t6H@;=8x /.,8,<,<0$ w3//+ .(.4.q[+rDZzPOrSx4J[(Z (0H+r w.. .(.4.x[+yZ5B w.. `.0 . Np (.4.[+Z *p . ((.4.QC +XC `0"..nw+m "//,x]:T!'8<k!LW.<=8xprinendline exceededGESTIMATE-GTABSIZE 45N; . /@ A(.4. [+ Z0B+$ /.. .(.4.[+Z,81B+ P( 0B+ " +#0B+4+#0B @ +" 45B# 5.. 5 ( */2H2.+" /.. .(.4.[ (+ Z (  3o2g " +# "/ 5B5 . /(.4.'[+'Z  zP%1V6 4J;[(Z (0H+( /.. .(.4..[ (+.Z ( 2..  3p+; 5.. 5 ( */22.+; 5 ".. 5 -, B3 */-,1  B2@@4 * J3-,} . /@  (.4.?[+?Z,80B+h 4 @5Nf /.. .(.4.E[ (+FZ (H2  3o2+f 5 "V 5..,8`-, B5 `/2n+S ,S,8,85,8 ..,< *p,8",@"<W/ 5.. */2 Nw *w Pp (p 5 (  Q44Bb 5@.. 5.0 5 Nw~  (.. *w~ Nw (w 5 (  Q 5 5"0B  Q -, + 4..-, P$ B4+0B+ 45N45B 5 ..,85 Nw~ ,{,8 5.. g (@,< /.. .(.4.t[+uZ`4Bv +w4 .p,< *p,8 ,8",<5/ (w~*`  `a Q/ -, + "+ H("0B+ 45N * J4 5/.-,1" B5 5. , ,8,8",<q b + "+/.-, B4+1B A+1B +1B+0B+N7D3+B!" 23/'+ 24n )j $' ">"+ 3/(+ ,,8,8)",<D  3.+-, B3 2..-, B  B2@@3 23/(+&,=3 p4n& ,%H,8,8 ,8)",<$>p+!/  . /(.4.)[+*Z0B+/ /.. .(.4..[+/Z@D 23/(+G . /(.4.4[+4"Z,80B += ,=,8 /.. .@ (.4.:[+;Z,8,8)",<+ +F1B +?0B+F ,F,8 /.. .(.4.D[+DZ,8,8)",@ </ /.. .(.4.J[ (b!+KZ ( 2/ -, B2 " B3 @ +0B+` /.. .(.4.S[+SZ,8 5.[ ,Z,8 ./300,< *p,8,8",<5/ B`D  3.`-, B3 2/`-, ( B2/+0B+ 45N6D3 +,<,< /.. .(."4.g[+hZ5Bt 5 5 (4.m 5 5 ( Nw| "w|+t,85,85>b g `  Q(/ 5 5 (D Nw| "w| */2 5.0 5,<  (,\/& Rw *w,8,8 (4N /( Np "p B` 3.`-,1b B3 2/`-, B2/@0/+ "+ "//0],xD74iP n'H<t~^q4?8x 54n/. 5 (.3o*g H@@] " + *2/g " ,x&@< F =.qD4?8x /-, /,8,<D /..-, B/ 5. ,,8 D,8;",<q /2//+9 . /(.A 4.[+Z,81B +!0B +)AB 7@g+#/+9 /.. .(.4.&[ (+'Z (  .np * Jg+8 H0B+0 /.. .(.4..[ (+.(Z (  .np+80B+87@g+3/0H+9 /.. .(.4.6[ (+7 Z (  .np/+,\-, I:p/+7&H<h6dy>@8x,<1@  5.. 5 ( */ /,<jD Pw (w-, /,<,8 p @5NR /.. .(.4.G[+HZ(B{ anb+R ,Q,8 *w,8 /.. .(.4.O[+PZ,8@ ",<5  Nw . /(.4.U[ +VZ,80B+X:p+Z0B+Z@>p/ /..-, B/ @ 25.` ,`,8,8k",<q /2//+b+C:w w&..nw2/`+g `&w`0 `& Pw w-, /,0KW/,x7'h<;2p*'U<@8xU(DEXPLODENRECONCEXPLODEC . /(.4.n[+o$Z,80B+z /.. .(.4.t@ [ (+tZ (,< p4Ny ) "J-,1(  B)@@p+u "/+ 0B @+ /.. .(.4.[+Z BA A )A B)+ 1B+0B +  /.. .(.4.[+ZBH( )A B)+ "/,x'@<kx;