FASLPU*]*uFLUIDQUOTEPRETOPPRETOPRINFxSETQOPxOPRINFu:U*uxCOMBUFFxCURMARKBUFFPRMAR*NxRPRINTPBF"EXPR.59**LAMBIND*DJ B` " B B $LIST2NCONS2	 B Bg "LINELENGTH	 B *SEMICOL*%  "
GET
 Bg} " B[g}Z[#R[g}[  `MPRINO1; "QJF
PRIN2OX OMARKO gPRINOS
 "QDP*SPECRSTR*
/,x88hRPRIN1.'H@B!59* B` " B $H0	 B Bg  "

[Z[2[[  `  g ]
 "
/(,x  `MPRINO`,8 $ "  `/,$X@*h(.{59* B` Dg ATSOC Bg
4B7Z+4 Bg~[ Bg~COMPROXZg~	F Q5B2  gDELETE B `NUMBERP(b*!4BI `MINUSP4BI DIFFERENCE "
@ Bg4BI@@g~[ BgZg[[GREATERP NULL5BC[gZg[i
 Bg~4BE( " `PRINOX g~
b
4Bz) "+z `ATOM4BLLQ `/|"[`5BV ADD1CR B "[` " $he# OMARK SUB1 B+s [`
 Bg4Bd@@g~ $[g
*J
4B]BLOCKPROGSTRINGz [`MEMQP`0 Bg~4B_ "Z`	  gAPPLY g~4Bz "+z [`
@ R Bg4Br[5BoZ`Z4BjSyntax error "
%/|REDERR"Zg[5Bn $2!D0 "+o  " g  `

/}INPRINOX&[`[`RLISTATP4BvFR gZ`/}RLPRI$Z`5By() "BFA+z gMPRARGS "/~,x(1(((((0-.59* B`BH4!Z5B Dg  " $ "`
% [`/
$ Dg `*COMMA* "CONS Bg $ " g  g/
&X~.59* B` Dg1 FgZ[[g5B[gZgLCU[ Bg~4B "MU)@# zZ` g[`INPRINO  g~4B!i&A "D!z "/ ,x D 8.N59*@@g~ B` Dg Fg!(d  $! PLUS2" B  `
 Bg~04B.[4B. $[g [g)Zg BgT "" Bg~ g4BK `0B
d1 +3, "# +@0B+7R
3 :=  "# $ +@[gi
5B<ALT $$[g[GET*$3B`
fQ+@ $  g~ `OPRINO% ( "" Bg~Zg5BB "+C[g Bg} g~
5BE "+FZg[  g} @B[gZg Bg+. $!  B @0 "/O,x00 ,8,8PRTCH!DC $%
5BV g4BT " ` @& "+V[/W"PO,8EXPLODE2$&XCZ4B[ B+Y/\,xX(d!@X,8EXPLODE&XCZ4B` B+^`1 /a,x8] 4Bd "+eBf" 
,xHb	XCZ B,xZv`f $"Hh.|59* B`z  [EQUAL'4Bs `+q Bg[ Bg~"2Zg5Bnz/}"[ Bg @ $QC `+y Bg[@hZg5Bw g "/},x  i*) xjSTAT $'
ENDSTATRLIS((z $X5@~,84B B` " z $!@5 " `  " !z "t/	,xHCONDOX.359*@@g B`)PF 
 z $! " B `4B.IF !@B ")[`[ $ R$ THEN  "*Z`4BCOND $*[`Z Q[EQCAR+4B[`Z[REVERSE+([ $"+5B "" Bg "[`CZ[ g4B# "Z` B`	tC4B'  ELSE  ", `4B@Z5B[`[0B"+[`Z[2)@@`+ $!  B!z @:u "/3,x
PUT,*)xBLOCKOXM2R,8 z $! " BBEGIN  "-F
[`4B:VARPRX.Z`LABCHK. B`RbA *LABEL $/[+4B> "+? " L   `4BN[ $/[`@4C+5BGZ`4BG;  "/Z` B`
bA 4BA $/[+4BK "+L " L$:! +A  $0h# END "0 $!  B!z: "/V,xP4RETOX,8 ze$ $! " BRETURN  "1 z
2)[` $!  B!z)P W!z "/c,xWRETURN,21x .q59*Z+p Bg[ B`[!Q! " $ "Z`  " !i3 "/ $2 Zg5Be/r,x`c.59*@@g+@ B`4B[Z2Bg+z "# DC)+ g4B} "/!zh5[`Z Bg " z[`@C)[Z` B`+u "/!z @>P "/,x`r,-xPROGOX.59* B`@@g[++ Bg[SCALAR!@` $3 g BgZg5B gREVERSIP&X4Z`/"-0	. 59*@@g+ Bg[ B`4B `!@  "/ g+ g ` BgZg`u5B g/!"4h,3xGOX`,8GO TO  "5[`/$"H!W($GO,54xLABOX[:  "6"`%uF	,/6xQUOTOX,8STRINGP74B* `/,"R#' "8[`/-PRINSOX"8X !p',84B0 `/C" ")Hd z  B `4B?[83Z` B`4B4 $0  `
`0
4B> .  "9 `8@@`+4 "HdS +4  B!z "/D} "-,7xPROGNOX,8 j0 B<< ": z `4BN[(2Z` B`4BH "/ +H)i#!z>> ":  B "uju/S,xDPROG2,;9xPROGN,;9xREPEATOXJ:!,8  B zREPEAT  "<iB[` UNTIL  "= $ 
&#Z`[!z  B "uj/a,x@TREPEAT,=<xWHILEOX,8 tC B zWHILE  ">[`R
3 DO  "? $ Z`[LF$!z  B "/o,xkT`bWHILE,?>xPROCOX,8 z F BZ`CADDDR@4BwZ`@!i "PROCEDURE  "AZ`Z[Z`(h[[`PROCOX1A "/},xp".59* Dg F` g4B $ "h4  g "/ $ F% `  B!z ".P/,x}PROC,B@xPROCEOX.d259* B` z  BZ`[	 "Z`Z[1B+!P`0 " "A `@ Bg `CDDDDR# C[  g[`PROCEOX1C "/b,x(
.759* Dg Fg@b g4B/[5B,@@g~ g+* Bg~[ B`[ g~ Bg~Zg~5B& g~4 Bg $ "  g "/f $  g M B!z "/8,x((8 W( PROCEDURE,DBxPROCEOX0.F59* B` Dg Hg~@@g~@C +@ Bg[SYMBOLIC $E g~ Bg~Zg5B< g~4 
g~  g $E&] `LIST5
E/F"B((H 8DEOX@ZZ [ Z[ $[(D`GW(DE,FFxDFOXZZ [ Z[FEXPR t
! $G[(DpKSTRINGOX,8" "HP&u[` "H/S"	O,HxLAMBDOXLF ,8 z  BZ`[[`R
_LAMBDA "IA "/Z,x	S,IIxP)EACHOX,8FOR EACH  "JZ`4Ba[`!@ "Z` B`+\[`/b"]:@#	 [FOREACH,KJxFOROX,8  B z`4FOR  "L[` "#Z` [[Z`[Z[1B+rR STEP  "LZ`[Z[ "=
`+s: "MZ`[ZZ[! "Z`Z[ "!`3) $  `@!zI]  B "/,x	8cFORuF%,MKxFORALLOX,8  B zFOR ALL !Q! "N $ "[`  " 3RZ`[4B $  SUCH THAT  "Oh4Z`[ " $ SZ`Z[!z :u B "/,x	`FORALL,ONxu+B*

;,
0,P2xORIGCURPOSPQx.$59*PQ
F2 B` " BQPOSNQ	 BP[*S2I:R BQ $ `PRINOYRTERPRI0XS "@1
/%,xP.C59* B`
 DgSPACELEFTS Bg[5B,Zg5B6!(b
 $T[PLESSPT4B. g `/CPRINOM)#$UZP "U BPS[`ZT0[ "U" BQSPACES2V g `/D0$R g  `R B`Z4BAb0 g[`[4BAS[`Z[Hb[P" BQV+6 `/D,xb
(%.`59*@@g~@@g~ B` F0 " Dg Q R BgZ` B`4B] g~5B] g5B][`4BSL  gR Bg+[[`[1B+[(!  gT5BZ "" Bg~ ` "P B`+[ "" Bg~Z` B`+L g` g~/`$((
8E.59*#@@g~@@g~ B` " Dg QR BgZ`@ 1 B`4B g~5B[`4Bn[`PRIN20XfV Bg~ gR Bg+[`[ @A0B+v[`Z[0B +t P gHB+uZP BP+  gT5B #! g~,0BW+ g  $20 Bg} g g~ `CHARSPACEW  g}
05B "" Bg~ ` " B`Z` B`	+g g BQ g0B+
Z`4B
SH S "	 BP " BQ g `R@1 `/,x00
Pa.'59* B`  " Bg~ Dg Fg `4B% g[' 35B"[`4B g~R Bg~+$(4@ z [`'4Bt "X Bg~+"[`D
[4B$ g[`[T4B$ "	 B`Z` B`+ g~/',x A1R 
x,8 $ `4B-  "XV ` B`+(/.,x
`(P@RPRIN2ROX.g59*@@g~@@g~ B` " $YL3 R Bg R Bg `$4Bf[0BH+I  g Z`QDh$STRINGSPACEZ5B>S " B "HVZ`& B`[`1BH+EVZ` B` P` B+@ "HVZ` B` $! "L A B+b4Bd[`0BX+T 1B
+d g~4BdZ`4BQ[BREAKPZ5BdDA g~Z4BT g~!0B[+d g~ Bg~F [` Bg~V  BZ` B` gD1 '5Bb g 4B6[`Z	`
5B6  g  `NOSPACE[4B6
S " Bg~ Bg~+6Z` B`+6 "/h,x((/.y59* B` Dg ( $ gT4Bm ""+x `4Bx[@ A5Bq g+w[`1B[+uZ`[ L 01BX+xZ5Bx g Z`+i @:U "/z,x8h<>;U*U%:=)+-'\\]]^^__W`Hz $(z
.59* B` Dg $ gT4B " 0+[`1BH+ g Z`+| @:W ""/,x { . .,%`axU+@!GLOBALRPRIFN*RTERFN*abbx,8 b4B `	`  b/
$ `/
PRIN2"cH(:
h b4B $$TERPRI c
0xFASLP