;"MU*UjWORBOUNDPQUOTELISPXFNSSETQxH-MAXxU*].WH-COUNT*IBASExH-LISTxH-STACKxW+UjWH-ARCHIVE-PxH-1ST-ARCHIVEDxH-REDO-EVLxH-REDO-INDENT xU:].WH-REDO-PRINTFT  xH-EVAL  xH-PRINT-I  xH-PRINT-O  xW+UjH-FIND-=  xH-FIND-*  xH-FIND-REDONE  xSUBR-,Q@H-BEFORE,8 ..-, B "QRF#NCONS $XCONS   T2 $ `-,CONS ,8(`* B `H-EVAL-2,8 NUMBERP4B `5 H-CLEAN `/+( (@`-,H-ENTRY-, ,8Z[a4D,8[C`/+[*EVAL ,8Z-, 5BZZZ  " QB,XQC`[`/+Y   ,8 ",8,8,8,=g~@ p4N&Z` B` B>p+#/@,8,8Zg[ Bg3Bg~++ @!R5B.Z[ BZg~ B+8ARCHIVE $ A gH-GET B`DELETE1B+45B67D +4 gB5B6ZgZXCg+(ZgP Q Bg+( "/,x H-REDO-1Z) ZZREDO-LOSS *QJ,8H-FIND@fQA;H-REDO-GOBBLE,X $H-REDO-2&@ 9,8,8H$,85DCZ Z Z REDO-WIN "QB   F#    B gT2-, B FLATC .0.B0-, B7D +O `-,+P!!# " B 6Fg+X gREVERSE,8GROUP `  $,8 g $,X*NCONC &(hQ $,XH-PUT "/H-TOPLEV-ENTER"X`` ?,8 *`-,,8,8,8C ,87Bg~+u[,8 $4Bd $@ ` g g~+q6Dg~+f7Fg #+i ([` g g~H-TRANSFORM-TOP+j[` ,8 " $ZgZ[ 00Zg[,X/XC`  `LASTZg~ B` Dg~+]/,b,X,xX Z,8,86B+z `D"+ g5F{Z,8,8 ,8,8ZgH  B5B[[ D[ Z [ HD [-, B Z  J[ g,X g a gH-REDO-1EV Bg~/+x/H ,x w -, ,8,8,8,8Z Z8[8 8,<7B+-,0$! 3.p+Z D+/@#7Bg+@h g~ `H-PRINT2 `,87Dg~+7Fg+@j & g~ gQ@(H-PRINT1 ,X+ "/+]):!0 ( H-REDOFSUBR $ $H H-SREDO $$]@X!H-USE-,,8,8,8 Q[gIN0B+( ` gZgH-USE-I +.6Dg++zPM*Y Jg+, g Bg PZg Bg+$/,x`"H-USE1,8 $Z[[`_ $  c] & $Z`Z/&x/H-USEFH3,8[__ $! & G: $Z`/&6H-USEA,8,<0h3Z[ $!,8O,8 [g 82Og+D `+J g.. ` ",<,\ Np *p B` Jg+AF// & $Z`Z  /& <H-USEQ,8[!M1 $! & $Z`/&X O,8,8,85BZ4DZ $ g-,1D`"+Z,X,X & $t /&p UH-USEH-, * -,1  ,8,8,8[g0B @+oZgZZZZ` BgZ@!#4Fj ,j,8,8x",ERROR<#,8 ([g~[ g gQC`,X+t6Dg @ 0+qzPM*Y Jg+s g BgZg Bg +a/,@h  iQ "MORE-THAN-ONE-EVENT#(^-, GET$$X 0 y,8 "-,* "-,@j*Z`-, /PUTPROP&$ zPG:RH-REMPROP-, REMPROP$%P LIBLSP;REDO 2LSUBR & t0 $ ,X&`&H-FIND-N',8 $&,0VQ,X+P ,84BH-SPEC' ) j+NUMBER((zn:0P/H-FIND-1")p D 0,8-,H-FIND-PTR)Z-, 5BH!ZZZHIST-LOSS "*QB  "(` 2 B) `H-FIND-EVAL*,8Z-, 1B* @+ZZZHIST-WIN "+QB,X/0`j+  -,H-FIND-FORM+ $E #![$5B $* " *BREAK, $[+`5$,8Z+C`/+( U+H]DEFPROPANDH-AND,--x $*+X  THENW H-FIND-THEN,..x,8,8-,,87B` +'[*Z` Bg D`+#/. `/,xh !H-OR,/x-,D0 ),8)-, ),8,8,80 6Bg+3 `5B2 ,2,8,8D,8+E",<#+A " $?-. [gx*@ Bgy4B=7Dgy+ " + Zg g~ J) Bg+-/0@:%, B)["EVENT-NOT-FOUND/p )U8G$FROMH-FIND-FROM,00x +FROMTO $1"*]:].W DTO,10xTHRU,20xALL,20xH-FIND-FROMTO,13x@`,8,8-,~ -,,87B`+aA [ *0,8 Jg~[1D0+Q1D1+Q P 1D2+Q0D2+S Dg~4DSZ[ F` g~0B2+V ` Hg~+_ `* g~ HA0B0+ZZ) Dg+_0B1+]Z) Dg} @+_0B2+_ ) Jg}/Z` B` +I/,87Bg+f g~ $% @Q "SUBST3 B`+h $ g~*APPEND4  B`2Bg~+l ,l,8,8q,8g|",<#@417B`+o7Dg+oH-FIND-ALL4+p `NREVERSEK5/,xFROM/TO-WRONG-ORDER50 G,8-,0c,8 $*g-,-,@dp),8,8 " ${-.0 `j gx*+ ATOM64B}H g+[)2D`+ ,,8,8 $2` g~-,,8",<#[) g@ `5 B` Bg+w/+WRNG-TYPE-ARG%j\06H q@H-FIND-@,77x,8,8[i0 64BH-EVENTS $8[g$ B`4B $D 4+ ,,8,8,8+",<# " /,x6x H-SEARCH,8,8,8 # 4F  $[)MEMQ9+ )"Z,86B`+ ,,8,8(,8g~",@<#4B%[`Cg~4B%7Dg+# [`@@19+# ` B)[+'Z` D` :u+/,x/ H-FIND-NUMBER,(9xLIBLSP;REDO 5D,8 $ARG3o:+1 $,< ZZ8[8 8&p2Q:g " /0@+5ZZ8[8 82O:g " d/,x ( ,8 " B)c%[` 85.="-,  $H-FIND-+-@ $;+A[`-,: & ` ": W8,/,x 6=,; x @ * -, ,8[`*//H+@ B, x * -, ,8A@kU[`*/+H F-H-FIND-+-1u8H,<<x+,=<x[+0D=g $ $;H JP"LIBLSP;REDO 6ZZ8[8 8COUNT2O>g " @1,xX L,8,8[4Bo-,$>[g 85N[[)5FZ ,Y,8,8q $1,8+",<#4B[[)+n[)4B_!ZZ8[8 8+fZ)4Db[-,0" ..+f ,e,8,8r,8+",<# ,<7B`+i[g 8+j[gD!"8.p-, B> ` + "=8B@Q/,+p & gH-FIND-++--> :W/,x//0 P++H-FIND-ST+-,??xW+Ue--,@?xS+T,@?xS-T,A?x?@z Fz;[+7@RZ4Dv[ 0J+tA@z0P{[ +7Z':4Fz[ 0J +x&>x rLIBLSP;REDO 7,87D !Q+}-, B`H-FIND-SUCHTHAT7BB+SPEC-LIST[B  ,8 gC`/+7F +[BHd@64B B BB ( [` B "@ A +Z`-, 1B+ 0B++ P(6H + "+ ( [` $ B`b/,x {-,BB* 0 + "A8+h ,8-,Q*J 0STACKC|LOSECDzP.),xP JC-,~ [g~H BgTYPEPDSYMBOL0BE+$H-SPEC-SYN $E g@1$ B`4B$[C[4B![C[8 80n+$ g $ `4+'Ph0 g $ $ Bg[5D31[C[4F, 0.+3-,  (4B.,F.(zL*e'+2 $8ZgZ[$VF4B27?F.@zGb4VH-SPEC-DO-OPSFZg[5B:[g "4D:[C[4F: ,:,8,8@,8g}", )<# gFZg~ Bg~5BxGzIHF -ZC-, /+F.7xL6w4VINFIX-EVENT-OP-AFTER-OP%@ Gx ,8[`4BjZC[[4Dj$ ..3n+jZC-, 4BQ[C @-, ZC[ZZ[   $ $ZCZ BC F+A[C-,  $ZC-, @[*ZC[ZZ[   $ $ZCZZ1 BC-, Z[65Bj[C-, 0@` [[[C-, 0B+j[C-, Z*[C-, [4 [CZZQB+AZ`[4Br[Ci[5DrH-SPEC-INT $H$,8Zg[ d1 $,X4F C,X-,.].W BC,xh @2,-HExd,1IHx,0I1Exw:].w$1$0EEx$2$0EEx$2$0EExH,.JHxz,;J.Ex$$;EEx,=F.Exw;]j"$<$=EEx$?$=EEx$@$=EEx$7$=EEx$A$=EEx$@$=EExH-PR ( & %tD! $H-PRINT(K 0uH-PV ( & $ (K]; @wH-PB ( & $ (K Hy,8,8f,8,84H'5+',87B`F + [,8 ... * g~ g~,< $p,X /Z` B`0+/ " ,x 8 ({,8,8,8Q,8,84H*7Bg+ TERPRIM`Zg~Z[ 0.g~.,< "pQ@ H-SPACETOMZg~-, 4B`"7D +D g~B+ PRIN17FN+Zg~-, @ 1B+ Zg~-, N+ `"/2@ "/,x:x4[Z" @^4@J4@ 0 ,8,8,8,8[ M "@1,8MZg~Z[N`@7B +.@ `C +/ `N $ g~,84B>7Dg+>,8,87B`+>[,8` Zg|Z[...g| g} ( g}``,< $p,X /Z` B`+3 X/ "/,x48 ($,<0E",<LINEL NCHRCT/O /$Q Pw *w,8 `4NJ "OTYOP `/. Np "p B`+E "/`j/,x X @-,H-TLISTPH-TRANSFORM-NOCHANGE`Q,8,8 "-,,86B`+S (c$ $ gH-TRANSFORM-TQ+YTRANSFORM "R $W-.200 & gy[gyH-TRANSFORM1R-, +Y Z` B`+P/,87DQ+[+a@"65B]Z`4Fa ,`,8,8b,8g",@ R<#+a[`/+USE-ING TURNED AN OBJECT INTO A SEGMENTSX  (L,8,8-,~ 5Do P B`4Bo@ 1 [`5Bi g}-,+ "R $n00-. gw gw[gyR-, +`Z` B`5Bf g}-, Bg~ g}6 45B7DP+ $[g}Q $ BgZg} Q Bg7DQ+z g5Bz g+[g}[ g0H+Z g5JZg}2Bg+ g} -, Bg~+ g g Bg~7BQ + "+7Dg~+ g~+ g~` /,x  c,8,8,84F H-TRANSFORMAFS+-,,8 g-, g $,XS/,x (  PFCXLIBLSP;REDO 12,X-, $$ @&,8B,8,8-,} 5B4F**Q`+ g} g}Q[+ g|4B#D# g}4B" g} g|EQUALT4B" g}`-,+ $R+ g|64B)a" g|2Bg}+( g}-,+ " $RbD+ g}64B, " $R+ DA[g|65BG[g|[0D +87Fg+2@ g+3[g|ZZZg| Bg[g|ZP[ * Bg| Jg+,0D!+@7Fg!+; g+<[g|ZZg| Bg " 4A * Bg| Jg+,___0DU+G6Fg+C  * J`Zg|[g|Z[ Bg|+,@(07B`+K7Dg+K $T g, Bg@17BQ+M@@g@@`[g|65B[g|[ @0D7+[g|Z5Fk-,~ Z g{5HZP 7JQ+U " +Z7@g~+X $ g}4b0+Z g| g{Q+j g{-, Bg AH "R $a-. & gxZgtS Bgy0-, +e g[g BgZg5B[ B $R+ Q5Bj7Dg~+i ` g}@004+j ` gNRECONCU/+ [g|Z,8,86Bg+x Q5BxP07Dg~+t & g| gS $ g~4 +x & g| gS $ `U+Qd6Dg|+{ " $R+ &[g|[g S `Zg|Zg B` Dg| Fg+m /+ & Zg}Zg|S &[g}  Bg~[g|S Bg~7DQ+ " +7Bgb+ g~ g4+7B`+ g~!@ $ Bg~[g}2Bg~+Zg}2Dg~+  g}-,+ g~ g~/h,x 8 H-DEF,8[Z,8,8 Fg@1,8,8 g65BZg[gb Dg Fg g65B% ,$,8,8M g~ ,8,8M",<#[ Bg4BEXPRU)!#FEXPRMACROAUTOLOADVW& WXz [g gGETLX4B* ,*@,8,8N,8g~",<# g~4J@[(Z ( A0H++ g~ "9Z g~-, Dg~ $7Z4D4[ 0J+2 g~R-, & "3 Bg~ $PRINTYz;983UQE-MEMBERY4B= " B`4B= g~Yz;983U*DELETE Z Bg~7Bg~+@ $ g4 Bg g~$' &8 $ g$H-ARGS &Z g g): $ &WH-RUN-NAME $[ g$H-RUN-PRINT $[ g%7B`+K &[ $ g$ g/0KP,x66ALREADY-A-FUNCTION\ `LIBLSP;REDO 13,X -, $,X-, $ @ $ H&N,8-,~ ,<[g~Zg~b Bg Dg $8$5B[ ,[,8,8x,8g~P#",<# $Z g$LENGTH] g Np ]3Np+f ,e,8,8x p-,   g~,8,8y",<# Bg~+T0 ,k,8,8y $Z g~$,8,8g~",Qi@MAPCAR<]FOO $^ $8,8 g~$R RBAR $^ $[,8 g~$PFLAG $_@`5,X,X^^ _z F"{ B`SUBLIS %_//,xNOT-A-H-NAME`WRNG-NO-ARGS"t4``\ 0 SH-ARCH " ,x zR:LIBLSP;REDO 14 & $,X& &{H-UNARCH $a , " ,x }H-VALUE,8,8DZ4D ,,8,8,8g~",<#[`A B`-, 1B + 1B+ 1B++ 0 , ,8,8,8g",<#Z`-, KP/,x#EVENT-HAD-NO-VALUEc (H-INPUT,8",8Z4D ,,8,8,8g~",`%<#[` B`[/,x# 8PbH-REPEAT[ 8 * -, >,8,< >2Np+ " +"Z`[ >B..-, B>+//.U*U+ @MAPCLAMBDAAT1PROGAT2TEMU*U*UIMPLODEAPPENDHEXPLODECADRCARUSEUSE1USEAU*U.PUSEFUSEQUSEHREDOSREDOREPEATdeeffgfghh<ieXeVW &WX-gXfVW &$eigjgjkkllmmnnxH-TOPLEV-MAIN,8