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 (doc - 1 of 3)
Message-ID: <1190@druri.UUCP>
Date: Fri, 25-Oct-85 02:07:00 EDT
Article-I.D.: druri.1190
Posted: Fri Oct 25 02:07:00 1985
Date-Received: Sun, 20-Oct-85 05:02:47 EDT
Organization: AT&T Information Systems Laboratories, Denver
Lines: 136

[]
Here is the documentation for the Animal Consultant.  It's a MacWrite
4.5 file in Binhex 4.0.

Animal Consultant is a backwards chaining rule-based system (part 2) cobbled
up in Xlisp 1.2 (included in part 3).  It tells you what it's up to, answers
why questions, and explains it's answers.

It is copyrighted, but other than observing the spirit of that, have fun.
Which is all it's good for.

It was written on a 128k Mac.  You don't need Packit, either.

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

:#N&ZD@eKE#"%Ef-!9dp54%e"3d%!N!36X!!!![ia@`!'!%F!!J!#!*!*!3!!%i!
!-!!`!!!5r!!S!#J!!!ri!"!!!J#3!dJ!8!#3"!,`!S$rh2rX![3#P!%#"5J$r!!
"!*!$5!"3!*!%![!#J!"3!#!#J!b!!"J!!C!$!*!$!5F2!!'3!`#3-`%!N!-"!*!
)$EB!)!!!!K`!"[rb!"lrmJ$Xrr)"Z[q3"3!-!!!$!!%!N!-"!*!)$GB!)!!!#F3
!"[rb!"lrmJ$Xrr)"Z[q3"3!-!!!$!#%!BJ!K!')!N!B2%!4`!!!0pJ%Drr)!([r
b!1crmJ'krj!&!!`!!!0c)(4SC5!!#J(J!!%!N!-+!@J'J2pm-LlqCL*i!`UbD3!
'C`JL85!*!*!$"J!!$!!!!`!+!H!!!3#3!`S"D!D!CZ"1G8TZrQCR5N(Zrl!aE[j
Q!"B!N!-'!!!-!!!$!!S"i!!"!*!$#J&S"S#T&DKc)&9)D2q8U&&1G8TZrQCR$!!
"$@J!"J!!$!!!!`!"$@i!"J!!$!!!!`"#p$A[H8IfHb$kN!$d(NHJmamjmime$f,
hN!$d1Rpf%26[,Jp6)IGf5I,J$d'U"(pRXS""J8pf'I,[$3!'!!!-!!!$!!%0)!!
'!!!-!!!$!!%0C3!'!!!-!!!$!*!$!4!3!!)J$3!'!!!-!!!$!%6dj5$f)FEh@""
bmRJ)8#(fhLFrCr,!pL&cpR"J6h@ApY%bC2H3!0G))2CfM[,!pLpe)25I$3!'!!!
-!!!$!$lferCl)+IfX3*3peJ3KIE4"G!V%2Ge6fX)Afd5Ifd3F`B)DQpLS3phEhR
bl`d!!!B!!!`!!!-!5[56!V%)(&13!1TX(b`2EIGFX&d#X3pLD(J(J1T[ChC(pk'
3!#Y&pepRX#4MLQ*e2`d!!!B!!!`!!!-!4Ppe)&d#X3pAFi*6"MN25&3`p-H1$f*
9pVml!VAhAfH`p*mRpf%'Q4N2FIGA)3B2BR,bc`d!"J!!$!!!!`"'Bj!!bf2fFC!
!KIE4$feB)&pLpfGIGB#,9#aIEA2fH!F`+f)"2fGc(bH!hh8m*e2bl`d!"J!!$!!
!!`!#)!d!"J!!$!!!!`!"$3!!"J!!$!!!!`!"$3%!"J!!$!!!!``!!!-!!3e[!!B
!!!`!!!-!4r@9pe"N%-AfhU%KVhN2GaV&pY%#81T[H3phFV"bmX$&lhN()09!e(%
jMb`",2,[1r$3!!B!!!`!!!-!52D[GB)$8JJDS()&3(2&6P4L%()&31C#J&d()(-
'2hNVFrC`e8#'SI,[$3!'!!!-!!!$!$6dN`BrH3aS(b`2@+H1"i""JNI#'3*306m
Yj&eb$h@"mZm0!!B!!!`!!!-!!3d"!!B!!!`!!!-!&[8qE"$d06Kj&'*e121[$3!
!"J!!$!!!!`!"$@i!"J!!$!!!!`"'p*-'$c(c,cMfX26@cb`#X8%(Jr*b""DUpj!
!%epepRX%9IEI,J$eGbX'"2GD%)%JphYm[`d!"J!!$!!!!`"%*[DaJ2GH$fe8%%9
IE39!a[GB'!N4i8#"C-X%(2G8Ke-#YM!VH!pf&2HI$3!!"J!!$!!!!`![*cpj#",
b`2H9pemRUJpR%JJQcfX-4SXB$bMf*IEIBJmbmimTmZ$`d!!'!!!-!!!$!!%0C3!
'!!!-!!!$!%Ae-5*cpR!V%2Ge6fZ1E"#2E@UK32Gh+`B+AhF8!IH1Bj!!phHU#rG
8))(hB8'[HI$3!!B!!!`!!!-!4rB[H3a[GBFrC`pY9"$fI)"L"JJF8j!!9!K3&X[
bi!p8YL#(,h9LG6"i"U3@RhR`d!!!"J!!$!!!!`!8D[E9JJFb@K4[BU(bl`d!"J!
!$!!!!`!"$8N!"J!!$!!!!`")$dN,EhB6mR)#4aN(,b`2B[G5$hGbX'$cAc(c,fX
26@cb`2H9pe#,Ah@T$f)3Ef+K!P$h@"!V(`d!"J!!$!!!!`"%(hJNB)jX%#82Cd&
L"TpfBbEfFI,J$deMpj!!pY9""2GD'2,!eS)8"H&'*e2c[`d!"J!!$!!!!`"%+ep
epRX2@+H1mX"MN!!VH!pf&)G6$bhbd2Gh+epe,b`09!Fi*M`I,!+a$fdIEIBK6`d
!!!B!!!`!!!-!5Z4rEA*rGK$bhbd(J-&#CcVhN!!e#1%C#4pY8r,Jp*mRN!!IH1&
(pY%b$hGbX2+'UP`'1I+I$3!'!!!-!!!$!%FIH1BjmX$,(2Dh2fF2E4pY!@b`*rE
4$hPIG36h8r,!pe-RS()-B`YMQK"Jhh@U#",`d!!'!!!-!!!$!#aG!e"MMhF8J2G
h+epe)&32Gh+`pYFhpYDJpRcbH2,[$3!'!!!-!!!$!!%0E!!'!!!-!!!$!!GBE'P
cF$S0!!!'!!!-!!!$!!%0E`!'!!!-!!!$!%6dC8"J,h8P4fS&-2@+H1mX#"%26@6
,$cMc823[H5(bi!p)AhFIGK6b`#Yi""S@JI,2$3!'!!!-!!!$!%JVAhAfH`F[*i#
"VI,6EfdC"S$c(blc,b`*8B2bFJEfG"%2Gh+`+a"N*mSI,J$dNJpeJBm0!!B!!!`
!!!-!45X3@T&!p$mYTrDa$&pYpYBjMb`)peb`D!e8&XX(1#&T"G$feZaNmX"MN!"
im0!!!!B!!!`!!!-!5IEAL(2fF'UJpLpe)#X3pY@#$NIfebIhB3p-H1$&pYpYBjM
bi!p"U&mX$dN,EhB6mR)*AKR`d!!'!!!-!!!$!%PIG5$fF5*cpR!V%0HK$feMEfF
8!P$hG8pVmX"p"b#9'2,J$e5a#QJJYH%(J#YLm0!!"J!!$!!!!`",+hJ2EApRXJp
L%)%Jpei2Gh+`+a"IB[DK`Jp$TSJ)pjJKpYmX$f,h8JY[GK2bFJpL8V&"N!!Pm0!
!!!B!!!`!!!-!556hN!!VBJ4IG5%#93eNmX#(2"!V&"mRJ$8J49pY"8$&pYpYBjJ
2+%kQaJ%XmZmTm0!!"J!!$!!!!`!,5'&fC5"QG@iK)!d!!!B!!!`!!!-!!3eK!!B
!!!`!!!-!N58)EhB3phYL$hPIGI*rGK#9-3phFVAh8J+a$AS3MhQ#(fhbi!p232G
B%'-"Pb9!*3a"BK"M"Sah$bMUCc#9chAfd6,bN!$ASI,!Bj!!mST@N!$b,hHf)IG
K32H9pe!fpY'A,b,bRbl`d!!'!!!-!!!$$!!!!`#3!`B!!!`!!!-!529&!IH1&(p
Y%bmX$hPIG3aM$hG()3aC%2GlHK"c$hLRM[,!+epepRX#X8(bH!03phEhR`d!"J!
!$!!!!`!"$@m!"J!!$!!!!`!"$3%!"J!!$!!!!`#3!`%3%!!$!%6&pYpYBjMcS2H
4Mb`$Ab`'13ph[hRbi!p*,bHU#K)2H9pe$fXeph$hHa-&-3A3+apY"im0!!B!!!`
!!!-!4I9,%2GB&!e&-J%j#,Ah@T!!pL%)'YmY(hMUBf*8pj!!mSmKmTmZ!255"X`
H+!+d%I$3!!B!!!`!!!-!!3eS!!B!!!`!!!-!*G9!pYpeb`A3B`8kFa!CFP3'2hR
hG[HI,[$3!!B!!!`!!!-!5[9,H!pLE2DrGf5BmYbfFh2fF%peSI,IBQJC!IH1&##
2HB)IEI,!p"0rE@S23e12GD*M,b`(McS2$3!!"J!!$!!!!`!2FflNANGL(bl`d!!
'!!!-!!!$!!!-!!!$!!%0E`!'!!!-!!!$!"AdF5*cpR""DIH3!#82Cemkm0!!!!B
!!!`!!!-!!3d!!!B!!!`!!!-!!3d)!!B!!!`!!!-!Qr55$hGkVb`(-'QA*e-#8)@
[GR2fF#X3KrEHS3j&pLSIEI,!FJphHU"ce8pY$hPIG3A3phYL"bmRJ*9cpR"L"Mp
j!RpY(b`'13(hMUCc#eph"b""E,'3!'$&2+peKe-'dK6hGNQ2,[$3!!!'!!!-!!!
$!#cd)3Mh9"!V&"mRJ'$fG"BJN@S2EAL(2fF)*kVbl`d!"J!!$!!!!`#MpAX6$hP
IG3K[H3pjAh8!P6mR)2Gf-J*3*2H3!'pRCcmX$hPIGI*kS2BK#IGIEH'3!(-P$hL
RMJFS'YmZ!29&$fF5$f*XpV!P!V%0Fj&2,!peJ3mS(hKbmTmZ!29&"2G6!V%14IC
dEfd'pRCcmX![HH%!mSa6Mh@LmTmZm0!!!!B!!!`!!!-!C23G)8!V%%pe2b`2H9p
e$'-2Da(JD2Dh2fF09!(hMUBf*e1!A3&XX&d#X3[hRP+aKi!VBJed'3&XX%peSI,
[$3!!"J!!$!!!!`!"$3%!"J!!$!!!!`!!$!!!!`"ep*d2H9pe#'pj$hPIG3phBb!
V%14ICd')""j8,b`2H9pemRUJpL%(296fdC!!A3+a#rHH8V'(J2GlI,"i$f)A2fF
')KpYiKN')"E,##([,[$3!!B!!!`!!!-!Mr9&"2G6!VH!+h2fIb`!PIGIBU(bh+I
2D`8`piTilb`'13phX6"b$&pY'!pei2Gh+`+a$NAfhLmX![HH%2++9T!!mLBhpYD
SmLmT"MN'"",h9$mZ!24&2bFJe8pR%J+a$h(h95'2,[$3!!!'!!!-!!!$!(,dR3p
jAh8)EhN2GlpjmX"cJKD3!&d2H4J&3$Ab`#8'12Ga3'$h(h8B*e2b`2H9pemRUJp
L%)YIGc!V%-pe4"-J6h@K$h8j&!FrGKJRpRBR8r,[$3!'!!!-!!!$!*!'ee3J!!%
`!#)!N!-3!*!%ed3J!!&5!!SV!3#3"YG!)!!"A!!L!*!$%!#3"0F`)!!"IJ!++`%
!N!-"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%
3%!!#%)-!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!K##!!%
3%!!"%"!!!4!3!!%3%!!"%"!!!K##!!%3%!!#%))!!4!3!!)3JJ!"%"!!!K#$!!%
3%!!"%"!!!K##!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%
3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%
3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!!4!3!!%3%!!"%"!!N!EA'#!
!!BJ!)J#3!a!!N!6A%#!!!DS!$#X"!"!!%!!!e``S!!Td!%3V!3!3!#!!!0E`)!!
"YJ!-+`%!%!!`!!$A1#J!!F)!3LX"!"!!3!!!e[`J!!)L!!`V!3!3!&!!!0EN+!!
#,J!q+`%!%!"J!!$@h#J!!Q`!1#X"!"!!F!!!eY3J!!)%!!`V!3!3!)!!!0E-+!!
#T!!k+`%!%!#3!!!!eX3S!!,H!$iV!3!3!+!!!0Dm+!!$(!!k+`%!%!#`!!$@Y#!
!!K!!$#X"!$!!`!!!eU`S!!X5!()V!3!3!2!!!0DN)!!$9J!-+`%!%!%!N!2@R#J
!#i3!+#X"!"!"%!!!eUJJ!!0q!!`V!3!3!5!!!0Di+!!$LJ!m+`%!%!%`!!$@b#J
!!mB!0#X"!"!"3!!!eYJS!!2k!#`V!3!3!9!!!0F!)!!+qJ!-+`%!%!&J!!$@k#J
!#Yi!(#X"!"!"F!!!eT!!)!!+dJ!-+`%!)!'!!!$@M#J!$1J!FLX"!"!"S!!!eS3
J!!T%!!`V!3!3!E!!!0Cm+!!+#J!k+`%!%!(!!!$@G#J!#F`!2LX"!"!"d!!!eQ`
S!!Ui!"3V!3!3!H!!!0CN)!!*Z!!-+`%!)!(`!!$@A#J!$)i!@LX"!"!#%!!!eP3
J!!0Z!!`V!3!J!L!!!0DB+!!0@J"F+`%!%!*!!!$@`#!!$(`!$#X"!#!#8!!!e`J
S!!`b!%SV!3!3!R!!!0C-)!!$BJ!-+`%!-!+!!!$@d#J!#k`!KLX"!"!#X!!!eN!
J!!QX!!`V!3!3!X!!!0D8+!!*EJ!q+`%!)!,3!!$@2#J!#2!!F#X"!"!!!!%!eZ!
J!!MN!!`V!3!3!"!"!0CJ)!!)cJ!@+`%!%!!J!3$@)#!!"#B!$#X"!"!!-!%!eRJ
S!!3b!"SV!3!3!%!"!0BS)!!%6!!-+`%!%!"3!3$@J#J!"&J!2LX"!"!!B!%!eN3
S!!5@!$BV!3!3!(!"!0D`+!!%c!!b+`%!%!#!!3$@S#!!"2i!$#X"!"!!N!!"!0C
B+!!&#J!k+`%!%!#J!3$@(#J!"83!1LX"!"!!X!%!eK!S!!9q!"JV!3!3!-!"!0B
))!!&PJ!-+`%!%!$3!3$@!#J!"D)!3LX"!"!!i!%!eIJS!!AN!$JV!3!3!2!"!%f
d+!!'(!!m+`%!%!%!!3"0V#J!"PJ!2LX"!"!"%!%!6D3S!!D@!$`V!3!3!5!"!%f
F+!!'dJ!U+`%!%!%`!3"0P#!!"[`!$#X"!"!"3!%!6B`J!!F)!")V!3!3!9!"!%f
J)!!('J!-+`%!%!&J!3"0X#J!"bB!2#X"!"!"F!%!eI`S!!GL!$iV!3!3!B!"!0B
-+!!(S!!i+`%!%!'3!!%!eKJS!!IB!%!V!3!3!D!"!0C)+!!)'!!k+`%!%!'`!3$
@L#J!#&)!3LX"!"!"`!%!eL3S!!L8!$SV!3!3!G!"!0CS+!!+8!!N+`%!%!(J!3"
0J#!!#`B!$#X"!"!"m!%!6AJJ!!PN!!SV!3!!!hS!N!-%!!!*B!#3!`3!!!R+!*!
$!J!!#X`!N!-'!!!-L!#3!`B!!"1`!!#EG(B1!!!"!*!$!U!!!!'J!*!$AQpbH5!
!N!-c!*!&L!&F!"!!N!M#KKe&H(4bBA-J-5ie)+NJ-6Ni05"LH5"#Ef)J6(9MC5!
!N!-I!*!&D!$%!"!!N!M#L3T&H(4bBA-J-5ie!*!$$!#3"BJ"A-+#c-`!N!--!*!
&L!&F`S0993#3!``!N!@)!9c#L-c-!*!$K!!'!*!&"3#H!"N!c33&4(*TGQ8!N!B
&!!8!'3"P"!a%C@CKG@ad)%4TFfX!N!8&!'S!'3#C"!9&DQ9MG!#3"L!!$`"!!#q
J!ZKK!*!&)!!j!#m!N!-J,L`l*!!!d!!!,rpJ)%&0!#"363!k!*!+!3!!!8`'8h9
ZC'&j!*!*"Ne[EQ4KH3#3#3G8G@9cC'&j!*!)#9GPC'jPFf4KH3#3"JK8D(9bFf4
KH3#3"`C'FQPNBAN!N!N)8f&dGA*NBAN!N!F(5Q&ZG@&bH3#3#!K'C@*bG@&bH3#
3"`90BA*MD!#3#J9"F(*TE!#3#J00BAN!N!`%5R9ZC3#3#`4+G@aj!*!,"N&eCh9
cG!#3#3P6CA"dC@eLCA)!N!B(6f0dEf*PFJ#3#!K1EhCPE@*PFJ#3"`K%C@0PE@*
PFJ#3"rrr!!-!N!3X)!!!)!#3!b`J!*!(!8je!*!$%!mJCA4ZFQpKDA0NE'KMCR!
!N!-8!!B!#J!&!!N!N!-$!!3##$d%0`%!!!%!N!-#S!!!!D!!N!0H!!"1(!#f!*!
$(!"H!!&*6P4-!!%!%P088L!!!3!U!!(rrb!!!#3!N!Errb!!N!F$)Irr!!!"L!!
!6BJ#[2rr!!!"G!#3"#C%!: