; SHU*UjWORBOUNDPQUOTELISPXFNSSETQxH-MAXxU*].WH-COUNT*IBASE  xH-LISTxH-STACK  xW+UjWH-ARCHIVE-PxH-1ST-ARCHIVEDxH-REDO-EVLxH-REDO-INDENT xU:].WH-REDO-PRINTFT xH-EVALxH-PRINT-I  xH-PRINT-OxW+UjH-FIND-=  xH-FIND-*xH-FIND-REDONExSUBR-,Q@H-BEFORE ˀ-, B "4##NCONS` $XCONS j2 $ `-,CONSa a 0*1 B `H-EVAL-2 NUMBERP`!`k H-CLEAN `+T(@`-,H-ENTRY#-, A@#[a4D,8`#C`+`#*EVAL @#-, 9A@#ZZ  " QBQC`[`+Y   "as@ pMZ` B`>p+#``,8,8Zg[3Bg~++ @!R5B.@[@ B+8ARCHIVE % A H-GET B`DELETE0'+45B67D +4B5B6ZgZXCg+(ZgP Q Bg+( "/,xH-REDO-1A#) ZZREDO-LOSS )QJ,8H-FIND@fQA;H-REDO-GOBBLEa+ $H-REDO-2&9,8H$B@#Z Z REDO-WIN-QB  F#`  a gT2-, B FLATC@.0.b!a-,` `-,+P!!# "ѳ` gREVERSE`/#GROUP `  $ $*NCONCa1 & 4 $H-PUT "H-TOPLEV-ENTERh3X` ?,8 *`-,,8C `[ $ $@ ` g3a+`3`7Fg #` ([` gH-TRANSFORM-TOP+j[`CC "` $AsZ[ 00As[,X`XC`  `LAST`5As B`3`/,b,x Z,86B+z `D"+ Z,8@H  B5Ba@ [b@ Z [ HD ` -, B  bs3 a gH-REDO-1EV+x/H ,xw -, ,8,8Z Z8[8 87B`)0$! 3.p`)Z D+7Bg+3 `H-PRINT2b7 `3+7Fg+@j & g~Q@(H-PRINT1 `? "/+CC( H-REDOFSUBR $ $HAH-SREDO $$]@XCH-USE-,,8,8[gIN=`Q `3ZgH-USE-I +.6Dg++=zPM*Y Jg`Y3a PZg Bg`I,x`EH-USE13Z[`[`_ $ ` c] & $Z`Z&x/H-USEFH3[`__ $!`` & G: $Z`&mH-USEA,<0h3Z[` $!`,8O [g 8S` ``ˀ ` "a Np *p B``F/` & $Z`ZcK& yH-USEQ[`3@c $!` & $Z`&X ,85BZ4DZ -,1D`"+Z,Xa+ & $t & UH-USEH-, * -,1  ,8,8[g= @+oZgA@#ZZZ` BgZ@!#4Fj ,j,8KERROR<## (a[3 gQC``6Dg @ 0`=zPM*Y Jg+s3aZg Bg#`,#b7:K#"MORE-THAN-ONE-EVENTG(^-, GET$$X y "-,A "-,`j;AZ`-, PUTPROPiI zPG:RH-REMPROP-, REMPROPiK( LIBLSP;REDO 2LSUBR % t0 $ &0MH-FIND-N' $&,k+ H-SPEC`OPj;+NUMBER(QzΌH-FIND-1")8  a-,H-FIND-PTRS@#-, CA@#ZZHIST-LOSS "*QB  "a(` 2S `H-FIND-EVAL`U@#-, 1B* @`-A@#ZZHIST-WIN "+QB0`j+H -,H-FIND-FORMW $E #![$9 U " *BREAK, $`W`k$@WC`+TU+H]DEFPROPANDH-ANDY-[x U+lATHENW H-FIND-THENY.]x,8-,7B` `O[`UZ` D``G. `/,xtCH-ORY/x-,D0SS-,S,8,80 6Bg+3 `e e,8,8DW1A",<#` " $?-.``U@ Bgy{3+ " `+ ZgS Bg`[/ :K,S[hEVENT-NOT-FOUND_xS#3FROMH-FIND-FROMY0axW`FROMTO $1hU]:].WTOYcaxTHRUY2axALLYeaxH-FIND-FROMTOY13x ``,8-,7B`+a@AA[ *0 Jg~[1D0+Q1c+Q P 1D2+Qe` Dg~Z[ F` g~e` `3+_ ``U g~ HA0B0`A@S Dg+_c+]A@S3 @+_0B2+_SZ` B` `,8+f g~ $@ "SUBSTag B`+h $ g~*APPEND4 B`2Bg~+l ,l,8,8q3",<#@417B`+o7Dg+oH-FIND-ALLai+p `NREVERSEK5/,xFROM/TO-WRONG-ORDERkG-,0c,8 $@-,-,@dpS,8,8 " ${-.0j1`U`+ ATOM64B}H ` a@S2D`` ,8 e` g~-,",<#`S3@ `5 B`a`/+WRNG-TYPE-ARG%j\0m @H-FIND-@Y7ox,8[i0 6H-EVENTS $8`$ B` $D 4+ #,8,8W",<# " /,xmH-SEARCH,8 # 1 `/ $`SMEMQ9+S"Z6B``= ,,8,8(,8g~",@<#K[`pK3+# [`@@19`G `S[`+'Z` D` :u+/,x_'H-FIND-NUMBERY(sxLIBLSP;REDO 5D ARG{u`c  ZZ8[8 8&pT@u " 0@+5ZZ8[8 8Su " d,xQ  "aSc%[` 85.=C-,` $H-FIND-+-@ $;+A[`-,u & ` ": Waq,,x6=Yw x @ * -, [``U/H+`BY x * -,A@kU[``U+dF-H-FIND-+-1$;Y<yx+Y=yxa@W0D=g $ $;JP"LIBLSP;REDO 6ZZ8[8 8COUNT2O> " @1,x,8[`!4Bo-,>c 8aS5FZ ,81!W",<#`S`+n`S4B_!ZZ8[8 8+fA@S[-,0" ˀ+f ,8,8rW",<# 7B`+ic 8+jcbC"8.p-, B> `W{aq`a@,` &H-FIND-++--a} :W/,x__ ++H-FIND-ST+-Y?xW+Ue--Y@xS+TYxS-TYAx?z Fz;aW7@RZ[ 0J+tAz0P{b@W7Z':[ 0J +xi}LIBLSP;REDO 77D !Q`-, B`H-FIND-SUCHTHAT7BB`SPEC-LIST`  C`+``Hd@6 ` ( [` "AA+Z`-, 0-`0B+`#6H` "+ ( [` $`b,x {-,B* 0Waq+ -,Q*J 0STACKC|LOSEDzP.),xP JC`H BgTYPEP`SYMBOL0BE`IH-SPEC-SYN g@1$ B`I[C[`!C[C[81 80n`I g` $ `4`O440 g` $ $[5D3c[C[4F, 0.+3-, `!],F.(zL*e'`e $8@Z[$VF4B2F.@zGb4VH-SPEC-DO-OPS`@[5B:as "4D:[C[4F: ,:,8,8@3",S<#`@5BxGzIH` -ZC /+F.7xL6w4VINFIX-EVENT-OP-AFTER-OP <[`ZC[[$ ˀ3n`ZC 4BQ[Cc -, `ZC[ZZ[ ` $ $ZCZa BC F+A[C-, ` $ZC  [AZC[ZZ[CC ` $ $ZCZZa1 BC Z[65Bj[C0@` [[[C-, 0B+j[C` ZA[C [4 [CZZQB+AZ`[[CC[H-SPEC-INT $H$@[`2c $4` C-,a.].W BC,x42Y-xdY1IHxY01xw:].wIc$0xI2$0xIe$0xHY.JHxzYw.xI $wxY=F.xw;]j"I<$=xI?$=xI@$=xI7$=xIA$=xI$=xH-PR ( & DC $H-PRINTj 0H-PV ( & $ j]; @H-PB ( & $ j H,8f,8'5+'7B`F + [ .. * 3 g~ $p Z` B`0` " ,x\,8,8Bb77Bg`ATERPRIM`Zg~Z[ s. "p0!H-SPACETO`Zg~-, ?`"`5D g~B+ PRIN17FN`;Zg~-, @ 1B+ Zg~-, N+ 8E2@ ",x:x4[Z" @5@J4,8,8[ M "01!`Zg~Z[N`@7B +.@ `C +/ `N $ g~}7Dg`}7B`+>[` Zg|Z[.. ( g}0` $p Z` B``g X/ "/,x4I,<0E",<LINELCHRCT/O ;  `4NJTYOP ` Np "p B`+E "`j/,xl-,H-TLISTH-TRANSFORM-NOCHANGE`Q,8 "-,6B`+S (c$ $H-TRANSFORM-Ta+YTRANSFORM "R @ 0a & gy`H-TRANSFORM1a+YZ` B`+P7DQ``@"6Z`4Fa ,8,8g",@ R<#`[`+USE-ING TURNED AN OBJECT INTO A SEGMENTS(L,8-,~ B`1A[`-,`+ "R $n`0a gw`a+`Z` B`-,6 45B+ $`a $ Bg@ a7DQ` g5Bz+a[ g0H+Z g5J@P+ -,+3 ga17BQA+ "+7Dg~++``/,xc,84F H-TRANSFORMAFa+-,` g-, ` $a,x  PFCXLIBLSP;REDO 12-,` $Ma,85B3A@a01`73 g}a[`+`!GD# g}`!E g}EQUALaE g}a@`1-,`+ $R` 6Sa"2Bg}+( g}-,`+ " $RbD` g}6Y " $R` 1A`65BGas[0D `q+2@ g`g`ZZAs Bg`ZP[a * `Y0D!`C`w g`y`ZAs Bg "aA * `Y___0DU+Gѳ` * J`As`Z[a`Y@(07B`+K7Dg+K $T g, Bg@17BQ+M3@@``65Bas[0D7+aZZ g{7JQ` " +Z7@g~` $4b0+Z g|a`-, Bg AH "R $a & 3@aa0+e3[gaZg B $R` Q7Dg~+i ` 0a4` `NRECONCa`+!`Z,8г` Q5Bx07Dg~` & g|a $ g~4@1+x & g|a $ `a+Qd6Dg|+{ " $R` &[g|`a `aZg|A B` Dg|` /`+ & Zg}@a &[g} `a Bg~7DQ+ " `+1+ 3 g4`+7B`` g~`0  Bg~[g}2Bg~+Zg}Q3+  g}-,`+3 g~a/h,x)H-DEF[Z,8 Fg@1,8,8 g65BZg[gb3 Fg g6K ,$,8,8M g~`K<#[ Bg5EXPRPFEXPRMACROAUTOLOADWMXz [g gGETLaU U@,8,8N,8g~",<# g~4J@[(Z ( A=++ g~=9Z g~-,3 $7Zi[ =+2 g~`C-, & "ag Bg~ $PRINTYz;983UQE-MEMBERa4B= " B`4B= g~Yz;983U*DELETE Z Bg~7Bg~+@ $4$' &8 $ gaIH-ARGS 3 g): aI H-RUN-NAME $[ gaIH-RUN-PRINT gaK7B`` $ gaI g0KP,xmmALREADY-A-FUNCTION\ `-LIBLSP;REDO 13 -,` $-,a $ @ $M,<`Asb Bg3 $8$5B[ ,[,8,8x,8g~P#",<# g$LENGTH] Np ]3Np` ,8 p-,` g~,8yK<#`0 ,8 g~$,8g~K:C@MAPCARoFOO $^ $8$RRBAR   g~$PFLAG $_@`5`,X,X+^ _z F"{ B`SUBLIS %a/,xNOT-A-H-NAME`WRNG-NO-ARGSD4 SH-ARCH " ,x zR:LIBLSP;REDO 14 % '& MH-UNARCH  , " ,x H-VALUEDZ  ,8,83",<#[`AAA B`-, 1B +0-+1B++0 ,,8,8g",<#Z`-, KP/,xGEVENT-HAD-NO-VALUEc (H-INPUT"Z+ +,8,83",`K<#[` B`[/,xG 8PbH-REPEAT[ 8 * -, > >2Np`= " `EZ`[ >Bˀ-, B>+.U*U+ @1MAPCLAMBDAAT1PROGAT2TEMU*U*UIMPLODEAPPENDHEXPLODECADRCARUSEUSE1USEAUSEFUSEQUSEHREDOSREDOREPEATefgh<iWMX-gWMIgjgklmn xH-TOPLEV-MAINyRhb2 LINMODEz)gSTATUSpMM+)[p`Y7DN`W `B`Y `N1QM ˀ "pN`=READ"+2@+3 ,g B<7D`kLISPX/@bq B<,8= B=-,p=  <@ba , J` `I 4x$SSTATUSTOPLEVrox;