4.3BSD/usr/contrib/emacs/lisp/doctor.elc
(defun cadr (x) (byte-code "A@‡" [x] 1))
(defun caddr (x) (byte-code "AA@‡" [x] 1))
(defun cddr (x) (byte-code "AA‡" [x] 1))
(defun member (x y) "\
Like memq, but uses equal for comparison" (byte-code "…
 @\"?… A‰ˆ‚ ˆ‡" [y x equal] 4))
(defun random-range (top) "\
Return a random nonnegative integer less than TOP." (byte-code "ÁÂÃ Ä\"\"‡" [top % logand random 777777] 5))
(defun // (x) (byte-code "‡" [x] 1))
(defmacro $ (what) "quoted arg form of doctor-$" (byte-code "ÁÂDD‡" [what doctor-$ quote] 3))
(defun doctor-$ (what) "\
Return the car of a list, rotating the list each time" (byte-code " J@ÄA
C\" Lˆ
+‡" [vv what first ww append] 3))
(defvar doctor-mode-map nil)
(if doctor-mode-map nil (setq doctor-mode-map (make-sparse-keymap)) (define-key doctor-mode-map "
" (quote doctor-read-print)) (define-key doctor-mode-map "
" (quote doctor-ret-or-read)))
(defun doctor-mode nil "\
Major mode for running the Doctor (Eliza) program.
Like Text mode with Auto Fill mode
except that RET when point is after a newline, or LFD at any time,
reads the sentence before point, and prints the Doctor's answer." (interactive) (byte-code "ÃˆÄ ˆÅ ˆÆ!ˆÇ‰ˆÈ‰ˆÉ ˆÊË!ˆÌc‡" [doctor-mode-map major-mode mode-name nil text-mode make-doctor-variables use-local-map doctor-mode "Doctor" turn-on-auto-fill doctor-type (i am the psychotherapist \. ($ please) ($ describe) your ($ problems) \. each time you are finished talking\, type RET twice \.) "
"] 6))
(defun make-doctor-variables nil (byte-code "U À!ˆV ‰ˆU Á!ˆW X Y \"‰ˆU Ã!ˆ ‰ˆU Å!ˆ ‰ˆU Æ!ˆ ‰ˆU Ç!ˆ ‰ˆU È!ˆZ ‰ˆU É!ˆ[ ‰ ˆU Ê!ˆ\\ ‰
ˆU Ë!ˆ] ‰ ˆU Ì!ˆ^ ‰ ˆU Í!ˆ_ ‰
ˆU Î!ˆ` ‰ˆU Ï!ˆa ‰ˆU Ð!ˆb ‰ˆU Ñ!ˆc ‰ˆU Ò!ˆd ‰ˆU Ó!ˆe ‰ˆU Ô!ˆf ‰ˆU Õ!ˆg ‰ˆU Ö!ˆh ‰ˆU ×!ˆi ‰ˆU Ø!ˆj ‰ˆU Ù!ˆk ‰ˆU Ú!ˆl ‰ˆU Û!ˆm ‰ˆU Ü!ˆn ‰ ˆU Ý!ˆo ‰ ˆU p !ˆq ‰ ˆU r !ˆs ‰ ˆU à!ˆt ‰ ˆU á!ˆu ‰!ˆU â!ˆv ‰\"ˆU ã!ˆw ‰#ˆU ä!ˆx ‰$ˆU å!ˆy ‰%ˆU æ!ˆz ‰&ˆU ç!ˆ{ ‰'ˆU è!ˆ| ‰(ˆU é!ˆ} ‰)ˆU ê!ˆ~ ‰*ˆU ë!ˆ ‰+ˆU ì!ˆ€ ‰,ˆU í!ˆ ‰-ˆU î!ˆ‚ ‰.ˆU ï!ˆƒ ‰/ˆU ð!ˆ„ ‰0ˆU ñ!ˆ… ‰1ˆU ò!ˆ† ‰2ˆU ó!ˆ‡ ‰3ˆU ô!ˆˆ ‰4ˆU õ!ˆ‰ ‰5ˆU ö!ˆŠ ‰6ˆU ÷!ˆ‹ ‰7ˆU ø!ˆŒ ‰8ˆU ù!ˆ ‰9ˆU ú!ˆŽ ‰:ˆU û!ˆ ‰;ˆU ü!ˆ ‰<ˆU ý!ˆ‘ ‰=ˆU þ!ˆ’ ‰>ˆU ÿ!ˆ“ ‰?ˆU @ !ˆ” ‰@ˆU A !ˆ• ‰AˆU B !ˆ– ‰BˆU C !ˆ— ‰CˆU D !ˆ ‰DˆU E !ˆ ‰EˆU F !ˆ ‰FˆU G !ˆ ‰GˆU H !ˆ ‰HˆU I !ˆ˜ ‰IˆU J !ˆ ‰JˆU K !ˆ ‰KˆU L !ˆ ‰LˆU M !ˆ ‰MˆU N !ˆ™ ‰NˆU O !ˆ ‰OˆU P !ˆš ‰PˆU Q !ˆ ‰QˆU R !ˆ ‰RˆU S !ˆ ‰SˆU T !ˆ ‰T‡" [monosyllables typos x found nil owner history *debug* inter continue relation fears sure afraidof areyou isrelated arerelated moods maybe whatwhen hello drnk drugs whywant canyou want shortlst famlst huhlst longhuhlst feelings-about random-adjective whysay isee please bye something things describe ibelieve problems bother machlst qlist elist foullst deathlst sexlst neglst beclst shortbeclst thlst remlst toklst states replist stallmanlst schoollst improve elizalst sportslst mathlst zippylst chatlst abuselst abusewords howareyoulst whereoutp subj verb obj feared observation-list repetitive-shortness **mad** rms-flag eliza-flag zippy-flag lover bak lincount *print-upcase* *print-space* howdyflag object make-local-variable "
Your attitude at the end of the session was wholly unacceptable.
Please try to come back next time with a willingness to speak more
freely. If you continue to refuse to talk openly, there is little
I can do to help!
" mapcar (lambda (x) (byte-code "Á@ÂÃ!#ˆÁÃ!ÄÅ!#ˆ@‡" [x put doctor-correction cadr doctor-expansion caddr] 8)) ((theyll they\'ll (they will)) (theyre they\'re (they are)) (hes he\'s (he is)) (he7s he\'s (he is)) (im i\'m (you are)) (i7m i\'m (you are)) (isa is\ a (is a)) (thier their (their)) (dont don\'t (do not)) (don7t don\'t (do not)) (you7re you\'re (i am)) (you7ve you\'ve (i have)) (you7ll you\'ll (i will))) ((well\,) (hmmm \.\.\.\ so\,) (so) (\.\.\.and) (then)) ((continue) (proceed) (go on) (keep going)) ((your relationship with) (something you remember about) (your feelings toward) (some experiences you have had with) (how you feel about)) ((($ whysay) you are ($ afraidof) (// feared) \?) (you seem terrified by (// feared) \.) (when did you first feel ($ afraidof) (// feared) \?)) ((sure) (positive) (certain) (absolutely sure)) ((afraid of) (frightened by) (scared of)) ((are you) (have you been) (have you been)) ((has something to do with) (is related to) (could be the reason for) (is caused by) (is because of)) ((have something to do with) (are related to) (could have caused) (could be the reason for) (are caused by) (are because of)) ((($ areyou) (// found) often \?) (what causes you to be (// found) \?) (($ whysay) you are (// found) \?)) ((maybe) (perhaps) (possibly)) ((what happened when) (what would happen if)) ((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)) ((do you drink a lot of (// found) \?) (do you get drunk often \?) (($ describe) your drinking habits \.)) ((do you use (// found) often \?) (($ areyou) addicted to (// found) \?) (do you realize that drugs can be very harmful \?) (($ maybe) you should try to quit using (// found) \.)) ((($ whysay) (// subj) might ($ want) (// obj) \?) (how does it feel to want \?) (why should (// subj) get (// obj) \?) (when did (// subj) first ($ want) (// obj) \?) (($ areyou) obsessed with (// obj) \?) (why should i give (// obj) to (// subj) \?) (have you ever gotten (// obj) \?)) ((of course i can \.) (why should i \?) (what makes you think i would even want to \?) (i am the doctor\, i can do anything i damn please \.) (not really\, it\'s not up to me \.) (depends\, how important is it \?) (i could\, but i don\'t think it would be a wise thing to do \.) (can you \?) (maybe i can\, maybe i can\'t \.\.\.) (i don\'t think i should do that \.)) ((want) (desire) (wish) (want) (hope)) ((can you elaborate on that \?) (($ please) continue \.) (go on\, don\'t be afraid \.) (i need a little more detail please \.) (you\'re being a bit brief\, ($ please) go into detail \.) (can you be more explicit \?) (and \?) (($ please) go into more detail \?) (you aren\'t being very talkative today!) (is that all there is to it \?) (why must you respond so briefly \?)) ((tell me ($ something) about (// owner) family \.) (you seem to dwell on (// owner) family \.) (($ areyou) hung up on (// owner) family \?)) ((($ whysay) (// sent) \?) (is it because of ($ things) that you say (// sent) \?)) ((($ whysay) that \?) (i don\'t understand \.) (($ thlst)) (($ areyou) ($ afraidof) that \?)) feelings ((feelings about) (aprehensions toward) (thoughts on) (emotions toward)) random ((vivid) (emotionally stimulating) (exciting) (boring) (interesting) (recent) (random) (unusual) (shocking) (embarrassing)) ((why do you say) (what makes you believe) (are you sure that) (do you really think) (what makes you think)) ((i see \.\.\.) (yes\,) (i understand \.) (oh \.)) ((please\,) (i would appreciate it if you would) (perhaps you could) (please\,) (would you please) (why don\'t you) (could you)) ((my secretary will send you a bill \.) (bye bye \.) (see ya \.) (ok\, talk to you some other time \.) (talk to you later \.) (ok\, have fun \.) (ciao \.)) ((something) (more) (how you feel)) ((your plans) (your life) (the people you hang around with) (problems at school) (any hobbies you have) (your sex life) (hangups you have) (your inhibitions) (some problems in your childhood) (some problems at home)) ((describe) (tell me about) (talk about) (discuss) (tell me more about) (elaborate on)) ((i believe) (i think) (i have a feeling) (it seems to me that) (it looks like)) ((problems) (inhibitions) (hangups) (difficulties) (anxieties) (frustrations)) ((does it bother you that) (are you annoyed that) (did you ever regret) (are you sorry) (are you satisfied with the fact that)) ((you have your mind on (// found) \, it seems \.) (you think too much about (// found) \.) (you should try taking your mind off of (// found) \.) (are you a computer hacker \?)) ((what do you think \?) (i\'ll ask the questions\, if you don\'t mind!) (i could ask the same thing myself \.) (($ please) allow me to do the questioning \.) (i have asked myself that question many times \.) (($ please) try to answer that question yourself \.)) ((($ please) try to calm yourself \.) (you seem very excited \. relax \. ($ please) ($ describe) ($ things) \.) (you\'re being very emotional \. calm down \.)) ((($ please) watch your tongue!) (($ please) avoid such unwholesome thoughts \.) (($ please) get your mind out of the gutter \.) (such lewdness is not appreciated \.)) ((this is not a healthy way of thinking \.) (($ bother) you\, too\, may die someday \?) (i am worried by your obssession with this topic!) (did you watch a lot of crime and violence on television as a child \?)) ((($ areyou) ($ afraidof) sex \?) (($ describe) ($ something) about your sexual history \.) (($ please) ($ describe) your sex life \.\.\.) (($ describe) your ($ feelings-about) your sexual partner \.) (($ describe) your most ($ random-adjective) sexual experience \.) (($ areyou) satisfied with (// lover) \.\.\. \?)) ((why not \?) (($ bother) i ask that \?) (why not \?) (why not \?) (how come \?) (($ bother) i ask that \?)) ((is it because (// sent) that you came to me \?) (($ bother) (// sent) \?) (when did you first know that (// sent) \?) (is the fact that (// sent) the real reason \?) (does the fact that (// sent) explain anything else \?) (($ areyou) ($ sure) (// sent) \?)) ((($ bother) i ask you that \?) (that\'s not much of an answer!) (($ inter) why won\'t you talk about it \?) (speak up!) (($ areyou) ($ afraidof) talking about it \?) (don\'t be ($ afraidof) elaborating \.) (($ please) go into more detail \.)) ((($ maybe) ($ things) ($ arerelated) this \.) (is it because of ($ things) that you are going through all this \?) (how do you reconcile ($ things) \?) (($ maybe) this ($ isrelated) ($ things) \?)) ((earlier you said ($ history) \?) (you mentioned that ($ history) \?) (($ whysay) ($ history) \?)) ((is this how you relax \?) (how long have you been smoking grass \?) (($ areyou) ($ afraidof) of being drawn to using harder stuff \?)) ((do you get (// found) often \?) (do you enjoy being (// found) \?) (what makes you (// found) \?) (how often ($ areyou) (// found) \?) (when were you last (// found) \?)) ((i you) (my your) (me you) (you me) (your my) (mine yours) (yours mine) (our your) (ours yours) (we you) (dunno do not know) (no\,) (yes\,) (ya i) (aint am not) (wanna want to) (gimme give me) (gotta have to) (gonna going to) (never not ever) (doesn\'t does not) (don\'t do not) (aren\'t are not) (isn\'t is not) (won\'t will not) (can\'t cannot) (haven\'t have not) (i\'m you are) (ourselves yourselves) (myself yourself) (yourself myself) (you\'re i am) (you\'ve i have) (i\'ve you have) (i\'ll you will) (you\'ll i shall) (i\'d you would) (you\'d i would) (here there) (please) (eh\,) (eh) (oh\,) (oh) (shouldn\'t should not) (wouldn\'t would not) (won\'t will not) (hasn\'t has not)) ((($ describe) your ($ feelings-about) him \.) (($ areyou) a friend of Stallman \?) (($ bother) Stallman is ($ random-adjective) \?) (($ ibelieve) you are ($ afraidof) him \.)) ((($ describe) your (// found) \.) (($ bother) your grades could ($ improve) \?) (($ areyou) ($ afraidof) (// found) \?) (($ maybe) this ($ isrelated) to your attitude \.) (($ areyou) absent often \?) (($ maybe) you should study ($ something) \.)) ((improve) (be better) (be improved) (be higher)) ((($ areyou) ($ sure) \?) (($ ibelieve) you have ($ problems) with (// found) \.) (($ whysay) (// sent) \?)) ((tell me ($ something) about (// found) \.) (($ describe) ($ relation) (// found) \.) (do you find (// found) ($ random-adjective) \?)) ((($ describe) ($ something) about math \.) (($ maybe) your ($ problems) ($ arerelated) (// found) \.) (i do\'nt know much (// found) \, but ($ continue) anyway \.)) ((($ areyou) Zippy \?) (($ ibelieve) you have some serious ($ problems) \.) (($ bother) you are a pinhead \?)) ((($ maybe) we could chat \.) (($ please) ($ describe) ($ something) about chat mode \.) (($ bother) our discussion is so ($ random-adjective) \?)) ((($ please) try to be less abusive \.) (($ describe) why you call me (// found) \.) (i\'ve had enough of you!)) (boring bozo clown clumsy cretin dumb dummy fool foolish gnerd gnurd idiot jerk lose loser louse lousy luse luser moron nerd nurd oaf oafish reek stink stupid tool toolish twit) ((how are you) (hows it going) (hows it going eh) (how\'s it going) (how\'s it going eh) (how goes it) (whats up) (whats new) (what\'s up) (what\'s new) (howre you) (how\'re you) (how\'s everything) (how is everything) (how do you do) (how\'s it hanging) (que pasa) (how are you doing) (what do you say)) (huh remem rthing) (0 . 0) (your partner) 0] 86))
(defun doctor-meaning (x) (byte-code "ÁN‡" [x doctor-meaning] 2))
(defmacro doctor-put-meaning (symb val) "Store the base meaning of a word on the property list" (byte-code "ÂÃDÄ F‡" [symb val put quote (quote doctor-meaning)] 4))
(doctor-put-meaning howdy (quote howdy))
(doctor-put-meaning hi (quote howdy))
(doctor-put-meaning greetings (quote howdy))
(doctor-put-meaning hello (quote howdy))
(doctor-put-meaning tops20 (quote mach))
(doctor-put-meaning tops-20 (quote mach))
(doctor-put-meaning tops (quote mach))
(doctor-put-meaning pdp11 (quote mach))
(doctor-put-meaning computer (quote mach))
(doctor-put-meaning unix (quote mach))
(doctor-put-meaning machine (quote mach))
(doctor-put-meaning computers (quote mach))
(doctor-put-meaning machines (quote mach))
(doctor-put-meaning pdp11s (quote mach))
(doctor-put-meaning foo (quote mach))
(doctor-put-meaning foobar (quote mach))
(doctor-put-meaning multics (quote mach))
(doctor-put-meaning macsyma (quote mach))
(doctor-put-meaning teletype (quote mach))
(doctor-put-meaning la36 (quote mach))
(doctor-put-meaning vt52 (quote mach))
(doctor-put-meaning zork (quote mach))
(doctor-put-meaning trek (quote mach))
(doctor-put-meaning startrek (quote mach))
(doctor-put-meaning advent (quote mach))
(doctor-put-meaning pdp (quote mach))
(doctor-put-meaning dec (quote mach))
(doctor-put-meaning commodore (quote mach))
(doctor-put-meaning vic (quote mach))
(doctor-put-meaning bbs (quote mach))
(doctor-put-meaning modem (quote mach))
(doctor-put-meaning baud (quote mach))
(doctor-put-meaning macintosh (quote mach))
(doctor-put-meaning vax (quote mach))
(doctor-put-meaning vms (quote mach))
(doctor-put-meaning ibm (quote mach))
(doctor-put-meaning pc (quote mach))
(doctor-put-meaning bitching (quote foul))
(doctor-put-meaning shit (quote foul))
(doctor-put-meaning bastard (quote foul))
(doctor-put-meaning damn (quote foul))
(doctor-put-meaning damned (quote foul))
(doctor-put-meaning hell (quote foul))
(doctor-put-meaning suck (quote foul))
(doctor-put-meaning sucking (quote foul))
(doctor-put-meaning sux (quote foul))
(doctor-put-meaning ass (quote foul))
(doctor-put-meaning whore (quote foul))
(doctor-put-meaning bitch (quote foul))
(doctor-put-meaning asshole (quote foul))
(doctor-put-meaning shrink (quote foul))
(doctor-put-meaning pot (quote toke))
(doctor-put-meaning grass (quote toke))
(doctor-put-meaning weed (quote toke))
(doctor-put-meaning marijuana (quote toke))
(doctor-put-meaning acapulco (quote toke))
(doctor-put-meaning columbian (quote toke))
(doctor-put-meaning tokin (quote toke))
(doctor-put-meaning joint (quote toke))
(doctor-put-meaning toke (quote toke))
(doctor-put-meaning toking (quote toke))
(doctor-put-meaning tokin\' (quote toke))
(doctor-put-meaning toked (quote toke))
(doctor-put-meaning roach (quote toke))
(doctor-put-meaning pills (quote drug))
(doctor-put-meaning dope (quote drug))
(doctor-put-meaning acid (quote drug))
(doctor-put-meaning lsd (quote drug))
(doctor-put-meaning speed (quote drug))
(doctor-put-meaning heroine (quote drug))
(doctor-put-meaning hash (quote drug))
(doctor-put-meaning cocaine (quote drug))
(doctor-put-meaning uppers (quote drug))
(doctor-put-meaning downers (quote drug))
(doctor-put-meaning loves (quote loves))
(doctor-put-meaning love (quote love))
(doctor-put-meaning loved (quote love))
(doctor-put-meaning hates (quote hates))
(doctor-put-meaning dislikes (quote hates))
(doctor-put-meaning hate (quote hate))
(doctor-put-meaning hated (quote hate))
(doctor-put-meaning dislike (quote hate))
(doctor-put-meaning stoned (quote state))
(doctor-put-meaning drunk (quote state))
(doctor-put-meaning drunken (quote state))
(doctor-put-meaning high (quote state))
(doctor-put-meaning horny (quote state))
(doctor-put-meaning blasted (quote state))
(doctor-put-meaning happy (quote state))
(doctor-put-meaning paranoid (quote state))
(doctor-put-meaning wish (quote desire))
(doctor-put-meaning wishes (quote desire))
(doctor-put-meaning want (quote desire))
(doctor-put-meaning desire (quote desire))
(doctor-put-meaning like (quote desire))
(doctor-put-meaning hope (quote desire))
(doctor-put-meaning hopes (quote desire))
(doctor-put-meaning desires (quote desire))
(doctor-put-meaning wants (quote desire))
(doctor-put-meaning desires (quote desire))
(doctor-put-meaning likes (quote desire))
(doctor-put-meaning needs (quote desire))
(doctor-put-meaning need (quote desire))
(doctor-put-meaning frustrated (quote mood))
(doctor-put-meaning depressed (quote mood))
(doctor-put-meaning annoyed (quote mood))
(doctor-put-meaning upset (quote mood))
(doctor-put-meaning unhappy (quote mood))
(doctor-put-meaning excited (quote mood))
(doctor-put-meaning worried (quote mood))
(doctor-put-meaning lonely (quote mood))
(doctor-put-meaning angry (quote mood))
(doctor-put-meaning mad (quote mood))
(doctor-put-meaning pissed (quote mood))
(doctor-put-meaning jealous (quote mood))
(doctor-put-meaning afraid (quote fear))
(doctor-put-meaning terrified (quote fear))
(doctor-put-meaning fear (quote fear))
(doctor-put-meaning scared (quote fear))
(doctor-put-meaning frightened (quote fear))
(doctor-put-meaning virginity (quote sexnoun))
(doctor-put-meaning virgins (quote sexnoun))
(doctor-put-meaning virgin (quote sexnoun))
(doctor-put-meaning cock (quote sexnoun))
(doctor-put-meaning cocks (quote sexnoun))
(doctor-put-meaning dick (quote sexnoun))
(doctor-put-meaning dicks (quote sexnoun))
(doctor-put-meaning cunt (quote sexnoun))
(doctor-put-meaning cunts (quote sexnoun))
(doctor-put-meaning prostitute (quote sexnoun))
(doctor-put-meaning condom (quote sexnoun))
(doctor-put-meaning sex (quote sexnoun))
(doctor-put-meaning rapes (quote sexnoun))
(doctor-put-meaning wife (quote family))
(doctor-put-meaning family (quote family))
(doctor-put-meaning brothers (quote family))
(doctor-put-meaning sisters (quote family))
(doctor-put-meaning parent (quote family))
(doctor-put-meaning parents (quote family))
(doctor-put-meaning brother (quote family))
(doctor-put-meaning sister (quote family))
(doctor-put-meaning father (quote family))
(doctor-put-meaning mother (quote family))
(doctor-put-meaning husband (quote family))
(doctor-put-meaning siblings (quote family))
(doctor-put-meaning grandmother (quote family))
(doctor-put-meaning grandfather (quote family))
(doctor-put-meaning maternal (quote family))
(doctor-put-meaning paternal (quote family))
(doctor-put-meaning stab (quote death))
(doctor-put-meaning murder (quote death))
(doctor-put-meaning murders (quote death))
(doctor-put-meaning suicide (quote death))
(doctor-put-meaning suicides (quote death))
(doctor-put-meaning kill (quote death))
(doctor-put-meaning kills (quote death))
(doctor-put-meaning die (quote death))
(doctor-put-meaning dies (quote death))
(doctor-put-meaning died (quote death))
(doctor-put-meaning dead (quote death))
(doctor-put-meaning death (quote death))
(doctor-put-meaning deaths (quote death))
(doctor-put-meaning pain (quote symptoms))
(doctor-put-meaning ache (quote symptoms))
(doctor-put-meaning fever (quote symptoms))
(doctor-put-meaning sore (quote symptoms))
(doctor-put-meaning aching (quote symptoms))
(doctor-put-meaning stomachache (quote symptoms))
(doctor-put-meaning headache (quote symptoms))
(doctor-put-meaning hurts (quote symptoms))
(doctor-put-meaning disease (quote symptoms))
(doctor-put-meaning virus (quote symptoms))
(doctor-put-meaning vomit (quote symptoms))
(doctor-put-meaning vomiting (quote symptoms))
(doctor-put-meaning barf (quote symptoms))
(doctor-put-meaning toothache (quote symptoms))
(doctor-put-meaning hurt (quote symptoms))
(doctor-put-meaning rum (quote alcohol))
(doctor-put-meaning gin (quote alcohol))
(doctor-put-meaning vodka (quote alcohol))
(doctor-put-meaning alcohol (quote alcohol))
(doctor-put-meaning bourbon (quote alcohol))
(doctor-put-meaning beer (quote alcohol))
(doctor-put-meaning wine (quote alcohol))
(doctor-put-meaning whiskey (quote alcohol))
(doctor-put-meaning scotch (quote alcohol))
(doctor-put-meaning fuck (quote sexverb))
(doctor-put-meaning fucked (quote sexverb))
(doctor-put-meaning screw (quote sexverb))
(doctor-put-meaning screwing (quote sexverb))
(doctor-put-meaning fucking (quote sexverb))
(doctor-put-meaning rape (quote sexverb))
4
(doctor-put-meaning raped (quote sexverb))
(doctor-put-meaning kiss (quote sexverb))
(doctor-put-meaning kissing (quote sexverb))
(doctor-put-meaning kisses (quote sexverb))
(doctor-put-meaning screws (quote sexverb))
(doctor-put-meaning fucks (quote sexverb))
(doctor-put-meaning because (quote conj))
(doctor-put-meaning but (quote conj))
(doctor-put-meaning however (quote conj))
(doctor-put-meaning besides (quote conj))
(doctor-put-meaning anyway (quote conj))
(doctor-put-meaning that (quote conj))
(doctor-put-meaning except (quote conj))
(doctor-put-meaning why (quote conj))
(doctor-put-meaning how (quote conj))
(doctor-put-meaning until (quote when))
(doctor-put-meaning when (quote when))
(doctor-put-meaning whenever (quote when))
(doctor-put-meaning while (quote when))
(doctor-put-meaning since (quote when))
(doctor-put-meaning rms (quote rms))
(doctor-put-meaning stallman (quote rms))
(doctor-put-meaning school (quote school))
(doctor-put-meaning schools (quote school))
(doctor-put-meaning skool (quote school))
(doctor-put-meaning grade (quote school))
(doctor-put-meaning grades (quote school))
(doctor-put-meaning teacher (quote school))
(doctor-put-meaning teachers (quote school))
(doctor-put-meaning classes (quote school))
(doctor-put-meaning professor (quote school))
(doctor-put-meaning prof (quote school))
(doctor-put-meaning profs (quote school))
(doctor-put-meaning professors (quote school))
(doctor-put-meaning mit (quote school))
(doctor-put-meaning emacs (quote eliza))
(doctor-put-meaning eliza (quote eliza))
(doctor-put-meaning liza (quote eliza))
(doctor-put-meaning elisa (quote eliza))
(doctor-put-meaning weizenbaum (quote eliza))
(doctor-put-meaning doktor (quote eliza))
(doctor-put-meaning atheletics (quote sports))
(doctor-put-meaning baseball (quote sports))
(doctor-put-meaning basketball (quote sports))
(doctor-put-meaning football (quote sports))
(doctor-put-meaning frisbee (quote sports))
(doctor-put-meaning gym (quote sports))
(doctor-put-meaning gymnastics (quote sports))
(doctor-put-meaning hockey (quote sports))
(doctor-put-meaning lacrosse (quote sports))
(doctor-put-meaning soccer (quote sports))
(doctor-put-meaning softball (quote sports))
(doctor-put-meaning sports (quote sports))
(doctor-put-meaning swimming (quote sports))
(doctor-put-meaning swim (quote sports))
(doctor-put-meaning tennis (quote sports))
(doctor-put-meaning volleyball (quote sports))
(doctor-put-meaning math (quote math))
(doctor-put-meaning mathematics (quote math))
(doctor-put-meaning mathematical (quote math))
(doctor-put-meaning theorem (quote math))
(doctor-put-meaning axiom (quote math))
(doctor-put-meaning lemma (quote math))
(doctor-put-meaning algebra (quote math))
(doctor-put-meaning algebraic (quote math))
(doctor-put-meaning trig (quote math))
(doctor-put-meaning trigonometry (quote math))
(doctor-put-meaning trigonometric (quote math))
(doctor-put-meaning geometry (quote math))
(doctor-put-meaning geometric (quote math))
(doctor-put-meaning calculus (quote math))
(doctor-put-meaning arithmetic (quote math))
(doctor-put-meaning zippy (quote zippy))
(doctor-put-meaning zippy (quote zippy))
(doctor-put-meaning pinhead (quote zippy))
(doctor-put-meaning chat (quote chat))
(defun doctor nil "\
Switch to *doctor* buffer and start giving psychotherapy." (interactive) (byte-code "ÀˆÁÂ!ˆÃ ‡" [nil switch-to-buffer "*doctor*" doctor-mode] 3))
(defun doctor-ret-or-read (arg) "\
Insert a newline if preceding character is not a newline,
Otherwise call the Doctor to parse preceding sentence" (interactive "*p") (byte-code "ÁˆhÂUƒ
à ‚ Ä!‡" [arg nil 10 doctor-read-print newline] 3))
(defun doctor-read-print nil "\
top level loop" (interactive) (byte-code "ÃˆÄ Åcˆ T‰ˆÆ!ˆÅcˆ‰)‡" [sent lincount bak nil doctor-readin "
" doctor-doc] 4))
(defun doctor-readin nil "\
Read a sentence. Return it as a list of words" (byte-code "ÁÂÃ!ˆm?… ÄÅ C\"‰ˆ‚ ˆ)‡" [sentence nil backward-sentence 1 append doctor-read-token] 6))
(defun doctor-read-token nil "\
read one word from buffer" (byte-code "ÀÁÂ`ÃÄ!ˆ`\"!!ÅÆ!ˆ‡" [intern downcase buffer-substring forward-word 1 re-search-forward "\\Sw*"] 7))
(defun doctor-doc (sent) (byte-code "ËÌ\"ƒ
ÍÎ!‚~Ï \"ƒ ÍÐ!‚~ÏÑ\"†% @Ò>ƒ0 ÍÓÔ!!‚~@Õ=…< Ö!
>ƒM Ö!‰ˆÍÓ×!!‚~@Ø=ƒ\\ ÙÖ!!‚~ËÚ\"ƒ ÍÛÄÜ ÝÅÜ
ÞÇßÜàáâÜÞãäå æçèéåÞêëìíî&\"!‚~ …~ï!ƒ¢ ð \"‚£ ñˆGòVƒ± ó!‚² ñˆôõ
\"!‰ˆö>?…Î ÷>?…Î ø>…× õù\"‰ˆË@ú\"ƒå û ‚~GüWƒý@!þ=ƒú ÿ ‚ …@ ‚~ …~ø>ƒ õA \"‰‚ ñˆB !‰ˆ@C =…6Ö!D =ƒuE F G !!ƒOÍH !‚rE F ü!!ƒhÍI !ˆJ ‚r …rÍK !‚~L M !!‡" [sent howareyoulst abusewords found subj verb obj object owner t replist equal (foo) doctor-type (bar! ($ please) ($ continue)) member (i\'m ok \. ($ describe) yourself \.) ((good bye) (see you later) (i quit) (so long) (go away) (get lost)) (bye halt break quit done exit goodbye bye\, stop pause goodbye\, stop pause) doctor-$ bye you cadr abuselst whatmeans doctor-def (parse) list = ", " "
" phrase "," noun form current keyword is ", " most recent possessive sentence used was "..." (// bak) doctor-defq doctor-define nil 12 doctor-shorten doctor-correct-spelling doctor-replace me i am ((am are)) yow doctor-zippy 2 doctor-meaning howdy doctor-howdy doctor-short ((me i)) doctor-fixup do not zerop random-range 3 (are you ($ afraidof) that \?) (don\'t tell me what to do \. i am the psychiatrist here!) doctor-rthing (($ whysay) that i shouldn\'t (cddr sent) \?) doctor-go doctor-wherego] 50))
(defun doctor-correct-spelling (sent) "\
correct the spelling and expand each word in sentence" (byte-code "ƒ ÁÂÃÄ\"\"‚ Ň" [sent apply append mapcar (lambda (word) (if (memq word typos) (get (get word (quote doctor-correction)) (quote doctor-expansion)) (list word))) nil] 5))
(defun doctor-shorten (sent) "\
Make a sentence managably short using a few hacks" (byte-code "ÄÄÆ
…2
@ >‰ˆ… GÇVƒ* È !
‰‚.
A‰ˆ‚ ˆ +‡" [foo retval temp sent nil t (because but however besides anyway until while that except why how) 3 doctor-fixup] 4))
(defun doctor-define (sent found) (byte-code "Æ Ç
$ˆÈ !…) É !?…) …) Ê !…) Ë ÊÊ !#…)
‡" [sent found nil subj object t doctor-svo 1 doctor-nounp doctor-pronounp doctor-meaning put] 9))
(defun doctor-defq (sent) "\
Set global var found to first keyword found in sentence SENT" (byte-code " ‰ˆÄ
…\"
@ >ƒ
@ ‰‚
A‰ˆ‚ )ˆ‡" [found nil temp sent (means applies mean refers refer related similar defined associated linked like same)] 3))
(defun doctor-def (x) (byte-code "ÂÃÄÅÆÇ!ÈÉ&!ˆ ‡" [x nil doctor-type list the word means doctor-meaning to me] 10))
(defun doctor-forget nil "\
Delete the last element of the history list" (byte-code "ÁÁ!A!‰‡" [history reverse] 4))
(defun doctor-query (x) "\
Prompt for a line of input from the minibuffer until a noun or a
verb word is seen. Put dialogue in buffer." (byte-code "ÄÅ
!ÆPÄ ?…] ?…% ÇÈ É !È$ˆÊ ‰ˆ‚ ˆ…, ?…Y Ë@!ƒ= @‰‚U Ì@!ƒQ ÍÍ
Î\"@\"‰‚U A‰ˆ‚& ˆ‚
ˆ +‡" [a prompt x retval nil doctor-make-string " what ? " insert 10 read-string doctor-readin doctor-nounp doctor-verbp doctor-build " "] 12))
(defun doctor-subjsearch (sent key type) "\
Search for the subject of a sentence SENT, looking for the noun closest to
and preceding KEY by at least TYPE words. Set global variable subj to the
subject noun, and return the portion of the sentence following it" (byte-code "Ç G
>G #ÈV… É 8!?…! S‰ˆ‚
ˆÈVƒ6 8‰ˆÊT \"‚@
…@ ˉˆ)‡" [i sent key type subj t nil - -1 doctor-nounp nthcdr you] 5))
(defun doctor-nounp (x) "\
Returns t if the symbol argument is a noun" (byte-code "Á!† Â!† ÃÄ\"† Å!† Æ!?‡" [x doctor-pronounp doctor-verbp equal not doctor-prepp doctor-modifierp] 6))
(defun doctor-pronounp (x) "\
Returns t if the symbol argument is a pronoun" (byte-code "Á>‡" [x (i me mine myself we us ours ourselves ourself you yours yourself yourselves he him himself she hers herself it that those this these things thing they them themselves theirs anybody everybody somebody anyone everyone someone anything something everything)] 2))
(mapcar (function (lambda (x) (put x (quote doctor-sentence-type) (quote verb)))) (quote (abort aborted aborts ask asked asks am applied applies apply are associate associated ate be became become becomes becoming been being believe belived believes bit bite bites bore bored bores boring bought buy buys buying call called calling calls came can caught catch come contract contracted contracts control controlled controls could croak croaks croaked cut cuts dare dared define defines dial dialed dials did die died dies dislike disliked dislikes do does drank drink drinks drinking drive drives driving drove dying eat eating eats expand expanded expands expect expected expects expel expels expeled expelled explain explained explains fart farts feel feels felt fight fights find finds finding forget forgets forgot fought found fuck fucked fucking fucks gave get gets getting give gives go goes going gone got gotten had harm harms has hate hated hates have having hear heard hears hearing help helped helping helps hit hits hope hoped hopes hurt hurts implies imply is join joined joins jump jumped jumps keep keeping keeps kept kill killed killing kills kiss kissed kisses kissing knew know knows laid lay lays let lets lie lied lies like liked likes liking listen listens login look looked looking looks lose losing lost love loved loves loving luse lusing lust lusts made make makes making may mean means meant might move moved moves moving must need needed needs order ordered orders ought paid pay pays pick picked picking picks placed placing prefer prefers put puts ran rape raped rapes read reading reads recall receive received receives refer refered referred refers relate related relates remember remembered remembers romp romped romps run running runs said sang sat saw say says screw screwed screwing screws scrod see sees seem seemed seems seen sell selling sells send sendind sends sent shall shoot shot should sing sings sit sits sitting sold studied study take takes taking talk talked talking talks tell tells telling think thinks thought told took tooled touch touched touches touching transfer transfered transfers transmit transmits transmitted type types types typing walk walked walking walks want wanted wants was watch watched watching went were will wish would work worked works write writes writing wrote use used uses using)))
(defun doctor-verbp (x) (byte-code "9ƒ
ÁNÂ=‚ Ç" [x doctor-sentence-type verb nil] 2))
(defun doctor-plural (x) "\
form the plural of the word argument" (byte-code "Ã !ÄÅÆOÇ\"ƒ( ÄÈÅOÇ\"ƒ ÉÊP!‚%
…% ‚F ÄÅÆOË\"ƒ= ÉÌÅOÍP!‚F
…F ÉÇP!)‡" [foo x t doctor-make-string string-equal -1 nil "s" -2 intern "es" "y" 0 "ies"] 9))
(defun doctor-setprep (sent key) (byte-code " >ÆÇ
!!ƒ& ÈÉ
!!‰ˆƒ ‚#
…# Ê‚S ËÇ
!!ƒN ÈÉ
!!‰ˆƒF ÌÌÇ
!Í\"\"‚K
…K Ê‚S
…S Ê*‡" [val nil foo key sent t doctor-prepp cadr doctor-getnoun cddr something doctor-articlep doctor-build " "] 13))
(defun doctor-getnoun (x) (byte-code "?ƒ É‚€ Ä!ƒ ‰‚€ GÅ=ƒ7 Æ@‰!ƒ+ ‚2
…2 Ç !‰‚€ @È=ƒH ÉÊËA!\"‚€ Ì@!ƒV ËA!‚€ Æ@!?ƒx ÉÉÍ@ÎÏ@@BC\"\"AÐ\"ËA!\"‚€
…€ @‰‡" [x object t something atom 1 doctor-nounp doctor-query to doctor-build to\ doctor-getnoun doctor-prepp assq append ((a . this) (some . this) (one . that)) " "] 16))
(defun doctor-modifierp (x) (byte-code "Á!† Â!† Ã!‡" [x doctor-adjectivep doctor-adverbp doctor-othermodifierp] 4))
(defun doctor-adjectivep (x) (byte-code "Á!†! Â!†! Ã!†! Ä!†! Å!†! Æ!‡" [x numberp doctor-nmbrp doctor-articlep doctor-colorp doctor-sizep doctor-possessivepronounp] 7))
(defun doctor-adverbp (xx) (byte-code "ÁÂ!ÃÄOÅ\"‡" [xx string-equal doctor-make-string -2 nil "ly"] 5))
(defun doctor-articlep (x) (byte-code "Á>‡" [x (the a an)] 2))
(defun doctor-nmbrp (x) (byte-code "Á>‡" [x (one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen twenty thirty forty fifty sixty seventy eighty ninety hundred thousand million billion half quarter first second third fourth fifth sixth seventh eighth nineth tenth)] 2))
(defun doctor-colorp (x) (byte-code "Á>‡" [x (beige black blue brown crimson gray grey green orange pink purple red tan tawny violet white yellow)] 2))
(defun doctor-sizep (x) (byte-code "Á>‡" [x (big large tall fat wide thick small petite short thin skinny)] 2))
(defun doctor-possessivepronounp (x) (byte-code "Á>‡" [x (my your his her our their)] 2))
(defun doctor-othermodifierp (x) (byte-code "Á>‡" [x (all also always amusing any anyway associated awesome bad beautiful best better but certain clear ever every fantastic fun funny good great gross growdy however if ignorant less linked losing lusing many more much never nice obnoxious often poor pretty real related rich similar some stupid super superb terrible terrific too total tubular ugly very)] 2))
(defun doctor-prepp (x) (byte-code "Á>‡" [x (about above after around as at before beneath behind beside between by for from in inside into like near next of on onto over same through thru to toward towards under underneath with without)] 2))
(defun doctor-remember (thing) (byte-code "?ƒ C‰‚
… à C\"‰‡" [history thing t append] 3))
(defun doctor-type (x) (byte-code "Á!‰ˆÂÃ!!‡" [x doctor-fix-2 doctor-txtype doctor-assm] 4))
(defun doctor-fixup (sent) (byte-code "ÁÂ@ÁÃ@@DC\"\"AA\"‰ˆÄ!‡" [sent append assq ((me i) (him he) (her she) (them they) (okay) (well) (sigh) (hmm) (hmmm) (hmmmm) (hmmmmm) (gee) (sure) (great) (oh) (fine) (ok) (no)) doctor-fix-2] 7))
(defun doctor-fix-2 (sent) (byte-code " …ç @Â=… ÃÄ!!ƒ ÅÆ\"‚ã @Ç=ƒS Ä!È>ƒ3 ÅAÉ\"‚P Ä!Ê>ƒC ÅAË\"‚P Ä!Ì>…P ÅAÍ\"‚Þ Î@Æ\"ƒ‹ Ä!Ï>ƒk ÅAÐ\"‚ˆ Ä!Ñ>ƒ{ ÅAÒ\"‚ˆ Ä!Ó>…ˆ ÅAË\"‚Þ Ã@!…¡ Ä!Æ=…¡ ÃÔ!@!?ƒ¬ ÅAÂ\"‚Þ @Õ=…¼ Ö×ØÄ!!!!ƒÆ ÅÙ\"‚Þ @Ù=…× Ö×ØÄ!!!!?…Þ ÅÕ\"ˆA‰ˆ‚ ˆ )‡" [foo sent me doctor-verbp cadr rplaca i you (am be been is) are (has) have (was) were equal (are is be been) am (were) was (has) cddr a doctor-vowelp string-to-char doctor-make-string an] 34))
(defun doctor-vowelp (x) (byte-code "Á>‡" [x (97 101 105 111 117)] 2))
(defun doctor-replace (sent rlist) "\
Replaces any element of SENT that is the car of a replacement element
pair in RLIST" (byte-code "ÃÄÅÆ
\"\"‡" [x rlist sent apply append mapcar (lambda (x) (byte-code "Â \"†
DA‡" [x rlist assq] 3))] 5))
(defun doctor-wherego (sent) (byte-code "?ƒ ÃÄ!‚: Å@!?ƒ- ÆÇÈÉ!!ƒ# ÊA!‚) …) A!‚: …: @‰ˆÅ@!‡" [sent t found doctor-$ whereoutp doctor-meaning doctor-wherego zerop random-range 2 reverse] 8))
(defun doctor-svo (sent key type mem) "\
Find subject, verb and object in sentence SENT with focus on word KEY.
TYPE is number of words preceding KEY to start looking for subject. MEM is
t if results are to be put on doctor's memory stack. Return is in global
variables subj, verb and object" (byte-code "Ê
#†
‰ˆË@!?… A…% A‰ˆ‚ ˆ@‰ˆÌA!‰ˆÍ=ƒB Ή‚M Î=…M ͉ ˆ …[ Ï E!)‡" [foo sent key type mem nil verb obj object subj doctor-subjsearch doctor-verbp doctor-getnoun i me doctor-remember] 7))
(defun doctor-possess (sent key) "\
Set possessive in SENT for keyword KEY. Hack on previous word, setting
global variable owner to possibly correct result" (byte-code "Å G
>GÆ#ÇWƒ È‚ 8É !†' ÊËÌ !ÍÎO\"ƒ. ‚/ ȉ*‡" [i sent key prev owner - 1 0 your doctor-possessivepronounp string-equal "s" doctor-make-string -1 nil] 8))
(defun doctor-txtype (ans) "\
Output to buffer a list of symbols or strings as a sentence" (byte-code " ‰ˆÅÆ \"ˆÇc‡" [*print-upcase* t *print-space* nil ans mapcar doctor-type-symbol "
"] 3))
(defun doctor-type-symbol (word) "\
Output a symbol to the buffer with some fancy case and spacing hacks" (byte-code "Ç!‰ˆÈÉ\"ƒ ʉ‚ ƈ ƒ, Ë!‰ˆ
ƒ( Ìc‚) Æ‚- ƈÍÎ\"†7
?ƒ? c‚G …G ÏÐ\"ˆi VƒV Ñ
\"‚W ƈÍÒ\" ‰‡" [word *print-upcase* *print-space* t fill-column auto-fill-hook nil doctor-make-string string-equal "i" "I" capitalize " " string-match "^[.,;:?! ]" insert 32 apply "[.?!]$"] 9))
(defun doctor-build (str1 str2) "\
Make a symbol out of the concatenation of the two non-list arguments" (byte-code "?ƒ ‚/ ?ƒ ‚/ Ä!… Ä !ƒ* ÅÆ!Æ !P!‚/
…/ ‡" [str1 str2 t nil atom intern doctor-make-string] 7))
(defun doctor-make-string (obj) (byte-code ";ƒ ‚% 9ƒ Â!‚% Ã!ƒ Ä!‚% …% Ň" [obj t symbol-name numberp int-to-string ""] 4))
(defun doctor-concat (x y) "\
like append, but force atomic arguments to be lists" (byte-code "Â… Ã!ƒ C‚ … Ã !ƒ C‚! \"‡" [x y append atom] 5))
(defun doctor-assm (proto) (byte-code "?ƒ ‚5 Ã!ƒ C‚5 Ã@!ƒ% @ÄA!B‚5
…5 ÅÄÆ@!!ÄA!\"‡" [proto nil t atom doctor-assm doctor-concat eval] 9))
(defun doctor-go (destination) "\
Call a doctor- function" (byte-code "ÁÂÃÄ!P!!‡" [destination funcall intern "doctor-" doctor-make-string] 5))
(defun doctor-desire1 nil (byte-code "ÀÁÂ!!‡" [doctor-go doctor-$ whereoutp] 3))
(defun doctor-huh nil (byte-code "GÂWƒ ÃÄÅ!!‚ … ÃÄÆ!!‡" [sent t 9 doctor-type doctor-$ huhlst longhuhlst] 5))
(defun doctor-rthing nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ thlst] 3))
(defun doctor-remem nil (byte-code "?ƒ
Á ‚ ÂÃÄ!!‡" [history doctor-huh doctor-type doctor-$ remlst] 5))
(defun doctor-howdy nil (byte-code "?ƒ ÂÃ!ˆ ‰‚ … ÂÄ!ˆÂÅ!‡" [howdyflag t doctor-type (($ hello) what brings you to see me \?) (($ ibelieve) we\'ve introduced ourselves already \.) (($ please) ($ describe) ($ things) \.)] 4))
(defun doctor-when nil (byte-code " >GÃWƒ Ä ‚\"
…\" >A‰ˆÅ !‰ˆÆÇ!‡" [found sent t 3 doctor-short doctor-fixup doctor-type (($ whatwhen) (// sent) \?)] 4))
(defun doctor-conj nil (byte-code " >GÄWƒ Å ‚@
…@ >A‰ˆÆ !‰ˆ @Ç=ƒ3 ÈÉ!ˆ A B‰‚@
…@ Ê !ˆÈËÌ!!‡" [found sent t things 4 doctor-short doctor-fixup of doctor-type (are you ($ sure) that is the real reason \?) doctor-remember doctor-$ beclst] 7))
(defun doctor-short nil (byte-code "@ SUƒ ÅAT\"‚
… ÅÆ\"ˆÇ \"ˆAÈVƒ? ?ƒ5 ÉÊ!ˆ
‰‚<
…< ÉË!‚}
…} Ì ÍÎ!\"ƒR ÉÏ!‚} Ì ÍÐ!\"ƒc ÉÑÒ!!‚} Ì ÍÓ!\"ƒt ÉÑÔ!!‚}
…} ÉÑÕ!!‡" [repetitive-shortness lincount t **mad** sent rplacd 1 rplaca 6 doctor-type (($ areyou) just trying to see what kind of things i have in my vocabulary \? please try to carry on a reasonable conversation!) (i give up \. you need a lesson in creative writing \.\.\.) equal doctor-assm (yes) (($ isee) ($ inter) ($ whysay) this is so \?) (because) doctor-$ shortbeclst (no) neglst shortlst] 19))
(defun doctor-alcohol nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ drnk] 3))
(defun doctor-desire nil (byte-code "
>GÇWƒ ÈÉÊ !Ë\"!‚k Ì!Í>ƒ> ÎÏÐA\"\"ˆÑ
Ë $ˆÒ ÓÔ
F!ˆÕÖ×!!‚k Ì!Ø=?ƒR ÈÉÊ !Ë\"!‚k …k Ñ
Ë $ˆÒ ÓÔ
F!ˆÕÖ×!!)‡" [foo found sent nil subj obj t 2 doctor-go doctor-build doctor-meaning 1 cadr (a an) rplacd append (to have) doctor-svo doctor-remember would like doctor-type doctor-$ whywant to] 20))
(defun doctor-drug nil (byte-code "ÁÂÃ!!ˆÄÅÆE!‡" [found doctor-type doctor-$ drugs doctor-remember you used] 6))
(defun doctor-toke nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ toklst] 3))
(defun doctor-state nil (byte-code "ÁÂÃ!!ˆÄÅÆE!‡" [found doctor-type doctor-$ states doctor-remember you were] 6))
(defun doctor-mood nil (byte-code "ÁÂÃ!!ˆÄÅÆE!‡" [found doctor-type doctor-$ moods doctor-remember you felt] 6))
(defun doctor-fear nil (byte-code "Ã
\"‰ˆÄÅÆ!!ˆÇÈÉÊËÌ%!‡" [feared sent found doctor-setprep doctor-type doctor-$ fears doctor-remember list you were afraid of] 10))
(defun doctor-hate nil (byte-code "Ä Å
$ˆÆ>ƒ Ç ˆÈ ‚) É Ê\"ƒ\" ËÌ!‚)
…) ËÍ!‡" [sent found t subj doctor-svo 1 not doctor-forget doctor-huh equal you doctor-type (why do you (// verb) (// obj) \?) (($ whysay) (list subj verb obj))] 7))
(defun doctor-symptoms nil (byte-code "ÀÁ!‡" [doctor-type (($ maybe) you should consult a doctor of medicine\, i am a psychiatrist \.)] 2))
(defun doctor-hates nil (byte-code "Ã Ä
$ˆÅ ‡" [sent found t doctor-svo 1 doctor-hates1] 5))
(defun doctor-hates1 nil (byte-code "ÀÁ!‡" [doctor-type (($ whysay) (list subj verb obj))] 2))
(defun doctor-loves nil (byte-code "Ã Ä
$ˆÅ ‡" [sent found t doctor-svo 1 doctor-qloves] 5))
(defun doctor-qloves nil (byte-code "ÀÁ!‡" [doctor-type (($ bother) (list subj verb obj) \?)] 2))
(defun doctor-love nil (byte-code "È É
$ˆÊ>ƒ Ë ˆÌ ‚y Í>ƒ Î ‚y
…y Ï Ð\"…. щˆÏ Ò\"ƒU ‰ˆÏ
Ó\"ƒO Ô‰ˆË ˆÕÖ!‚R Õ×!‚y Ï Ø\"ƒb ÙÚ!‚y
…y Ë ˆÛ‰ˆÜÝ\"‰ˆÞ ‡" [sent found t object subj lover obj verb doctor-svo 1 not doctor-forget doctor-huh to doctor-hates1 equal something (this person you love) you (this person you love) (your partner) doctor-type (with whom are you in love \?) (($ please) ($ describe) ($ relation) (// lover) \.) i doctor-txtype (we were discussing you!) someone doctor-build s doctor-qloves] 17))
(defun doctor-mach nil (byte-code "Á!‰ˆÂÃÄ!!‡" [found doctor-plural doctor-type doctor-$ machlst] 4))
(defun doctor-sexnoun nil (byte-code "À ‡" [doctor-sexverb] 2))
(defun doctor-sexverb nil (byte-code "Á>† Â>† Ã>ƒ Ä ‚ ÅÆÇ!!‡" [sent me myself i doctor-foul doctor-type doctor-$ sexlst] 4))
(defun doctor-death nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ deathlst] 3))
(defun doctor-foul nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ foullst] 3))
(defun doctor-family nil (byte-code " \"ˆÃÄÅ!!‡" [sent found doctor-possess doctor-type doctor-$ famlst] 4))
(defun doctor-rms nil (byte-code "ƒ ÂÃÄ!!‚ … ‰ˆÂÅ!‡" [rms-flag t doctor-type doctor-$ stallmanlst (do you know Stallman \?)] 4))
(defun doctor-school nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ schoollst] 3))
(defun doctor-eliza nil (byte-code "ƒ ÂÃÄ!!‚ … ‰ˆÂÅ!‡" [eliza-flag t doctor-type doctor-$ elizalst ((// found) \? hah ! ($ please) ($ continue) \.)] 4))
(defun doctor-sports nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ sportslst] 3))
(defun doctor-math nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ mathlst] 3))
(defun doctor-zippy nil (byte-code "ƒ ÂÃÄ!!‚ … ‰ˆÂÅ!‡" [zippy-flag t doctor-type doctor-$ zippylst (yow! are we interactive yet \?)] 4))
(defun doctor-chat nil (byte-code "ÀÁÂ!!‡" [doctor-type doctor-$ chatlst] 3))