Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site druri.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!mhuxt!houxm!mtuxo!drutx!druri!clive
From: clive@druri.UUCP (StewardCN)
Newsgroups: net.sources.mac
Subject: Xlisp Animal Consultant (code - 2 of 3)
Message-ID: <1191@druri.UUCP>
Date: Fri, 25-Oct-85 02:10:35 EDT
Article-I.D.: druri.1191
Posted: Fri Oct 25 02:10:35 1985
Date-Received: Sun, 20-Oct-85 05:03:34 EDT
Organization: AT&T Information Systems Laboratories, Denver
Lines: 205

[]
Here's the Xlisp code for the Animal Consultant.  It's a non-formatted
MacWrite document.

But I suggest you use your own favorite programming editor to work
with it, as MacWrite wants to re-convert it every time.  I just had a
whiz with FastEddie, and was impressed.  The paren-matching alone is
really nice for this.

------------------------------------------------------------------------
(This file must be converted with BinHex 4.0)

:"d&ZD@eKE(-!9%9B9%e"3d%!N!3T8J#3"&AR+'&XE'pM)$%`-#NJ$3dSCAK`B@j
N)$)d+5!0N!BSFf9dF5"SHA"[G'KPFf9c)!d0)#!R+#KKEQPYB@`JDA-JB@aLBA4
bEh0c+5!0$5#3"#KKEQPYB@`JDA-JF'9ZCh9TELNJ$3dJN!3SB@jTE@&X)'Pc)'p
cG(*TBfJT)!d0)*!%+'&ZD@eKE#"TFb"PB@GXC5NJ$3dJN!3SB@jTE@&X)'Pc)'&
`G'9bHAJT)!d0)*!%+'&ZD@eKE#"TFb"kC@*bB5NJ$3dJN!3SB@jTE@&X)'Pc)'G
TFQ&QCQ8T)!d0)*!%+'&ZD@eKE#"TFb"dD@GPFLNJ$3dJN!3SB@jTE@&X)'Pc)'0
SC@9dB@JT)!d0)*!%+'&ZD@eKE#"TFb"cFA9TFR*PE#NJ$3dJN!3SB@jTE@&X)'P
c)'0SDA"YG@jV+5!0$5#3"#KKEQPYB@`JDA-JEh4dCA)TN!-J$C!')#!0$5KcCA4
a)'*KFf9bG@aPFb!0$5#3"#FS+(*eE'8JD@4PER4TCRNa)!d0)*!)+'PQ)#KKEQP
YB@`JD'&c)'KKDA)T+5!0$5#3##KdD'9Z)#KKEQPYB@`JDA-JE@&YE@&X+C!$)!d
0)*!%+(*eE'8JD@4PER4TCRNb)!d0)*!)+'PQ)#KKEQPYB@`JCfPfCA-JE@PXDbN
T)!d0)*!)+(4SC@iJ+'&ZD@eKE#"TFb"YB@eYB@`TN!-J$3dJN!3SFR9XC5"TC'9
ZG'PQH6-J$3dJN!JSD@BJ+'&ZD@eKE#"SBA-JCQ9KG'KPFR-T+5!0$5#3##KdD'9
Z)#KKEQPYB@`JDA-JBQPbC#Q3!b!0$5#3"#KbG@aP)'PNC@jdD@Cj0#!0$5#3##K
TCL!SB@jTE@&X)'aKHA-JC@GRFbNT)!d0)*!)+(4SC@iJ+'&ZD@eKE#"TFb"LDA*
N+C!$)!d0)*!%+(*eE'8JD@4PER4TCRNe)!d0)*!)+'PQ)#KKEQPYB@`JC@&dFb"
YC@&d+5NJ$3dJN!JSG'KPEL!SB@jTE@&X)'Pc)'0KFQjTGQpbC5Q3!b!0$5#3"#K
bG@aP)'PNC@jdD@Cj0L!0$5#3##KTCL!SB@jTE@&X)'KKFb"`EfPZG'9N)(4PCA4
S+5!0$5#3$#KKEQPYB@`JD'&c)'0XBAGc+5!0$5#3$#KKEQPYB@`JD'&c)'C[FRG
KFQ3JCAPPFbNT)!d0)*!)+(4SC@iJ+'&ZD@eKE#"TFb"MBA*ZDAC[FQ8TN!-J$3d
JN!3SFR9XC5"TC'9ZG'PQH6FJ$3dJN!JSD@BJ+'&ZD@eKE#"TFb"YB@eYB@`T)!d
0)*!-+'&ZD@eKE#"SBA-JD'p[GQ9c+5NJ$3dJN!JSG'KPEL!SB@jTE@&X)'Pc)(9
ZCh9XBA4P+C!$)!d0)*!%+(*eE'8JD@4PER4TCRNi)!d0)*!*+'PQ)#KKEQPYB@`
JDA-JE@&YE@&X+5!0$5#3$#KKEQPYB@`JBfKPGh-JBh9N+5NJ$3dJN!JSG'KPEL!
SB@jTE@&X)'Pc)(9ZCh9XBA4P+5!0$5#3$#KPGQ9Z)(4[C@3TN!-J$3dJN!3SFR9
XC5"TC'9ZG'PQH6NJ$3dJN!JSD@BJ+'&ZD@eKE#"TFb"YB@eYB@`T)!d0)*!-+'&
ZD@eKE#"TFb"MBA*ZDAC[FQ8T)!d0)*!-+'&ZD@eKE#"SBA-JG'&hERNJBfpXEh)
T)!d0)*!-+'&ZD@eKE#"SBA-JC'&bDb"cF'pdFbNT)!d0)*!*+(4SC@iJ+'&ZD@e
KE#"TFb"MD'9PG'&S+C!$)!d0)*!%+(*eE'8JD@4PER4TCRNa-#!0$5#3##KTCL!
SB@jTE@&X)'Pc)'eKE@eKE#NJ$3dJN!`SB@jTE@&X)'Pc)'0KFQjTGQpbC5NJ$3d
JN!`SB@jTE@&X)'KKFb"dBAGZH5"MEfa[FLNJ$3dJN!`SB@jTE@&X)'KKFb"LE'&
MDb"cG(*TF'9c+5NJ$3dJN!JSG'KPEL!SB@jTE@&X)'Pc)(4TCf9b+C!$)!d0)*!
%+(*eE'8JD@4PER4TCRNa-5!0$5#3#5KTCL!SB@jTE@&X)'Pc)(9ZCh9XBA4P+5!
0$5#3$#KKEQPYB@`JD'&c)'a[EQFJEQ9MDbNJ$3dJN!`SB@jTE@&X)'KKFb"XEfj
R)'aPCh-T)!d0)*!-+'&ZD@eKE#"SBA-JC'&bDb"cF'pdFbNT)!d0)*!)+(4SC@i
J+'&ZD@eKE#"TFb"RDA*KCQCP+C!$)!d0)*!%+(*eE'8JD@4PER4TCRNa-L!0$5#
3##KTCL!SB@jTE@&X)'Pc)(9ZCh9XBA4P+5!0$5#3$#KKEQPYB@`JD'&c)'*XB@0
V)(0dFQP`CA-T+5!0$5#3##KdD'9Z)#KKEQPYB@`JDA-JHQ9LFQ%TN!-J$3dJN!3
SFR9XC5"TC'9ZG'PQH6%c)!d0)*!)+'PQ)#KKEQPYB@`JDA-JBQPbC#NJ$3dJN!`
SB@jTE@&X)'4[CA-JEQpd)'CXH5NJ$3dJN!`SB@jTE@&X)'KKFb"XEfjR)'jPBfX
T)!d0)*!-+'&ZD@eKE#"SBA-JE'pZCb"XC@Gc+5!0$5#3$#KKEQPYB@`JDA-JBQa
KBfXJB@jN)(GSDA4P+5NJ$3dJN!JSG'KPEL!SB@jTE@&X)'Pc)'pcG(*TBfJTN!-
J$3dJN!3SFR9XC5"TC'9ZG'PQH6%d)!d0)*!)+'PQ)#KKEQPYB@`JDA-JBQPbC#N
J$3dJN!`SB@jTE@&X)'4[CA-JEQpd)'CXH5NJ$3dJN!`SB@jTE@&X)(0hD@ec+5!
0$5#3$#KKEQPYB@`JDA-JBQaKBfXJB@jN)(GSDA4P+5NJ$3dJN!JSG'KPEL!SB@j
TE@&X)'Pc)("PEQGeD@iTN!-J$3dJN!3SFR9XC5"TC'9ZG'PQH6%e)!d0)*!)+'P
Q)#KKEQPYB@`JDA-JBQPbC#NJ$3dJN!`SB@jTE@&X)'4[CA-JEQpd)'CXH5NJ$3d
JN!`SB@jTE@&X)'KKFb"SB@Pb+5NJ$3dJN!JSG'KPEL!SB@jTE@&X)'Pc)'&`G'9
bHAJTN!-J$3dJN!3SFR9XC5"TC'9ZG'PQH6%j)!d0)*!)+'PQ)#KKEQPYB@`JDA-
JBQPbC#NJ$3dJN!XSB@jTE@&X)'KKFb"XEfjR)(GTEQGc+5!0$5#3#bKKEQPYB@`
JCQaTCA-JBA3JFf9K+5NJ$3dJN!FSG'KPEL!SB@jTE@&X)'Pc)'&XBQ&dFQpcFbQ
3!b!0$5#3"#KbG@aP)'PNC@jdD@Cj-M!J$3dJN!JSD@BJ+'&ZD@eKE#"TFb"LDA*
N+5!0$5#3#bKKEQPYB@`JD'&c)'a[EQFJGfPZCh-T)!d0)*!,+'&ZD@eKE#"QE'P
PFb"[GQ9b)'aKEQ3T+5!0$5#3##KdD'9Z)#KKEQPYB@`JDA-JC@&RE'8TN!-J$3d
JN!3SFR9XC5"TC'9ZG'PQH6)f)!d0)*!)+'PQ)#KKEQPYB@`JDA-JFQpNC@jd+5!
0$5#3$#KKEQPYB@`JBfpXE'9MG(-JER9dFbNJ$3dJN!`SB@jTE@&X)'KKFb"cG(*
TF'9N)(4KD@`T+5!0$5#3##KdD'9Z)#KKEQPYB@`JDA-JBfKTF'eeEQXTN!-J$3d
JN!3SFR9XC5"TC'9ZG'PQH6)h)!d0)*!)+'PQ)#KKEQPYB@`JDA-JFQpNC@jd+5!
0$5#3$#KKEQPYB@`JBfpXE'9MG(-JER9dFbNJ$3dJN!`SB@jTE@&X)'KKFb"LGA0
SH5"dB@PX+5NJ$3dJN!JSG'KPEL!SB@jTE@&X)'Pc)(0aG@PbFQ9X+C!$)!d0)*!
%+(*eE'8JD@4PER4TCRNb1#!0$5#3##KTCL!SB@jTE@&X)'Pc)'eKE@eKE#NJ$3d
JN!`SB@jTE@&X)'Pc)(0YB@aX+5!0$5#3$#KKEQPYB@`JD'&c)(0SEh*d)'aPCh-
T+5!0$5#3##KdD'9Z)#KKEQPYB@`JDA-JFQpNC@jd+C!$)!d0)*!%+(*eE'8JD@4
PER4TCRNc-L!0$5#3##KTCL!SB@jTE@&X)'Pc)'eKE@eKE#NJ$3dJN!`SB@jTE@&
X)'Pc)'0KFQjTGQpbC5NJ$3dJN!`SB@jTE@&X)(0hD@ec+5!0$5#3$#KKEQPYB@`
JDA-JFfaPEQ4PFLNJ$3dJN!`SB@jTE@&X)'KKFb"LFQphEL"QGA)T+5!0$5#3##K
dD'9Z)#KKEQPYB@`JDA-JEh4dCA)TN!8J$C!++'4PCR9Z)'ePE@*PFL!SDA4PE5"
c+5!0$5#3"#KMEfjN)#JSER9XE#"c+5"ZD@`T)!d0)*!++#KPFA9KE#"TG'9Y)#K
MBA)JFbNT)(-T)!d0)*!++(3J+'ePE@*PFL"TG'9Y)#KMC()JFbQ3"5!0$3NJ$3d
SC'9QG@iJFQ9YC@eLCA)J+'jPGfCKBh3JG(*eG'JJFQ9KFfpZ+5!0$5#3"#KMEfj
N)#JSE@9YBQ9b)'jPGfCKBh3JCQ&MG(-T)'jTE#NJ$3dJN!SSG#!SFf9dF5"QB@0
dFb!SBfpZFb"ZCAGQB@0d)'CKBh4c+5NJ$3dJN!SSFf9dF5"bC@&cEfjTEQFJ+'0
[ER-J+'aTFh3JG(*eG'JJFQ9KFfpZ+5"bC@&cEfjTEQFT+5!0$5#3"'jPGfCKBh3
TN!-J$C!'+'4PCR9Z)(*PBf&XE#!SCQ&MG#NJ$3dJN!3SBfpZC#!S+'ePE@*PFL"
QB@0d)'CKBh4c+5"QB@0d+5!0$5#3#LKd)'jTE#Q3!b!0N!BSC'9QG@iJG'9cG'P
Q)#KbG@aP)'PQFbNJ$3dJN!3SFf9dF5"TCR-J+'0KFL!SBf4b)#KMC()JFR9XC5Q
3"#!0$5#3"#KhD'PXC5!S*LBJ+(0PG(%JD@Cc)#KMC()JD@Cc+5NJ+(*PBf&XE#!
SBf&b)'PQFbQ3"#!0$5#3"#KZG@aX)'PQFbNT)!f3"LKNC@CeEL"cBAPcEb!SFR9
XC5"dD'9Z+5!0$5#3"#K`FQPZBb!LA'j5G@aP)#)T)!d0)*!%+("bD@jd)#KMBA)
J+'0NFL"bG@aP+C!$)!d0)*!%+("bD@jM)#)JC'9NG@0PFb)T)!d0)*!%+("bD@j
XDA0d)(4SC@iT)!d0)*!%+("bD@jM)#*FEPaZ)LNJ$3dJN!3SFf9dF5"cG@0MCA0
c)(3T+5!0$5#3"`d0)*!'$3dSC'9QG@iJGA0PG'KPEL!SFR9XC5NJ$3dJN!3SFf9
dF5"cG@0MCA0c)'jTE#NJ$3dJN!3SFf9dF5"dD'9ZFb!SBf&b)#KMC()J+'0NFL!
SBf4b)(*eE'8TN!8J$3dJN!3SGfKTE'8J+(0PG(%JG'KPER-J+'0NFL"dD'9ZFbN
T)!d0)*!)+'0[EQ3J+#KbC@ePE@*PFL!SBf&b)(4SC@jc+5"d)#KMBA)J+'0NFL"
bG@aP+C!$)!d0)*!)+(0KHA0[)(*eE'8J+'0KFL"dD'9ZFbQ3"5!0$5#3"(0eBf0
PFh-T)!d0)*!&$3dSC'9QG@iJG(*jFR9XC5!SFR9XC5NJ$3dJN!3S*LBJ+(4PFh4
TCL"bG@aP)'jTE#NJ+(9cCA4SC@iJFR9XC5Q3!b!0$5#3"3f3"LKNC@CeEL"dCA0
dD@BV)#KbG@aP)'PQFbNJ$3dJN!3SFf9dF5"TCR-J+'0KFL!SBf4b)#KMC()JFR9
XC5Q3"#!0$5#3"#KhD'PXC5!S*LBJ+(0PG(%JD@Cc)#KMC()JD@Cc+5NJ+(CPFQP
QH5!SBf&b)'PQFbNJEQPX+C!$)!d0)*!%+'jeE'`JD@Cc+5NJ$C!'#5!0$5KNC@C
eEL"dFRPbG@aP+b!SFR9XC5NJ$3dJN!3S*LBJ+(4PFh4TCLXJFR9XC5"ZD@`T)#K
eFf9dD'9Z)(*eE'8TN!-J$3dJN!80N!BSC'9QG@iJGQ9bD@Cj)#KQB@0d)(*PE'9
fB@jd+5!0$5#3"#KMEfjN)#JSFQ9MB@aX)'CKBh3T)#KMBA)J+'CTEQ4hD(NJCQ&
MG#Q3!b!0$5#3"bKd)#KcCA4a)(*PE'9fB@jd)#KTER4SC@iJCQ&MG#"ZD@`T+5!
0$5#3"bKMEfjN)#JSER9XE#"bC@aPGQ&ZG#NJ+(4bH@&cDb"QB@0d+5NJ$3dJN!N
SG#!SG(*jC'9NG@0P)(*PE'9fB@jd+C!')!f3"LKNC@CeEL"KFfXJ+'CKBh3T)!d
0)*!%+("bD@jM)#*AEh9XC#"jEh8JFf&j)(4SBA3JG'KP)LNJ$3dJN!3SF(*TEQa
TFh3JCQ&MG#NJ$3dJN!3SF(*TEQ-J)MmJ)LNJ$3dJN!3SCf9dB@jcGf9b+5NJ$C!
'+'4PCR9Z)(4bH@&cDb!SCQ&MG#NJ$3dJN!3SFf9dF5"KER0hCA)J+'&cDb"QB@0
d+5NJ$3dJN!3SFQ9YC@eLCA)JCQ&MG#"KER0hCA)J*h0KD@4cEbNJ$3dJN!4KER0
hCA)T)!f3"LKNC@CeEL"NDA*NC@4eBf8J+(*PE(*eE'9c+5!0$5#3"#KhD'PXC5!
S*LBJFQ9XFR9XCA-J$3dJN!mS)5!SG(*jFR9XC5!SBf&b)(*PE(*eE'9c+C!%)!d
0)*!6+(0PG(%JFQ9XFR9XCA-J+'0NFL"bC@abG@aPFbQ3!b!0$5#3"(*PE(*eE'9
c+5!0$5#3"3d0+'4PCR9Z)'PZC'4PC(9MC5!SFQ9XFR9XCA-T)!d0)*!%+(GSD@a
P)#JQ*L"bC@abG@aPFb!0$5#3$bJK)#KdFRPbG@aP+b!SBf&b)(*PE(*eE'9c+C!
%)!d0)*!6+(0PG(%JFQ9XFR9XCA-J+'0NFL"bC@abG@aPFbQ3!b!0$5#3"(*PE(*
eE'9c+5!0$5#3"3d0)*!&$3dSC'9QG@iJG(*jC'9NG@0P)#KdFQ9XFR9XCA-T)!d
0)*!%+'0[EQ3J+#KNDA*NC@4eBf8JG(*PE(*eE'9c+5"d+5!0$5#3#LJSD@jNC'9
NG@0P)(4bC@abG@aPFbNJG#NJ$3dJN!SSG#!SBfpZC#!SGQ9bBQpcC5!J$3dJN!i
SF(*TEQ-J)N&cFh9YD@jR)LNJ$3dJN!iSF(*TEQaTFh3JCQ&MG#NJ$3dJN!iSF(*
TEQ-J)L"dEb"LC5"eER4bG@8JFfPZBf8JDA3RFb"eER0eF("[FR4PC#jFEL)TN!-
J$3dJN!-SFQ9YC@eLCA)JCQ&MG#"ZD@`J*f9iD'&eFh4PC#NJEQPX+C!$)!d0#5#
3"Jd0+'4PCR9Z)(4SC@j`)#KQB@0d)(*eE'8T)!d0)*!%+'ePE@*PFL"QB@0d)#K
MBA)J+'0NFL!SBf4b)#KMC()JFR9XC5Q3"L!0N!BSC'9QG@iJD@jdD'9Z)#KQB@0
d)(*PE(*eE'9c+5!0$5#3"#KQEh*PB@0S)(*eE'8JBQ&cCA*eE'9c)!d0)*!)+'0
[EQ3J+#KdD'9ZF#"QB@0d)(*eE'8T)#KcCA4a)(*PE(*eE'9c)#KMEfjc)(*eE'8
JFQ9XFR9XCA-TN!8J$3dJN!9bC@abG@aPFbNJ$C!++(0PG(%J3fp`HA*TCfKd,8&
`FQPX,6%j1$8Y3faTGQ8Y8h4PGf&bC#"d+5#3"3d0)*!&$3dSC'9QG@iJC'pMBA0
P)#JT)!d0)*!%+(0PG(%JF'pcFfPLD@aTG'PPFb"SHA"[G'KPFf9c+5!0$5#3"#K
cCA4a)'CKBh4c)'jTE#NJ$3dJN!3SFf9dF5"bC@&cEfjTEQFJEQPX+5!0$5#3"#K
cCA4a)(*eEQjTEQFJEQPX+5!0$5#3"#K`FQPZBb!LA'jFEN&ZD@eKE#"PH("PFR3
JBA3JH@peFL"cCA*fD@0P,T!$A'jFEPG[G@aN)(P[G5"XD@YP)#)T)!d0)*!%+("
bD@jM)#*dEb"LC5"TEQC[FQePC#"[CL"`FQpRFQ9cFb"KFb"hC5"hEh*V)(4[Gf&
bC(-JB5"bCA0eE(3r)LNJ$3dJN!3SFf9dF5"fCA*LEh0P)#KRCA4KER0hCA)T+5!
0$5#3"#K`FQPZBb!LA'iL+5!0$5#3"#KcCA4a)(*eEQjTEQFJG#NJ$3dJN!3SGfK
TE'8J+#BQ)#KXEfpVF'pcFfPLE'8T)!d0)*!2+#%J+(CPFQPQH5!SBf&b)("[Fh0
TBQPXDA4TCA-T)'jTE#Q3!b!0$5#3"bKcCA4a)("[Fh0TBQPXDA4TCA-J+'0NFL"
`Eh0cD@*TE'PdD@9c+C!$)!d0)*!%+(0PG(%JFR9ZEQPZCb"ZD@`T)!d0)*!%+'0
[EQ3J+#KZG@aX)("[Fh0TBQPXDA4TCA-T)#K`FQPZBb!LA'j1Eb"SHA"[G'KPFfP
c)'0[EQCTFQePC#k3!eaZA'iL+5NJ$3dJN!SSG#!SF(*TEQ-J)PaZA'jAD'&d)(P
[G5GfC5"dEfaN)'eP)'PZC'PMBA4PFb"dD'&d)(4SC5)T)!d0)*!1+("bD@jXDA0
d)#KMBA)JF'pcFfPLD@aTG'PPFbNT)!d0)*!1+("bD@jM)#)ZA'jFEL)T)!d0)*!
%+("bD@jM)#*AEh9XC#"jEh8JE'PVC5"KEL"PH("XB@jKG'P[EMmJ)LNJ$3dJN!3
SBfpZC#!S+'GPG'&ZFhGPFLNJ+'9iF'aKD@iTN!8J$3dJN!3SBfpZC#!SGQ9bBQp
cC5!SE@9Y+C!%)!f3"LKNC@CeEL"XEfpVF'pcFfPLE'8J+#NJ$3dJN!3SBfpZC#!
S+#BQ)(CPFQ*[Ff8JF'pcFfPLD@aTG'PPFbNJ$3dJN!JSF(*TEQ-J)Na[EfYTEQF
JBA3JF'pcFfPLD@aTG(NJG'KKG#)T)!d0)*!)+("bD@jXDA0d)#KMBA)JF'pcFfP
LD@aTG'PPFbNT)!d0)*!)+("bD@jM)#)ZA'iL+C!$)!d0)*!%F'pcFfPLD@aTG'P
PFbNJ$3d*)*!*$3dSC'9QG@iJF(*TEQaTFh3J+("XDA0d+5!0$5#3"5KQEh*PB@0
S)(JJF'aTFh3J+("bD@jM)#)J)LNJ+("bD@jM)(JTN!-J$3d*)!d0+'4PCR9Z)'C
TEQ4hD(NJ+'CKBh3T)!d0)*!%+(0PG(%JCQPZC'9i)$%T)!d0)*!%+(GSD@aP)#J
Q*L!SFf9dF5"MGA*QB@0d)#KZG'JJCQPZC'9i)'CKBh4c+5NJ$3dJN!iS)5!SCA&
eB@`JCQ&MG#"MGA*QB@0d+C!$)!d0)*!)+(0PG(%JCQPZC'9i)#JV)$%JCQPZC'9
i+C!$)!d0)*!%+(0PG(%JFQ9KFfpZ)#KZG'JJCQPZC'9i)(*PBA0[EQPZCbQ3!b!
0$3NJ$3dSC'9QG@iJEQ`J+#NJ+("bD@jM)#*FEL)T+5!0N!BSC'9QG@iJG'&L)#J
T)#K`FQPZBb!L)*!%)LNT)!f3"LKNC@CeEL"QEh*YBA4`BA*dFb!SC@aPE@9ZG#N
J$3dJN!8SG'&L+5!SF(*TEQ-J+'0KFL"PE'9YC@jd+5NJ+'jX+5!0$5#3"5KhD'P
XC5!SFf9dF5"PE'9YC@jd)#KMC()JC@aPE@9ZG#NT)!d0)*!)+(4KBLNSG'&L+5!
SF(*TEQaTFh3J+'0KFL"PE'9YC@jd+5NJ$3dJN!8SEQ`TN!-J$C!NJ$3dSC'9
QG@iJCQpbE@&dFR9XC5!SG'KPFR9XC5NJ$3dJN!8SF(*TEQaTFh3J+'aTFh3J+'0
KFL"dD'9bG@aP+5!SER4S)$)JG'KPFR9XC5Q3!b!SF(*TEQ-J)MSL+5!0$5#3"5K
ZE#NJ+'jX+5!0$5#3"5KQEh*YBA4`BA*dFb!SER4S)$-JG'KPFR9XC5NT)!d0)*!
&+'C[FQeKG("KFR4c)#KZG'JJ0#"dD'9bG@aP+C!$)!f3"LKNC@CeEL"QD@jNFR9
XC5!SFR9XC5NJ$3dJN!8SFf9dF5"QFR9XCA-JBQ&cCA*eE'9c+5!0$5#3"5KhD'P
XC5!S*LBJCR*eE'9c)#JK)#KPFA9KE#"bG@aP)#KMBA)J+'0NFL!SBf&b)'CbG@a
PFbQ3"L!0$5#3"5KcCA4a)'CbG@aPFb!SBf4b)'CbG@aPFbQ3!b!0$5#3"5KMEfj
N)#KQFR9XCA-J+'0KFL"QFR9XCA-T+5!0$5#3#LKd)#K`FQPZBb!L4A*bEh)k)'j
[)(*eE'8JEQ&YC@3J)LNJ$3dJN!iSF(*TEQ-JFR9XC5NJ$3dJN!iSF(*TEQ-J)L&
FEL)TN!3J$C!++'4PCR9Z)'9iF'aKD@iJ+#NJ$3dJN!8SFf9dF5"hB@jdE@pbC5"
d+5!J$3dJN!8SCQpbC@&MD#"QB@0d)'CKBh4c)!d0)*!++'0[EQ3J+(GKER4YEh*
P)!d0)*!1+("bD@jM)#*FEL)T)!d0)*!1+("bD@jXDA0d)'CKBh3T)!d0)*!1+(0
PG(%JFQ9KFfpZ)#KQD@jNGfKj)'CKBh3T+5!0$5#3$LK`FQPZBb!L)'Pc)LNJ$3d
JN!iSBfpZC#!S+'0KFL"bC@&cEfiT)#K`FQPZBb!L)(4bG@8J)LNT)!d0)*!B+(3
J+("bD@jM)#)JCQ&XFf8J)LQ3!b!0$5#3$LKMEfjN)#JSCA&eB@`J+'0KFL!SBf4
b)(*PBA0[ELNT)#GcB@PNFfmT)!d0)*!F+("bD@jM)#*LC@0KGA0P)(P[G5"cB@P
N)(0[,L)T+5!0$5#3'#JSCA&eB@`J+'0KFL!SBf4b)(*PBA0[ELNT)#GPH'KKGA0
dC@3T)!d0)*!F+("bD@jM)#*LC@0KGA0P)'&XE#"bG@aPFb"hD'PMD#"YD@GSG#"
`FQpfC5"TG#"QB@PXC@3Z)LNT)!d0)*!B+(3J+("bD@jM)#*LC@0KGA0P)LNJ$3d
JN"XSCQpbE@&dFR9XC5!SCQPZC(*eE'8J+'0KFL!SBf4b)(*PBA0[ELQ3"L!0$5#
3"#KcCA4a)(*eEQjTEQFJEQPX+5!0$5#3"#K`FQPZBb!LA'jFEN4[)(P[G5"hB@j
d)'CeFR4SCA)JCAK`E'&ZBA4TEfir)#)T)!d0)*!%+(0PG(%JGf&ZG'e[FQ8J+'G
PG'&ZFhGPFLNT)!d0)*!%+("bD@jM)#*FEL)TN!8J$C!'+'4PCR9Z)'GPG'&ZFhG
PFL!S+5!0$5#3"#KcCA4a)'&ZFhFJ+(*PB@3T+5!0$5#3"#KMEfjN)#JSE@9YBQ9
b)'&ZFhFJE'9RB@aKER0hCA*c+5!SCACKE#!SE'PcG#"KER0h+C!$)!d0)*!2+(3
J+("bD@jM)#*FEP0[FR*j,#"XC@GKE#"KER0hCA*c)'&bC5!L+5!0$5#3%bK`FQP
ZBb!L1L!L+5!0$5#3%bK`FQPZE'PcG#"XC@GKE'&ZFhGPFR-T)!d0)*!6+("bD@j
M)#)Z)#"3E'9KFf8JFQ9cF'pZC#"KCf&TEL!Y,5)T)!d0)*!6+'GPG'&ZFhGPFLQ
3"#!0N!BSFf9dF5"XC@GKE'&ZFhGPFR-J*bKjCA-JEQmJGfKj+5NJ$C!'+'4PCR9
Z)'j[)#JT)'jTE#NJ$C!'+'4PCR9Z)(PPFb!S+5"d+5!0N!8*#5!0$5KNC@CeEL"
hD(NJ+#NJ$3dJN!8SBfpZC#!SFR9ZEQPZCb!0$5#3#5K`FQPZBb!LA'j#C@0KGA0
P)%NRE5"dFRPTEQFJG'mJCA0dB@*XDA0S)LNJ$3dJN!dSCQpbE@&dFR9XC5"bG@a
P+5!0$5#3$5K`FQPZBb!LA'jFEL)T)!d0)*!0+'&cDb"QB@0d+5NJ$3dJN!JSG#!
SF(*TEQ-J)PaZ8fpbFRNX)(GSH5"TFb"eFf9QG@`JEfjXH5"hD'9Z)%NRGQ8J)LN
J$3dJN!dSF(*TEQ-J)Q&cDf9N)(P[G5"QEh)JB5"QB@0d,T!%A'jFEL)T)!d0)*!
0+("bD@jM)#*3E'9KFf8JB@jcGf9b)'&RB@PZ)#dY)LNJ$3dJN!dSCf9dB@jcGf9
b+C!%)!f3"LKNC@CeEL"MEfjcG@ad)#JT)!d0)*!%+(0PG(%JFR9ZBf&cC5"d+5!
0$5#3"#KhD'PXC5"bG@jMBA0P)!d0)*!(+'4[Bf&cC5NJ$3dJN!FSF(*TEQ-J)Pa
ZA'jAEh9XC#"jEh8JE'PVC5"dEb"dFRNJB@j[G'KPFL"MBA0P2b!L+5!0$5#3"bK
cCA4a)(*eEQ0KFf8J+'GPG'&ZFhGPFLQ3"#!0N!8*#5!0$5KMEfjcG@ad+5!0N!3
YUJ!!!: