;[& U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LETS 744pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071LETS744VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xDEFUNRU*U*UFEXPRFORMCARPROGFSUBSTLNOTEQUALU*U*UCONSCDRMACROEXPAND-1S-EQ-CARLETS*GOPLY-OR-N-PcontiW;U*Unuepx xRETURNEVALS-FRAG:GFORMATFRAGU*U*UGF{'('*_(1<*,>)A(1<*,>)+-6[)>]')'}w:U*U !!p""x" xS-COMPRESS-ARG-LIST&INPUTS-ARGS&OUTPUTS-RETURNSCDDDRU*UnuDEFUNSEXPR(2*_*,>))&''p((x( xS-DEFUNSw:U.w&''p))x) x(2*_()))**p++x+ xw:]nU)**p++x+ xS-LETS)**p,,x, x*EVALS-DEBUGRNu*USUBR ""##"$$%%&(&(&)& &+&&+&,&,&zM8!"-X.ANDFEATURECOMPLRSPECIALS-COUNTERu+U*U.//00xBOUNDP1001xEXPLODENREVERSEBASE*NOPOINTU(fNRECONCMAKNAMS-NEW-VAR22,8[` 81.+0n+Z` B`+ 0..-,1b B0 * (3-,3 42;W, $,X4"5X.S-ERROR.//06xu*U.w166xLISTIFYInternal LetS BUG:7788p99x9 xU*U 0PRINLEVELPRINLENGTHPRINENDLINEERRORS-BLSUBR-0,8D6 $9-, B6-,9:@00: ,,8,8",<;/+5j]*u8<ARGS<;1= xFLUSH-MACROMEMOSS-CONSP=>=xS-CONSP MACROW*U*MACRO>>?xMACROFETCHLENGTHWrong number args for macroPAIRPMACROMEMO,8? 5B" `@1N+ ,,8,8#,8g@d",<;Z`[-, $A-, ``% &> $ `A/,x@h.u:U ==xS-EQ-CAR MACROB?xEQGENSYMLET*,8?5BG@" `@1N+* ,*,8,8H,8g",<;Z`[Z[,8,84D/(D{  an+: g-, $>-,0 @0,8 g-, $-,* @0-, $-, $B-,-,0H,X-, $.-,+D , 0C,8 g-, `-,-,0 2,8 g-, g-, $@ -,-,,X-, $C-,0 @// & $ `A /,x@ .#S-VARIABLEP,84BN4BL(B{ an+N `1B g " A:U+O "/,x@.HMEMQLISTS-COPYABLE-CONSTANT@ ,8(B{ anb+S " +e z OwD2 `D5Be7B` " (B{Z0BE+[[`0D g " +[ "5Be7B` H " (B{Z0BE+e[`0D+e`Z`[4Bd(B{ ang " A:u+e "/,xX.PS-MAKE-FRAG=F=xS-MAKE-FRAG MACROubFF?xS-CHECK,8?5B `@1N+m0 ,m,8,8,8g",<;Z`[Z[Z [(Z([ ,8Z[,8Z B`[,8Zg[,8-,` g-, $-, $(-,` g~-, $ -,,X-,(`2z @eKIa-, $E-,-, $GH-,/ &F $ `A/0ujp,x@h.fS-FRAG?=G=xS-FRAG? MACROGH?x,8@`?5B `@1N+ , ,8,8 P2,8g",<;Z`[z GWKdp-, $00-, &G $ `A/,x%z] @ .=#=xS-ARGS MACRO#H?xCADR,8?5B@" `@1N+ ,,8,8,8g", @2<;Z`[-, $I-, &# _ $ `A/,x@ .=$=xW(S-RETURNS MACRO$I?xCADDR,8?5B) `@1N@ +$ ,$,8,8*,8g",<;Z`[ @-, $J-, &$ $ `A.W/,x@ .S-ICODE=J=xS-ICODE MACROJK?xP 0CADDDR,8?5B5 `@1N+1 ,1@,8,86,8g",<;Z`[-,  $K-, &J $ `A/.].P,x@ 0.*S-CODE1=L=xS-CODE1 MACROLL?xCDDDDR,8@`?5BC `@1N+= ,=,8,8D  ,8g",<;Z`[-, $M-,0d-, $-, &L $ ` :uA/,x@ H.7S-CODE2=M=xS-CODE2 MACROp 0MN?x,8?5BQ `@1N+K ,K@,8,8R,8g",<;Z`[-,  @2 $M-,-, $I-, &M ] $ `A/,x@ `.ES-PCODEu8=N=xS-PCODE MACRONO?x,8?5B_ `@1N@ +Y ,Y,8,8`,8g",<;Z`[  -, $M-,-, $J-,2 &N $ `A/,x@]:\ p.SS-UCODE=O=xS-UCODE MACROOP?x,8?5Bm ` @1N+g ,g,8,8n,8g",<;HZ`[-, $M-,-,  $K-, &O $ `A/.].,x@ .aS-MAKE-ARG=P=xS-MAKE-ARG MACROPQ?x,8? 5B `@1N+u ,u,8,8,8g@",<;Z`[Z[Z [(Z( 0[*,8-, $-, $  @2-,,X-, $E-, &P ] $ `A/,x@ .oS-KINDu8=Q=xS-KIND MACROQR?x,8?5B `@1N@ + , ,8,8,8g",<;Z`[ @-, $-, &Q $ `A.W/,x@ .S-MODE=R=xS-MODE MACRORS?xD,8?5B `@1N+ ,,8`2,8,8g",<;Z`[-, $I00-, &R $ `A/,x%kU`@ 0.S-VAR=S=xS-VAR MACROST?x,8?5B&@" `@1N+" ,",8,8',8g", @2<;Z`[-, $J-, &S ] $ `A/,x@ @.S-INFOu8=T=xS-INFO MACROTU?x,8?5B3 `@1N@ +. ,.,8,84,8g",<;Z`[ @-, $K-, &T $ `A*U/,x@ P.(KIND-ORDERSORTCAR&UNITARYNREVERSEU&OPTIONAL&FLAG,8 $U,8 gV*`-,0B0*`-,,8V,8,86@g += `W+U[g[[gZ[[g-, ([g-, ,8,8 ,8,83Dg|+G Dg| g~ g|-, Bg~3Fg}+K g~ "-, Bg~ Fg}0 g|1BW+M0BX+Q g~-, $  -, g~-, Bg~+S g~* -, Bg~/Zg Bg+:/0u ),xV(.4&REST&AUX,8#WXY$Xz Wu *aDu*Z,X$D X.W&SEQUENCE&END-UNITARYS-EXPAND-ARG-LIST-,B0,8 "-,,8{,8,86@g A +` `2+z[g1BW+d1BX+d P  1BY+d0BX+e Bg~+y1BV+h1BY  +h0BZ+i Bg+y g~1BW+l0BX`+s[gZ[-,[g[-,0@ g-, g~-, `-,0` B`+y "-,[g-,` g-, g~-, `-, `% B`Zg Bg+]/,xV (.ZW+U*US-MAPCAR=[=xS-MAPCAR MACRO[[?xS-LISTVALUEITEMS-RESULTCASEQU*@1S-CONTINUECOPY-RESTDONE-NOWNULL,8?5B `@D0.+ ,,8,8,8g",<;Z` @2[Z*-, $\-, $-, $,8 "-,-,  P2 $\-,-,]\z 6Z:-,\ \]z |zgx P2-, $C-,\\z JrGw-,^^_4]\_W]z O,Wl7 @0-,`\^_z r+K-m-, $-,,X @2-,\]^z la> +-, $-, &[ ] $ `A/,x@ 8.|S-PROCESS-ARGSu:U*U=`=xS-PROCESS-ARGS MACRO`a?xARGLISTKINDMODEVARINFOOTHERP 0LET,8?5B4 `@0.+ ,@,8,85,8g",<;Z`[Z[ Z ,8,8,80Ha+(* "-,2A@dPbbccz dl/}1-,-, $-,  +,0Hd++* "-,+, " P2-,bQ]bR]cS]cT]z QKt-,bbccz uOv-, $d@ -,-, g-, $[-,0/ &` $ `A/.U*W,x@ .wrong number of partseeffgpw*]nUggxg xbad modehhpiixi xbad variabW;U.wleijjpkkxk xrepeated vkljjpllxl xU;]*wbad kindmmpnnxn xbad infonopooxu*U*Uo xAPPENDS-REFERENCESP&end-unitary out used icode-coW;U*Ude2qqrrsstpttxt x&sequence in used in icodW;U*Ueuuvvwwpxxxx xS-READSPseq var not readw;]nwyyzzp{{x{ xhhp{{x{ xijjp||x| xU*]nUbad shared output|}}~p~~x~ xtoo many rW;]nweturngpx xmmpx xnopxu*U*w x&unitary out us code1-ucodevpxu*Unu xout used in code2-ucuuhpx xd in W;U*Wucodeqqrrp  x xmalformed fragment    pw 0  x x,8,8@1N+: ` ` "g-, B`,8Zg[,8@,8,86@g+? *_ J` ` @0B_+C g g4+!0B_+E g@W+![g,8[Z[ZZ  [ -, ,8,8,8,81FY+R P @01FV+R1FZ+R* "i-, g{ -, Bg{ `D5BV ` "k-,0@ g{-, Bg{ g|4J\[(Z (A`2H`+W ` "l-, g{-, Bg{ g| `-, Bg| g1B#+f P( 1BW+f1BX+f1BY+f ` "n-,0@ g{-, Bg{ g0BW+h+lA`7@g~+l ` "o-, g{-,( Bg{ g1B#+o1BW+o0BX+ g P(0BV+r " +0BZ+ ,z,8Zgz`-, ,8Zgz-, ,8Zgy-,0 [,8",<p,8 g-, ( $,Xp5B~ " + ` "t-,0@ g{-, Bg{+0BY+ `c-, $Zg{-, p4B ` ` "x-, g{-, Bg{Zg{-,0@  5BZg{-, [6@g " `+ "5B `-, $Zg{-,1D` x5B `-, $Zg{-,0 @0 [x5B ` "{-, g{(-, Bg{+ "+ "/@ 0,84B g~-, Bg~/ZgA@ Bg+=,8Zg}Z[,8,80@,86@g+& *_ J` `0B_bA+* g g4+$0B_+, gW+$[g,8[Z[ZZ [  -, ,8,8,8,81FY+91FV +91FZ+9* "{-, gy-,0b Bgy `D5B= ` "|-, gy-, Bgy,8`Zgx[,8,80@,86@g+B *_ J` `0B_bA+F g g4+Z0B_+H gW+Z[g[Z[ZZ [ -,0A ,8,82Hg}+U1D#+U1DW+U A`1DY+U* "~-, gv-,P  Bgv+U "/,84BX g-,0@ Bg/Zg Bg+@/ g0B$+a7@g|+_ gy "-,( Bgy * Jg|+e1BX+e ` "-,0@ gy-, Bgy g0BX+j7Bg~ H " (B{Z1BE+n+k7@g~+n@ ` "-, gy-, Bgy g P A0BX+p " + g0BV+ ,|,8Zgx-, ,8Zgx-, [,8Zgw-, Z[,8Zgw-, -, ,8",<p,8 g-, ( $,Xp5B " + ` "-,0@ gy-, Bgy+0BY+ , @,8Zgx-, [,8Zgx-, `0Z[,8Zgw-, -, ,8@`",<p,8 g-, $,Xp 5B " + ` "-, gy-,00 Bgy+0BZ+ `-, $ 1 Zgy-, -, p5B " +@ ` " -, gy-, Bgy+ 0 "/,84B" g~-, Bg~/Zg Bg+$7@g|+) ,),8,8+,8g{,8gz",<;+* g{-,ju/,x p.6=%=xDEFUNS MACRO% ?xGETU*@1DECLAREASSQ*APPENDS-PARSE-IT,8?5Ba `@D0.+2 ,2,8,8b,8g",<;Z`-,<[Z[ HU<;/+<8<!1= xno bodyw:T!"p""x" xS-ARGS-PARSESUBLIS-, *1 J0,8,8,85HI ,I,8,8 ", <! g#,8[,8Zg[,8  ,8g,8,86@g+Q *_ J`1 `0B_+T g g4+b0B_+WD gW+b[g[Z[ZZ 3[ -, " ,825,X-,0`,84B` g-, Bg/@0Zg Bg+O B g~# g} Bg~ g~@# $-, $ Z Dg}  ,8g~,8,86@g+m *_ J`1 `0B_+p g g4+~0B_+sD gW+~[g[Z[ZZ @ [ -, ,8,81FY7 "/0`,84B| g-, Bg/ !Zg Bg+k-, g| "#" b g{*gz gz-, B,I:U/+"h.(CNot alloweargumU;]*Uent list$$%%&p&&x& xGETCHARNextraniousU;]  keyword(())p**x* xS-CHECK-KEYWORDS,8-,  ,8,8,86@g+ *_ J`1 `0B_+  g g4+ )0B_+ DA gW+ )[g,81B + 5B  , ,8,8g,8 *",<!+ $4B (B{ 0Q`n+  `+ $WXYYVzP3HQ4J [(Z (@(2H`+  `+ $ $' `'0N+ $ 1 , #,8,8g,8 *",<!+ $ `,8@4B ' g~-, Bg~/Zg BgKU+ /,x&*(. S-ARGLS-CODEU*]nUout of order keyword,,--p..x. xdestructurU*U.wing &rest args not supported.//00112p22x2 xU(bS-ARG-CODES-ARGS-CONVERTD,8-,+-,D`+,8 |,8 |*,8,8,8PA6@g+ 2 *_ J` `0B_+ 6 g gP 14+ v0B_+ 8 gW+ v[g,8 P(1BW+ <1BX+ <0BY+ EWXYz jD4B C"[ Z2Jg}+ = , C,8,8g|,8 },8g~@A ",<! ` Bg}+ q1BY+ G0BV+ HA@A Bg~+ q,8 g}0BX+ N gD@5B N , N,8,8g,8 }",<!,82 g|1B#+ S7Bg " (B{Z1BE+ U g@@` Jg+ X[gZg[ Dg @ F` g|0BY+ d7Bg " (B{Z @ A0BE+ a6@`+ _ g|0BY+ a g} `P g3 ( g g} g|3+ q gP`D5B n "45 g} $,8 g3  ( g g| "Y3 g,X g} g|@3+ q ` g g} g|3/@ 0,84B t g~-, Bg~/ZgH`# Bg+ 0 +W,8 +W-, ,X-,/,/KU+#V.20. +S-DESETQAT-STARTb,8,8,8D4B 7  "4,8 g 0-, g~-,,X-,,8d g0BV+ `-, $-,  @0 $-,-, $ -,-,2@  $5-, B` +,X-, : B+/,x0. ~S-DESTRUCTURE-PARSE,8,8`,8,8*5,8,8,8PA6@g+  *_ J` `0B_+  g gP 14+ (0B_+  gW+ ([g,8` g~-,,X-, g}-,@b g}-, +-, B+,84B &` g-, Bg/Zg Bg+ u /,x8.( S-VARSS-DESTRUCTURE-PARSE1,8-,H``566 6W/+X. )U*U.wbad argument specification778899p::x: xD@,8D4B 1 6 `-, B6+ <P @6@`+ 3 " + <7B` " (B{Z D1BE+ : , 9,8,8g,8 =",<!+ <@``%[`6Z`6/,x:h. -U(NONEANYS-PARSE1,8,8,8 "`,8 "-,,87@`+ K,8`Z`4B E A@ $:+ G g}1B7 M $;[`;/0-,XCgZ` Bg D`+ A/0@KU g/,xZ`. =Unitary arU*Unugument is sequence var<<==>>?p??x? xRLASTU*U*URIGNORE-NO-RETMSEQUENCE-VAR-OUTAT-ENDMAPSGSEQUENCES-RETURN-MODEnested sequenceU*U.w function has no return valueCDDEEFFGGpHHxH xU*U*USequence provided where unitary value expectew:U*UHIIJJKKLLzpMMxM xInitializing code references sU+]jUequence varsMNNOOPPQQpRRxR xImplicit nestinU+]jUg not supportedRSSTTUpUUxU xS-PARSE-PARAMETERSS-TOKENIZEAT-END-NO-RETPBMAPS-NO-RET,8,8 4J b[(Z (0H+ O D0DV+ V , V,8,8,8 k",<!+ j AH 0DZ+ Y-, $@-,+ j0DY(2+ [-,+ j0D:+ ^-, $@ -,+ j0D;+ a-, $A-,0P&+ j "+ jE5B e gD4B ~a `0BV+ h g-,+ j1BZ+ j @ @20B;+ p g-, $-, $H-,-, $ -,-, ( $A-,+ j0BY+ x g-, `2 $-, $-,-, $ H -,-, $B-,+ j0B:H+ } g-, $B-,-, ( $@-,+ j "+ j7Bg " (B{ Z0BE+ <[g4B (B{ Pan+ < $[g 4B <[g4B (B{( an+ $[g + "C,85B  g1B:+  , ,8,8g~  ,8 l",<! g0BV+ % `0BZ+ d g-, $-, $-,  -, $ -,-, $5-,0 Bg+ 0BY+  , ,8,8g~,8 l@ #",<! g-, p4B : , %,8,8g~,8 m",<!+ :0BZ+ 0 ` @ @00BV+ , g-, $B-,-,2@ $@-, Bg+ :0BY+ : g  -, $@-, Bg+ :0BY+ :d `0BV+ 6 g-, $B-,P" Bg+ :0BZ+ : , :,8,8g~,8 m",<!/ gV+ j gV,8[,8Zg,8,8,8,8PA6@g+ C *_ J` `0B_+ F g gP 14+ W0B_+ I gW+ W[g,8@  [4B M(B{ an+ O $[`Ph + O "C0BZ+ R " / + W ",84B U g~-, Bg~/0  Zg Bg+ A,8 g|0BV+ Z "5 A + f0BZ+ ]6@`7 n "B+ f0BY+ _ P  "B+ f0B:+ b6@`7 n "W+ f0B;@+ e6@`7 o "B+ f " g~,8 g} -,,X-, g|;/D"/,x?HMRUA",WA8. N,8ZZ[,8,80@,86@g+ u *_ J` `0B_bA+ x g g4+ 0B_+ { gW+ [g,8[Z[ZZ [ -, ,8,80D$+  "/ @+  "/,84B  g~-,0 Bg~/Zg Bg+ s/,x]*@0. oS-TOKEN-ARGSS-TOKEN-PARAMSS-TOKENIZE1,8-,X-,1 0XY,8 XW*`-,`2,X-, $-,-, $ F0-,,8 XW,X-,,0 :U/+h. Too few parametW;U*wersYZZ[p[[x[ xany parameters\\]p]]xp ] x,8[4B (B{ an+  ( $[` +  "Z[Z`,8@b[g,8-,-,p<,8,8<@,8,86@g+ % *_ J` ` @0B_+ ( g g4+ V0B_+ + g@W+ V[g,8[Z[ZZ A[ -, ,8,80D#+ ;6@g|+ 5 0 , 5,8,8g{,8 \",<!Zg|,8g| g ` Bg{[`; g|-, Bg|/ + T0DW+ B7@g|+ TZ g|,8g|*[`@ 0 Jg{; g|-, Bg|/+ T @ 0DX+ T,8g|,8,86@g+ G  *_ J` `0B_+ J g g4+ R @b0B_+ M gW+ R[g,8 g~;` g{-, Bg{/Zg Bg+ E `0@@gz/+ V//Zg@" Bg+ #7@g}+ Z , Z,8,8g|,8 ]", "<! g~W/+[]]*@`. S-UNIQUIZES-HANDLE-OPTIONAL-AND-RESTS-HANDLE-INPUT,8[,8Zg,8@  g4N c(N{ 8an+ e $ gP`0 + e "^ `^,8,8 Z[,8,8,86@g+ l  *_ J` `0B_+ p g g4+  @b0B_+ r gW+ [g,8[Z`[ZZ [ -, ,8,80D# + Z g|,8g|[`,8 Jg{7@ " (B{ Z0BE+ [`4B (B{ P an+  $[` +  "+  "@`,84B  g Bg g{ g~ g_ Bg{7@`+ 7@g{+  g g{ Bg{+ 7@`+  g Bg{+  "/ @+  "/,84B  g~-, Bg~/Zg Bg+ j7@g~+  g~@`X g~ Bg~ g~/,x0. ],80,X $,8 " $,X$#X`. ,8Z[,8,8,8PA6@g+ & *_ J` `0B_+ * g gP 14+ 80B_+ , gW+ 8[g,80[Z[ZZ [ -, " @ ,85,X-,,84B 6 g~-,0@ Bg~/Zg Bg+ $,8Zg~ Z[,8,8,86@g+ =  *_ J` `0B_+ A g g4+ T @b0B_+ C gW+ T[g,8[Z`[ZZ [ -, ,8 g}*@` 5B N `5 `-, g}-,0` Bg}+ O "/,84B R g~ -, Bg~/Zg Bg+ ; g~u /,xH. !S-MAKE-INTERFACEPARAM,8,8,800,8Z[,8,8,806@g+ \ *_ J` `0B_+ _ gE g4+$0B_+ b gW+$[g,8[Z[ZZ [ -,  ,8,8,8,80D#+ kZ g{ " Jg{ +0DW+ w6@g{+ t5B o0FY+ q gzh@ g~ g `_ *Y (V Hg Jg+ vAZ g{ (# Hg Jg{@@g~ " + g0BX@+ Hg{,8 "`,8 gz-,00,87@`+[` "`5-,XCg `Z` Bg D`+ |/ g/@` Bg|,8,8,86@g+ *_  J` `0B_+ g g4+0B_ + gW+[g,8 "-,d,X-, g~-, $#-,@ 0,84B g-, Bg/Zg@h Bg+ g{4 *_ Bg{ Jg|/`g " 4B g~-, `-,`0 g-, g-,/,8@4B" g~-, Bg~/Zg Bg + ZZg}QB/7@g+* ` "E-, g~ g Bg~ g~-,u*/,xh. US-RENAME-INPUTS-VAR-IN-ARGSS-WRITESP,8,8d,87@ " (B{Z0BE+5[ g @`0H+5 g ` g`+p g@bD5B8 gE4BMZ`Z[ gDa5BM ,G,8Zg-, ,8Zg`-, ,8Zg~-, [,8Zg~0-, Z[,8Zg}-, -,0`0 ,8",<p,8 g-, $D,Xa5BM ` g g`+pZ`@` [,8,8,86@g+Q *_  J` `0B_+U g g4+m0B_ +W gW+m[g,8[Z[ ZZ [ -, ,8,8,8,8@"2Hg{+d g| g{ g g{_ *Y (V  &_ Fg} Hg Jg g~-, `-,0@ g-, g-,/@ 0,84Bk g~-, Bg~/Zg@` Bg+OZg~QB/ `-,`/,xp. ,,8,8ZZ ,8[,8,8,86@g+w  *_ J` `0B_+{ g g4+ @b0B_+} gW+[g,8[Z`[ZZ [ -, ,8,8,8,80D$+ g{5B " Bg{Zg{[D 2*a5B-, `-, $V -, $Y-,Zg{[-,0Zg{QBg " 4B g~-, ` 0-, g-, g-,/0`,84B g~-, Bg~/`Zg Bg+uQCg~/,X/AD,xH.q-,<,8,8,8( ,86@g+! *_ J` `0B_+% ( g g4+40B_+' gW+4[g,8[Z[ZZ [ -,0( ,82Hg}+/ " /+4 " /,84B2 g~-, Bg~/0 `5Zg Bg+/+.,8,8,8,8*-, $-,2@ $-,,8 g~0BV+AZ ZZ,8`[*`-,QC`/0P +]0BY+W*-, $Z  -, x4BJZg-, ,8`[a*`-,QC`/+] g~-,0  $Zg-, [x4BSZg-, ,8`[*`-,QC`/0@ +]Zg-, ,8`[*`-,0BAQC`/+]0BZ+]Z -,0 Z,8`[*`-,QC`/0@`X g-,/,xx.(5,8,8,8Z[ ,8,8,8PA6@g+e *_ J` `0B_+h g gP 14+}0B_+k gW+}[g[Z[ZZ [ -, ,8,8( ,8,82Hg|+s *_ Jg~g " 4Bx` g~-, $ -, $-,  g-,/,84B{ g-,0@ Bg/Zg Bg+cZg~QB;/,X,X,X&. _,8,8  ,8,8,86@g+ *_ J`1 `0B_+ g g4+0B_+ D gW+[g,8-, $Zg~ -, a5B `-, $Zg~b-, [a4B7` ",84B` g~-, Bg~/Zg Bg+,8Zg~Z[,8,8,8PA6@g+ *_ J` `0B_+" g gP 14+20B_+$ gW+2[g[Z[ZZ [ -, ,8,8,80D$+,0FY+,7 "/@ 0,84B0 g-, Bg/Zg@0 Bg+ $*g~,8,8Zg{`0Z,8[,8,8,86@g +: *_ J` `0B_+= g g4 +Z0B_+@ gW+Z[g,8[Z[ZZ [ -, ,8,8 1,8,80DX+Q*Zgw-, x 5BM g~Zgw-, [x4BQ g{ `-, g{ Bg{ g~ Bg~ g~ 0-, `-, g-, g@-,/,84BX g~-, Bg~/Zg Bg+8QCg~/A`Z`4D^ ` ".-, B`+_[`a F`7@`+pZg{-, 4BhZg{-,0`2 [,8 g-,-, $@-,-,QC`/Zg{-,0` [4BpZg{-, [,8 gH-,-, $-,-,QC`/Zg{[Zg{[Zg{Z[,8ZgzZ[Zg{ZcZ[,8Zgz-, ZgzZZZ[,8Zgy-,  $Zgz-, [*,8Zgy-, @`[ $Zgy-, Z[*@,8Zgx-, Z[ $Zgy@-, -, *,8Zgx-,  0-, -,,X-,,X 0-,,X-,,X-,,X @1-,,X-, $-,GunW/,xP.S-PROG.//0bx1bbxS-LOOP.//0bxW+UjPLETS:L01bbcxS-END.//0cxLETS:E01ccdxS-APPLY-SIMPLIFICATIONUNWIND-PROTECT,8d,8 BgZ[,8,8( ,86@g+ *_ J` `0B_+" ( g g4+-0B_+$ gW+-[g[Z[ZZ [ -, @`,84H+ g*-, Bg/Zg Bg+,8Zg}Z[,8,80@,86@g+3 *_ J` `0B_bA+6 g g4+I0B_+9 gW+I[g[Z[ZZ [ -,01 ,8,8 g}*D5BB g} `-, Bg} g1B$7` "/@ 0,84BG g-, Bg/Zg@` Bg+1,8Zg{-, ,8,8b ,[@0,8Zgz-, ,8Zgy-, [H,8 g~-, $-,,8[g} -, $-,-, $Zgx 0-, Z[ c-,,X0-,,8",<p,X-, $@`0,X Bg|Zg{-, -, 4BlH g| "-, $-, $Zg{@ -, -, *-, $e-,0`0-, $-,-, g~ !-, $-, Bb+o g| g~ "-, $-, Bb,8,8( ,86@g+r *_ J` `0B_+v ( g g4+0B_+x gW+ [g[Z-,,84B} g-,0@ Bg/Zg Bg+p b#*u Bb/,x8.DONEDONE MACROef?xDISPLACEa,8Z4D "-,+ c-,2@_ $-, $,X$f`.=4=xWbS-DESETQ MACRO4g?x,8?5B: `@1N+0 ,,8,8;,8g",<;Z`[Z[,8,8*D4B `-,a g-, $-,+8 *1-,1``0 0 "E5,,8,8,8g~7@`+2 `D4B" g-,` `-, $-, g-,@  Bg+2[`4D) g-, $-,0d-,[`-, $4-, g-, BgZ`4B0 g-,  2 $-,-, g-, $ -, g-, BgZ` B`+ 0/ g-,,X-,-,0 d*`W,X-, $d-,00/ &4 $ `A/,x%hc@p.S-FIND-APPLIES,8-, gZ`-,1@  gZ`-, [gZ`-,0` Z[gZ`-, -, W*Ug,X+H.<FUNCALLAPPLYLIST*LASTPDS-SIMPLIFY-APPLY,8-,<,8,82Z[,87@ " (B{Z0BE+P[`0D g " +P "/@5B]Zg[,87@ " (B{Z AA 0BE+X[`0Dg " +Y "/0@ 4B_Zg-, 4B](B{ @ an+_Zg-, B`+a g-,0A +a7Bg " (B{Z0BE+g![g0Dh+gZgZ F<+7Bg " (B{Z0BE+l[g1Dh+m g-,+aZgZ[,87@ " (B{Z0BE+u[`0FEg " B1+u "/4BxZg-, B<+ZgZ[,87@ " (B{Z2 0BE+[`0Fig " + "/4BZgZ[i[,8 A7@ " (B{Z0BE+ [`0FEag " + "/4BZg-, 1@ 2,8Zg~Z[i[ZH Z`4 B gW+H[g,8 g~ & $k4BC " / +H ",84BF g~-, Bg~/0 a Zg Bg+6/+J "/0,0,x.3,8,84Da-,,8@,8,86@g+P *_ J` ` @0B_+T g g4+`0B_+V g@DW+`[g,8 g~ & $ k4B[ ( " /+` ",84B^ g~-,0@ Bg~/Zg Bg+N/ A:+b "/,x.KPSETQ,8,8 ,8,84Di4Hi[ Z 0J+e " d+ 7@ " (B{Z0BE+p7Bg~ H " (B{Z0BE+q[g~0D+q AA "+ [g~1D+t0Dk+Zg~,8@ 7@`+7@g+y g[`D5B| g g g~Z`[k4B} " +Z`aZ D`+u "/+ g~-,0 ,87B` " (B{Z0BE+  g g g~[`k4B " + Z`P  D`+ "//,x0.(cW+@1DEFRAG=l=xDEFRAG MACROll?x,8?5BM `@D1N+ ,,8,8N,8g",<;Z`[Z[Z [(Z([ ,8Z[,8Z B`[,8Zg Bg[,8Zg Bg[,8Zg~[,8,81,8,8,8 g{ "YD5B& g{+)A g{2 $ "YDZW $a-,0`-, $ -,*g{-,  P2 $-,-,#z X,MI&-, $Z @0-,*-, $-,-,2AH$z A*%-, $Z-,*g-,2@  $-,*g|-, $-,0H*g}-, $-,*g}-,2@  $-,*g~-, $-,0`-, g~-, g}-,` g}-, g|-, g-,`0 $(-, $F-,-, g{ 2-, $ -, g~-, $H-,/ &l $ `A/0}jp,x@H. 5GEZ# X<Z$\\h <x=5=xAT-START MACRO5m?x,8@@0?5BZZ`,8` Dg "5-,,8L d7D+U+X-, $-,  @ $-,/ &5 $,XA}jp/,xP.OAGEZ# XZ<Z$Z\\h <x=A=xAT-END MACROAm?x,8@@0?5BgZ`,8` Dg "A-,,8L d7D+b+d-, $-,  @ $-,/ &A $,XAunW/,xX.[AT-UNWINDnGEZ# XZ<Z$Z\h <x=n=xAT-UNWIND MACROnn?xD,8?5BsZ`,8` Dg "n-,b ,87D+n+q-, $-,2@d $-,/ &n $,X.uA/,xh.hMAPBGEZ# XY<Z$Yooh <x=B=xMAPS MACROp Bo?x,8?5BZ`,8` Dg "B-,0&2,87D+{+}-, $  -, $-,/ &B $AA:U,XA/,xx.tPREVIOUSINITPRIORw+@1pGEZ#p XY<YZ$Yqqpph <x=p=xPREVIOUS MACROpq?x,8?5B Z`,8`@! Dg "p-,,87D++  @0-, $-, $-,/2 &p $,XA/,x.U+].FILTERSSEQUENCEFLAGrGEZ# YrX<Z$YrXsrsh ir<x=r=xFILTERS MACROrs?x,8?5BZ`,8` Dg "r-,,87D D @2++-, $-, $H-,/ &r $,XA/0.]jp,x8. TRUNCATEStGEZ# YrX<Z$Yrh ir<ex=t=xTRUNCATES MACROtt?x,8@@0?5B%Z`,8` Dg "t-,,8L d7D+ +#-, $-,  @ $-,/ &t $,XAunW/,xH.GENERATESuGEZ# pXY<Z$Y\\pph ip<x=u=xGENERATES MACROuu?xD,8?5B2Z`,8` Dg "u-,b ,87D+-+/-, $-,2@d $-,/ &u $,X*WA/,xX.&ENUMERATESTRUNC-FUNCTIONGEN-FUNCTIONvGEZ#vwpZ$Y\hvpe\pphwpxu8=v=xENUMERATES MACROvw?x,8?5B>Z`,8` Dg  "v-,,87D+9+<-,2H $-, $-,/ ``] &v $,XA/,xx.3SCANSw+@1xGEZ# pXY<Z$Y\ph ip<\px=x=xSCANS MACROxx?x,8?5BKZ`,8`@! Dg "x-,,87D+F+H @0-, $-, $-,/2 &x $,XA/,x.?W:\REDUCESyGEZ# pXY<Z$Zpph ip<x=y=xREDUCES MACROyy?x,8?5BWZ`  ,8` Dg "y-,,87D+Rd+U-, $-, $-,00/ &y $,XA/,x]+]..LPVALUEOUTzGEZ#YrWVpZ$Yzzpprx=z=xPVALUE MACROz{?x,8?5BdZ`,8` Dg "z-,,87D D @2+_+a-, $-, $H-,/ &z $,XA/0.UnW,x0.XFSELECTBOOLEAN-SEQUENCE{GEZ#Yr|Z$YrX|rx={=xFSELECT MACRO{|?xD,8?5BpZ`,8` Dg "{-,b ,87D+k+n-, $-,2@d $-,/ &{ $,X.uA/,xH.eTSELECT}GEZ#Yr|Z$Yr|rex=}=xTSELECT MACROp }}?x,8?5B}Z`,8` Dg "}-,0&2,87D+x+z-, $  -, $-,/ &} $AA>u,XA/,xX.qBGEZ#]Z$Y]x=B=xGSEQUENCE MACROp B~?x,8?5B Z`,8` Dg "B-,0&2,87D++-, $  -, $-,/ &B $AA:w,XA/,x`.~DEFAULT@GEZ#YrWV~Z$Z~~rx=@=xWbRLAST MACRO@?x,8?5BZ`,8` Dg "@B1-,,87D++-, `2 $-, $-,/ &@ W $,XA/,xp. RIGNOREGEZ#Y]Z$Z\xu8==xRIGNORE MACRO?x,8?5B"Z`,8` Dg  "-,,87D++ -,2H $-, $-,/ ``_ & $,XA/,x .@GEZ#Y]Z$xu8=@=xRIGNORE-NO-RET MACRO@?x,8?5B/Z`,8` Dg  "@-,,87D+*+,-,2H $-, $-,/ ``_ &@ $,XA/,x .#WGEZ# XY<Z$h <xu8=W=xMAPS-NO-RET MACROW?x,8?5B;Z`,8` Dg  "W-,,87D+6+9-,2H $-, $-,/ ``_ &W $,XA/,x .0WGEZ# XZ<Z$h <xu8=W=xAT-END-NO-RET MACROW?x,8?5BHZ`,8` Dg  "W-,,87D+C+E-,2H $-, $-,/ ``] &W $,XA/,x .<INw+@1AGEZ#YZ$zYx=A=xMSEQUENCE-VAR-OUT MACROA?x,8?5BTZ`,8`@! Dg "A-,,87D+O+R @0-, $-, $-,/2 &A $,XA/,x (.IU*]jpGRANGESTARTBY+GEZ#W''Z$Yzzx==xGRANGE MACRO?x,8@@0?5BaZ`,8` Dg "-,,8L d7D+\+^-, $-,  @ $-,/ & $,XAu*w/,x P.UERANGEEND>GEZ#W'Z$Yzezx==xWbERANGE MACRO?x,8?5BmZ`,8` Dg "B1-,,87D+h+k-, `2 $-, $-,/ & W $,XA/,x p.bGSUBLISTSGEZ#EZ$YzzEEExu8==xGSUBLISTS MACRO?x,8?5BzZ`,8` Dg  "-,,87D+u+w-,2H $-, $-,/ ``] & $,XA/,x!.nESUBLISTSw+@1GEZ#EZ$Yz`EezEEEx==xESUBLISTS MACRO ?x,8?5BZ`,8`@! Dg "-,,87D++ @0-, $-, $-,/2 & $,XA/,x!.{W:\GLIST GEZ#EZ$YzzEEEx= =xGLIST MACRO  ?x,8?5BZ`  ,8` Dg " -,,87D+d+-, $-, $-,00/ & $,XA/,x];U`! .ELIST GEZ#EZ$Yz`EezEEEx= =xELIST MACRO  ?x,8?5B`Z`,8` Dg " -,,87D+AH +-, $-, $-,0/ & $,XA/k].,x!0.ELIST* GEZ#EYZ$Yz`EeAEzEEE zE x= =xELIST* MACRO  ?x,8?5B,Z`,8` Dg " -,,87D D @2+'+)-, $-, $H-,/ & $,XA/0.U*U,x!@. EALISTALISTPTRLABELPAIRCDARW:\CAAR GEZ# Y Z$Y  ` e    `     x= =xEALIST MACRO ?x,8?5B8Z`  ,8` Dg " -,,87D+3d+6-, $-, $-,00/ & $,XA/,x]*UnW".-EPLISTPLISTSUBPLISTCDDRGEZ#YZ$Y`eIx==xEPLIST MACRO?xD,8?5BEZ`,8` Dg "-,b ,87D+@+B-, $-,2@d $-,/ & $,X*UA/,x"(.9EVECTORVECTORFIRST1-U*]jpARRAYDIMSELEMENTARRAYCALL1+GEZ#W1iIZ$Yiex==xEVECTOR MACRO?x,8@@0?5BQZ`,8` Dg "-,,8L d7D+L+O-, $-,  @ $-,/ & $,XAu*U/,x"p.FEFILEFILE-NAMEFILEEOFTHINGU*]jpWITHOUT-INTERRUPTSOPENREADCLOSEGEZ#YZ$YCBex==xEFILE MACRO?x,8@@0?5B^Z`,8` Dg "-,,8L d7D+Y+[-, $-,  @ $-,/ & $,XAu*w/,x#@.RFPOSITIVEINTEGERSPLUSPGEZ#YZ$YXx==xWbFPOSITIVE MACRO?x,8?5BjZ`,8` Dg "B1-,,87D+e+h-, `2 $-, $-,/ & U $,XA/,x#`._FGREATERLIMITw+@1GEZ#YWV1Z$YXx==xFGREATER MACRO?x,8?5BwZ`,8`@! Dg "-,,87D+r+t @0-, $-, $-,/2 & $,XA/,x#x.kU+].RLISTOBJECTREVLIST GEZ#Y Z$Z!! !!W!x= =xRLIST MACRO !?x,8?5BZ`,8` Dg " -,,87D D @2+~+-, $-, $H-,/ & $,XA/0.]jp,x$.xRBAG"GEZ#Y Z$ZEE Ex="=xRBAG MACRO""?x,8@@0?5BZ`,8` Dg ""-,,8L d7D+ + -, $-,  @ $-,/ &" $,XAu*w/,x$(.RNCONCSUBLISTRPLACD#GEZ#Y#YZ$ZE#$i##`EE#x=#=xWbRNCONC MACRO#$?x,8?5BZ`,8` Dg "#B1-,,87D++-, `2 $-, $-,/ &# W $,XA/,x$H.RAPPEND%GEZ#Y#YZ$ZE##p#$i##`EE#xu8=%=xRAPPEND MACRO%%?x,8?5B)Z`,8` Dg  "%-,,87D+$+&-,2H $-, $-,/ ``] &% $,XA/,x$X.RLIST*w+@1&GEZ#Y]Z$Z!!]!!!4!!x=&=xRLIST* MACRO&&?x,8?5B5Z`,8`@! Dg "&-,,87D+0+3 @0-, $-, $-,/2 && $,XA/,x$h.*U+].RSETSETMEMBER'GEZ#Y]Z$Z'(]'']'x='=xRSET MACRO'(?x,8?5BBZ`,8` Dg "'-,,87D D @2+=+?-, $-, $H-,/ &' $,XA/0.]jp,x%.6REQSET)GEZ#Y]Z$Z'D]'']'x=)=xREQSET MACRO))?x,8@@0?5BNZ`,8` Dg ")-,,8L d7D+I+L-, $-,  @ $-,/ &) $,XAu*W/,x%.CRALISTKEYENTRYASSOC*GEZ#Y*\Z$Z d++* +$+\+  E*\ xu8=*=xRALIST MACRO*,?x,8?5B[Z`,8` Dg  "*-,,87D+V+X-,2H $-, $-,/ ``] &* $,XA/,x%@.OREQALISTw+@1,GEZ#Y*\Z$Z d+ * +$+\+  E*\ x=,=xREQALIST MACRO,-?x,8?5BgZ`,8`@! Dg ",-,,87D+b+e @0-, $-, $-,/2 &, $,XA/,x%P.\U+].RPLISTNAMEREVPLIST-GEZ#Y.\Z$Z..i\...W.x=-=xRPLIST MACRO-/?x,8?5BtZ`,8` Dg "--,,87D D @2+o+q-, $-, $H-,/ &- $,XA/0.UnW,x%p.hRVECTORSTORE/GEZ#YWV1iIZ$Zie0x=/=xRVECTOR MACRO/0?xD,8?5BZ`,8` Dg "/-,b ,87D+{+~-, $-,2@d $-,/ &/ $,X*UA/,x&.uRFILEOUTFILEFINISHRETU*U.wPRINTdelete partial output fil34455wp66x6 xW:\DELETEF1GEZ#Y Y12Z$Z21z:93 12 2 `1.`2661 1x=1=xRFILE MACRO17?x,8?5B Z`  ,8` Dg "1-,,87D+d+ -, $-, $-,00/ &1 $,XA/,x]*]jp&p.RSUMNUMSUM7GEZ#Y8Z$Z881888x=7=xRSUM MACRO79?x,8@@0?5BZ`,8` Dg "7-,,8L d7D++-, $-,  @ $-,/ &7 $,XAu*w/,x'.RSUM$ +$9GEZ#Y8Z$Z88:8:88x=9=xWbRSUM$ MACRO9;?x,8?5B&Z`,8` Dg "9B1-,,87D+!+#-, `2 $-, $-,/ &9 U $,XA/,x'0.RMAXMAXw+@1;GEZ#Y8Z$Z<`<8<<8x=;=xRMAX MACRO;<?x,8?5B2Z`,8`@! Dg ";-,,87D+-+0 @0-, $-, $-,/2 &; $,XA/,x'H.'U+].RMINMIN<=GEZ#Y8Z$Z=`=>8==8x===xRMIN MACRO=>?x,8?5B?Z`,8` Dg "=-,,87D D @2+:+<-, $-, $H-,/ &= $,XA/0.UnW,x'h.3RCOUNTCOUNT?GEZ#Y]Z$Z??1]??x=?=xRCOUNT MACRO?@?xD,8?5BKZ`,8` Dg "?-,b ,87D+F+I-, $-,2@d $-,/ &? $,X*wA/,x(.@RANDBOOL@GEZ#Y]Z$ZAA A.A]x=@=xWbRAND MACRO@A?x,8?5BXZ`,8` Dg "@B1-,,87D+S+U-, `2 $-, $-,/ &@ W $,XA/,x(.LRAND-FASTBGEZ#Y]Z$ZAA `A]exu8=B=xRAND-FAST MACROBB?x,8?5BdZ`,8` Dg  "B-,,87D+_+b-,2H $-, $-,/ ``] &B $,XA/,x((.YRORw+@1CGEZ#Y]Z$ZAAA]x=C=xROR MACROCC?x,8?5BqZ`,8`@! Dg "C-,,87D+l+n @0-, $-, $-,/2 &C $,XA/,x(8.eW:\ROR-FASTDGEZ#Y]Z$ZAA]e]x=D=xROR-FAST MACRODD?x,8?5B}Z`  ,8` Dg "D-,,87D+xd+{-, $-, $-,00/ &D $,XA/,x_@(H.r;