Current File : //usr/local/share/emacs/27.2/lisp/play/doctor.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'doc// #[(x) "\207" [x] 1])
#@30 Quoted arg form of doctor-$.
(defalias 'doc$ '(macro . #[(what) "\301\302DD\207" [what doctor-$ quote] 3 (#$ . 447)]))
#@56 Return the car of a list, rotating the list each time.
(defalias 'doctor-$ #[(what) "J\211@\304 A\nC\" L\210\n+\207" [what vv first ww append] 4 (#$ . 573)])
(defvar doctor-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "\n" doctor-read-print "
" doctor-ret-or-read] 4))
(defvar doctor-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [doctor-mode-hook variable-documentation put "Hook run after entering Doctor mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp doctor-mode-map definition-name doctor-mode] 4)
(defvar doctor-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [doctor-mode-abbrev-table doctor-mode-map variable-documentation put purecopy "Keymap for `doctor-mode'." boundp doctor-mode-syntax-table definition-name doctor-mode (lambda (#1=#:def-tmp-var) (defvar doctor-mode-syntax-table #1#)) make-syntax-table "Syntax table for `doctor-mode'." (lambda (#1#) (defvar doctor-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `doctor-mode'." derived-mode-parent text-mode] 5)
#@409 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.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `doctor-mode-hook', as the final or penultimate step
during initialization.
\{doctor-mode-map}
(defalias 'doctor-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324 \325\"\204V !=\204V \326 \325!C#\210\327 !\210\330\f!\210 !\331 \210\332 \210\333\334!\210\335c\210)\336\337!\207" [delay-mode-hooks major-mode mode-name doctor-mode-map doctor-mode-syntax-table parent make-local-variable t text-mode doctor-mode "Doctor" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table make-doctor-variables turn-on-auto-fill doctor-type (i am the psychotherapist \. (doc$ doctor--please) (doc$ doctor--describe) your (doc$ doctor--problems) \. each time you are finished talking\, type RET twice \.) "\n" run-mode-hooks doctor-mode-hook doctor-mode-abbrev-table local-abbrev-table] 6 (#$ . 2053) nil])
(defalias 'make-doctor-variables #[nil "\306\300!\210\307\310\311\"\306\301!\210\312\306\302!\210\312\306\303!\210\312\306\304!\210\312\306\305!\210\313\306\314!\210\315\f\306\316!\210\317\306\320!\210\321\306\322!\210\323\306\324!\210\325\306\326!\210\327\306\330!\210\331\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\306\346!\210\347&\306\350!\210\351(\306\352!\210\353*\306\354!\210\355,\306\356!\210\357.\306\360!\210\3610\306\362!\210\3632\306\364!\210\3654\306\366!\210\3676\306\370!\210\3718\306\372!\210\373:\306\374!\210\375<\306\376!\210\377>\306\201@ !\210\201r @\306\201A !\210\201s A\306\201B !\210\201t B\306\201C !\210\201u C\306\201D !\210\201v D\306\201E !\210\201w E\306\201F !\210\201x F\306\201G !\210\201y G\306\201H !\210\201z H\306\201I !\210\201{ I\306\201J !\210\201| J\306\201K !\210\201} K\306\201L !\210\201~ L\306\201M !\210\201 M\306\201N !\210\201\200 N\306\201O !\210\201\201 O\306\201P !\210\201\202 P\306\201Q !\210\201\203 Q\306\201R !\210\201\204 R\306\201S !\210\201\205 S\306\201T !\210\201\206 T\306\201U !\210\201\207 U\306\201V !\210\201\210 V\306\201W !\210\201\211 W\306\201X !\210\201\212 X\306\201Y !\210\201\213 Y\306\201Z !\210\201\214 Z\306\201[ !\210\201\215 [\306\201\\ !\210\201\216 \\\306\201] !\210\201\217 ]\306\201^ !\210\201\220 ^\306\201_ !\210\201\221 _\306\201` !\210\201\222 `\306\201a !\210\312a\306\201b !\210\312b\306\201c !\210\312c\306\201d !\210\312d\306\201e !\210\201\223 e\306\201f !\210\312f\306\201g !\210\312g\306\201h !\210\312h\306\201i !\210\312i\306\201j !\210\312j\306\201k !\210\201\224 k\306\201l !\210\312l\306\201m !\210\201\225 m\306\201n !\210\312n\306\201o !\210\312o\306\201p !\210\312p\306\201q !\210\312\211q\207" [doctor--typos doctor-sent doctor-found doctor-owner doctor--history doctor--inter make-local-variable mapcar #[(x) "\301@\302A@#\210\301A@\303AA@#\210@\207" [x put doctor-correction doctor-expansion] 4] ((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))) nil ((well\,) (hmmm \.\.\.\ so\,) (so) (\.\.\.and) (then)) doctor--continue ((continue) (proceed) (go on) (keep going)) doctor--relation ((your relationship with) (something you remember about) (your feelings toward) (some experiences you have had with) (how you feel about)) doctor--fears (((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?) (you seem terrified by (doc// doctor--feared) \.) (when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?)) doctor--sure ((sure) (positive) (certain) (absolutely sure)) doctor--afraidof ((afraid of) (frightened by) (scared of)) doctor--areyou ((are you) (have you been) (have you been)) doctor--isrelated ((has something to do with) (is related to) (could be the reason for) (is caused by) (is because of)) doctor--arerelated ((have something to do with) (are related to) (could have caused) (could be the reason for) (are caused by) (are because of)) doctor--moods (((doc$ doctor--areyou) (doc// doctor-found) often \?) (what causes you to be (doc// doctor-found) \?) ((doc$ doctor--whysay) you are (doc// doctor-found) \?)) doctor--maybe ((maybe) (perhaps) (possibly)) doctor--whatwhen ((what happened when) (what would happen if)) doctor--hello ((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)) doctor--drnk ((do you drink a lot of (doc// doctor-found) \?) (do you get drunk often \?) ((doc$ doctor--describe) your drinking habits \.)) doctor--drugs ((do you use (doc// doctor-found) often \?) ((doc$ doctor--areyou) addicted to (doc// doctor-found) \?) (do you realize that drugs can be very harmful \?) ((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.)) doctor--whywant (((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?) (how does it feel to want \?) (why should (doc// doctor-subj) get (doc// doctor-obj) \?) (when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?) ((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?) (why should i give (doc// doctor-obj) to (doc// doctor-subj) \?) (have you ever gotten (doc// doctor-obj) \?)) doctor--canyou ((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 \.)) doctor--want ((want) (desire) (wish) (want) (hope)) doctor--shortlst ((can you elaborate on that \?) ((doc$ doctor--please) continue \.) (go on\, don\'t be afraid \.) (i need a little more detail please \.) (you\'re being a bit brief\, (doc$ doctor--please) go into detail \.) (can you be more explicit \?) (and \?) ((doc$ doctor--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 \?)) doctor--famlst ((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.) (you seem to dwell on (doc// doctor-owner) family \.) ((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?)) doctor--huhlst (((doc$ doctor--whysay) (doc// doctor-sent) \?) (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)) doctor--longhuhlst (((doc$ doctor--whysay) that \?) (i don\'t understand \.) ((doc$ doctor--thlst)) ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)) doctor--feelings-about ((feelings about) (apprehensions toward) (thoughts on) (emotions toward)) doctor--random-adjective ((vivid) (emotionally stimulating) (exciting) (boring) (interesting) (recent) (random) (unusual) (shocking) (embarrassing)) doctor--whysay ((why do you say) (what makes you believe) (are you sure that) (do you really think) (what makes you think)) doctor--isee ((i see \.\.\.) (yes\,) (i understand \.) (oh \.)) doctor--please ((please\,) (i would appreciate it if you would) (perhaps you could) (please\,) (would you please) (why don\'t you) (could you)) doctor--bye doctor--something doctor--thing doctor--things doctor--describe doctor--ibelieve doctor--problems doctor--bother doctor--machlst doctor--qlist doctor--foullst doctor--deathlst doctor--sexlst doctor--neglst doctor--beclst doctor--shortbeclst doctor--thlst doctor--remlst doctor--toklst doctor--states doctor--replist doctor--stallmanlst doctor--schoollst doctor--improve doctor--elizalst doctor--sportslst doctor--mathlst doctor--zippylst doctor--chatlst doctor--abuselst doctor--abusewords doctor--howareyoulst doctor--whereoutp doctor-subj doctor-verb doctor-obj doctor--feared doctor--repetitive-shortness doctor--**mad** doctor--rms-flag doctor--eliza-flag doctor--zippy-flag doctor--suicide-flag doctor--lover doctor--bak doctor--lincount doctor--*print-upcase* doctor--*print-space* doctor--howdyflag doctor-object ((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 life) (your sex life)) ((your plans) (the people you hang around with) (problems at school) (any hobbies you have) (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 (doc// doctor-found) \, it seems \.) (you think too much about (doc// doctor-found) \.) (you should try taking your mind off of (doc// doctor-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 \.) ((doc$ doctor--please) allow me to do the questioning \.) (i have asked myself that question many times \.) ((doc$ doctor--please) try to answer that question yourself \.)) (((doc$ doctor--please) watch your tongue!) ((doc$ doctor--please) avoid such unwholesome thoughts \.) ((doc$ doctor--please) get your mind out of the gutter \.) (such lewdness is not appreciated \.)) ((this is not a healthy way of thinking \.) ((doc$ doctor--bother) you\, too\, may die someday \?) (i am worried by your obsession with this topic!) (did you watch a lot of crime and violence on television as a child \?)) (((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?) ((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.) ((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.) ((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.) ((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.) ((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?)) ((why not \?) ((doc$ doctor--bother) i ask that \?) (why not \?) (why not \?) (how come \?) ((doc$ doctor--bother) i ask that \?)) ((is it because (doc// doctor-sent) that you came to me \?) ((doc$ doctor--bother) (doc// doctor-sent) \?) (when did you first know that (doc// doctor-sent) \?) (is the fact that (doc// doctor-sent) the real reason \?) (does the fact that (doc// doctor-sent) explain anything else \?) ((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \?)) (((doc$ doctor--bother) i ask you that \?) (that\'s not much of an answer!) ((doc$ doctor--inter) why won\'t you talk about it \?) (speak up!) ((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?) (don\'t be (doc$ doctor--afraidof) elaborating \.) ((doc$ doctor--please) go into more detail \.)) (((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.) ((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.) (is it because of (doc$ doctor--things) that you are going through all this \?) (how do you reconcile (doc$ doctor--things) \?) ((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?)) ((earlier you said (doc$ doctor--history) \?) (you mentioned that (doc$ doctor--history) \?) ((doc$ doctor--whysay) (doc$ doctor--history) \?)) ((is this how you relax \?) (how long have you been smoking grass \?) ((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?)) ((do you get (doc// doctor-found) often \?) (do you enjoy being (doc// doctor-found) \?) (what makes you (doc// doctor-found) \?) (how often (doc$ doctor--areyou) (doc// doctor-found) \?) (when were you last (doc// doctor-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)) (((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.) ((doc$ doctor--areyou) a friend of Stallman \?) ((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?) ((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.)) (((doc$ doctor--describe) your (doc// doctor-found) \.) ((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?) ((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?) ((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.) ((doc$ doctor--areyou) absent often \?) ((doc$ doctor--maybe) you should study (doc$ doctor--something) \.)) ((improve) (be better) (be improved) (be higher)) (((doc$ doctor--areyou) (doc$ doctor--sure) \?) ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.) ((doc$ doctor--whysay) (doc// doctor-sent) \?)) ((tell me (doc$ doctor--something) about (doc// doctor-found) \.) ((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.) (do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?)) (((doc$ doctor--describe) (doc$ doctor--something) about math \.) ((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.) (i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue) anyway \.)) (((doc$ doctor--areyou) Zippy \?) ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.) ((doc$ doctor--bother) you are a pinhead \?)) (((doc$ doctor--maybe) we could chat \.) ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.) ((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?)) (((doc$ doctor--please) try to be less abusive \.) ((doc$ doctor--describe) why you call me (doc// doctor-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] 3])
(defalias 'doctor-meaning #[(x) "\301N\207" [x doctor-meaning] 2])
#@56 Store the base meaning of a word on the property list.
(defalias 'doctor-put-meaning '(macro . #[(symb val) "\302\303D\304 F\207" [symb val put quote 'doctor-meaning] 4 (#$ . 17725)]))
(byte-code "\300\301\302\301#\210\300\303\302\301#\210\300\304\302\301#\210\300\305\302\301#\210\300\306\302\307#\210\300\310\302\307#\210\300\311\302\307#\210\300\312\302\307#\210\300\313\302\307#\210\300\314\302\307#\210\300\315\302\307#\210\300\316\302\307#\210\300\317\302\307#\210\300\320\302\307#\210\300\321\302\307#\210\300\322\302\307#\210\300\323\302\307#\210\300\324\302\307#\210\300\325\302\307#\210\300\326\302\307#\210\300\327\302\307#\210\300\330\302\307#\210\300\331\302\307#\210\300\332\302\307#\210\300\333\302\307#\210\300\334\302\307#\210\300\335\302\307#\210\300\336\302\307#\210\300\337\302\307#\210\300\340\302\307#\210\300\341\302\307#\210\300\342\302\307#\210\300\343\302\307#\210\300\344\302\307#\210\300\345\302\307#\210\300\346\302\307#\210\300\347\302\307#\210\300\350\302\351#\210\300\352\302\351#\210\300\353\302\351#\210\300\354\302\351#\210\300\355\302\351#\210\300\356\302\351#\210\300\357\302\351#\210\300\360\302\351#\210\300\361\302\351#\210\300\362\302\351#\210\300\363\302\351#\210\300\364\302\351#\210\300\365\302\351#\210\300\366\302\351#\210\300\367\302\370#\210\300\371\302\370#\210\300\372\302\370#\210\300\373\302\370#\210\300\374\302\370#\210\300\375\302\370#\210\300\376\302\370#\210\300\377\302\370#\210\300\370\302\370#\210\300\201@ \302\370#\210\300\201A \302\370#\210\300\201B \302\370#\210\300\201C \302\370#\210\300\201D \302\201E #\210\300\201F \302\201E #\210\300\201G \302\201E #\210\300\201H \302\201E #\210\300\201I \302\201E #\210\300\201J \302\201E #\210\300\201K \302\201E #\210\300\201L \302\201E #\210\300\201M \302\201E #\210\300\201N \302\201E #\210\300\201O \302\201O #\210\300\201P \302\201P #\210\300\201Q \302\201P #\210\300\201R \302\201R #\210\300\201S \302\201R #\210\300\201T \302\201T #\210\300\201U \302\201T #\210\300\201V \302\201T #\210\300\201W \302\201X #\210\300\201Y \302\201X #\210\300\201Z \302\201X #\210\300\201[ \302\201X #\210\300\201\\ \302\201X #\210\300\201] \302\201X #\210\300\201^ \302\201X #\210\300\201_ \302\201X #\210\300\201` \302\201a #\210\300\201b \302\201a #\210\300\201c \302\201a #\210\300\201a \302\201a #\210\300\201d \302\201a #\210\300\201e \302\201a #\210\300\201f \302\201a #\210\300\201g \302\201a #\210\300\201h \302\201a #\210\300\201g \302\201a #\210\300\201i \302\201a #\210\300\201j \302\201a #\210\300\201k \302\201a #\210\300\201l \302\201m #\210\300\201n \302\201m #\210\300\201o \302\201m #\210\300\201p \302\201m #\210\300\201q \302\201m #\210\300\201r \302\201m #\210\300\201s \302\201m #\210\300\201t \302\201m #\210\300\201u \302\201m #\210\300\201v \302\201m #\210\300\201w \302\201m #\210\300\201x \302\201m #\210\300\201y \302\201z #\210\300\201{ \302\201z #\210\300\201z \302\201z #\210\300\201| \302\201z #\210\300\201} \302\201z #\210\300\201~ \302\201 #\210\300\201\200 \302\201 #\210\300\201\201 \302\201 #\210\300\201\202 \302\201 #\210\300\201\203 \302\201 #\210\300\201\204 \302\201 #\210\300\201\205 \302\201 #\210\300\201\206 \302\201 #\210\300\201\207 \302\201 #\210\300\201\210 \302\201 #\210\300\201\211 \302\201 #\210\300\201\212 \302\201 #\210\300\201\213 \302\201 #\210\300\201\214 \302\201\215 #\210\300\201\215 \302\201\215 #\210\300\201\216 \302\201\215 #\210\300\201\217 \302\201\215 #\210\300\201\220 \302\201\215 #\210\300\201\221 \302\201\215 #\210\300\201\222 \302\201\215 #\210\300\201\223 \302\201\215 #\210\300\201\224 \302\201\215 #\210\300\201\225 \302\201\215 #\210\300\201\226 \302\201\215 #\210\300\201\227 \302\201\215 #\210\300\201\230 \302\201\215 #\210\300\201\231 \302\201\215 #\210\300\201\232 \302\201\215 #\210\300\201\233 \302\201\215 #\210\300\201\234 \302\201\235 #\210\300\201\236 \302\201\235 #\210\300\201\237 \302\201\235 #\210\300\201\240 \302\201\235 #\210\300\201\241 \302\201\235 #\210\300\201\242 \302\201\235 #\210\300\201\243 \302\201\235 #\210\300\201\244 \302\201\235 #\210\300\201\245 \302\201\235 #\210\300\201\246 \302\201\235 #\210\300\201\247 \302\201\235 #\210\300\201\250 \302\201\235 #\210\300\201\235 \302\201\235 #\210\300\201\251 \302\201\235 #\210\300\201\252 \302\201\253 #\210\300\201\254 \302\201\253 #\210\300\201\255 \302\201\253 #\210\300\201\256 \302\201\253 #\210\300\201\257 \302\201\253 #\210\300\201\260 \302\201\253 #\210\300\201\261 \302\201\253 #\210\300\201\262 \302\201\253 #\210\300\201\263 \302\201\253 #\210\300\201\264 \302\201\253 #\210\300\201\265 \302\201\253 #\210\300\201\266 \302\201\253 #\210\300\201\267 \302\201\253 #\210\300\201\270 \302\201\253 #\210\300\201\271 \302\201\253 #\210\300\201\272 \302\201\273 #\210\300\201\274 \302\201\273 #\210\300\201\275 \302\201\273 #\210\300\201\273 \302\201\273 #\210\300\201\276 \302\201\273 #\210\300\201\277 \302\201\273 #\210\300\201\300 \302\201\273 #\210\300\201\301 \302\201\273 #\210\300\201\302 \302\201\273 #\210\300\201\303 \302\201\304 #\210\300\201\305 \302\201\304 #\210\300\201\306 \302\201\304 #\210\300\201\307 \302\201\304 #\210\300\201\310 \302\201\304 #\210\300\201\311 \302\201\304 #\210\300\201\312 \302\201\304 #\210\300\201\313 \302\201\304 #\210\300\201\314 \302\201\304 #\210\300\201\315 \302\201\304 #\210\300\201\316 \302\201\304 #\210\300\201\317 \302\201\304 #\210\300\201\320 \302\201\321 #\210\300\201\322 \302\201\321 #\210\300\201\323 \302\201\321 #\210\300\201\324 \302\201\321 #\210\300\201\325 \302\201\321 #\210\300\201\326 \302\201\321 #\210\300\201\327 \302\201\321 #\210\300\201\330 \302\201\321 #\210\300\201\331 \302\201\321 #\210\300\201\332 \302\201\333 #\210\300\201\333 \302\201\333 #\210\300\201\334 \302\201\333 #\210\300\201\335 \302\201\333 #\210\300\201\336 \302\201\333 #\210\300\201\337 \302\201\337 #\210\300\201\340 \302\201\337 #\210\300\201\341 \302\201\341 #\210\300\201\342 \302\201\341 #\210\300\201\343 \302\201\341 #\210\300\201\344 \302\201\341 #\210\300\201\345 \302\201\341 #\210\300\201\346 \302\201\341 #\210\300\201\347 \302\201\341 #\210\300\201\350 \302\201\341 #\210\300\201\351 \302\201\341 #\210\300\201\352 \302\201\341 #\210\300\201\353 \302\201\341 #\210\300\201\354 \302\201\341 #\210\300\201\355 \302\201\341 #\210\300\201\356 \302\201\357 #\210\300\201\357 \302\201\357 #\210\300\201\360 \302\201\357 #\210\300\201\361 \302\201\357 #\210\300\201\362 \302\201\357 #\210\300\201\363 \302\201\357 #\210\300\201\364 \302\201\365 #\210\300\201\366 \302\201\365 #\210\300\201\367 \302\201\365 #\210\300\201\370 \302\201\365 #\210\300\201\371 \302\201\365 #\210\300\201\372 \302\201\365 #\210\300\201\373 \302\201\365 #\210\300\201\374 \302\201\365 #\210\300\201\375 \302\201\365 #\210\300\201\376 \302\201\365 #\210\300\201\377 \302\201\365 #\210\300\201\365 \302\201\365 #\210\300\201 \302\201\365 #\210\300\201\302\201\365 #\210\300\201\302\201\365 #\210\300\201\302\201\365 #\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201 \302\201#\210\300\201\n\302\201#\210\300\201 \302\201#\210\300\201\f\302\201#\210\300\201
\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\210\300\201\302\201#\207" [put howdy doctor-meaning hi greetings hello tops20 mach tops-20 tops pdp11 computer unix machine computers machines pdp11s foo foobar multics macsyma teletype la36 vt52 zork trek startrek advent pdp dec commodore vic bbs modem baud macintosh vax vms ibm pc bitching foul shit bastard damn damned hell suck sucking sux ass whore bitch asshole shrink pot toke grass weed marijuana acapulco columbian tokin joint toking tokin\' toked roach pills drug dope acid lsd speed heroin hash cocaine uppers downers loves love loved hates dislikes hate hated dislike stoned state drunk drunken high horny blasted happy paranoid wish desire wishes want like hope hopes desires wants likes needs need frustrated mood depressed annoyed upset unhappy excited worried lonely angry mad pissed jealous afraid fear terrified scared frightened virginity sexnoun virgins virgin cock cocks dick dicks cunt cunts prostitute condom sex rapes wife family brothers sisters parent parents brother sister father mother husband siblings grandmother grandfather maternal paternal stab death murder murders suicide suicides kill kills killing die dies died dead deaths pain symptoms ache fever sore aching stomachache headache hurts disease virus vomit vomiting barf toothache hurt rum alcohol gin vodka bourbon beer wine whiskey scotch fuck sexverb fucked screw screwing fucking rape raped kiss kissing kisses screws fucks because conj but however besides anyway that except why how until when whenever while since rms stallman school schools skool grade grades teacher teachers classes professor prof profs professors mit emacs eliza liza elisa weizenbaum doktor athletics sports baseball basketball football frisbee gym gymnastics hockey lacrosse soccer softball swimming swim tennis volleyball math mathematics mathematical theorem axiom lemma algebra algebraic trig trigonometry trigonometric geometry geometric calculus arithmetic zippy pinhead chat] 4)
#@59 Switch to *doctor* buffer and start giving psychotherapy.
(defalias 'doctor #[nil "\300\301!\210\302 \207" [switch-to-buffer "*doctor*" doctor-mode] 2 (#$ . 27065) nil])
#@114 Insert a newline if preceding character is not a newline.
Otherwise call the Doctor to parse preceding sentence.
(defalias 'doctor-ret-or-read #[(arg) "h\301U\203 \302 \207\303!\207" [arg 10 doctor-read-print newline] 2 (#$ . 27242) "*p"])
#@17 Top level loop.
(defalias 'doctor-read-print #[nil "\303 \304c\210 T\305 \210\304c\210\211\207" [doctor-sent doctor--lincount doctor--bak doctor-readin "\n" doctor-doc] 2 (#$ . 27490) nil])
#@49 Read a sentence. Return it as a list of words.
(defalias 'doctor-readin #[nil "\301\302\303!\210m\204 \304\305 C\"\202 )\207" [sentence nil backward-sentence 1 append doctor-read-token] 3 (#$ . 27690)])
#@28 Read one word from buffer.
(defalias 'doctor-read-token #[nil "\300`\301v\210`{\227!\302\303!\210\207" [intern 1 re-search-forward "\\Sw*"] 3 (#$ . 27906)])
(defalias 'doctor-doc #[nil "\306\232\203\n \307\310!\207 \235\203 \307\311!\207\312\235\204! @\313>\203' \307\314\315!!\207@\316=\203@ A@\n>\203@ A@\307\314\317!!\207@\320=\203M \321A@!\207\322\232\203} \307\323\324\f\325\326\324
\327\330\331\324@\332\333\334\324A\327\335\336\337 \340\341\342\343\337B\327\344\345\346\347\350\257\"!\207@\351>\203\212 \307\314\352!!\207\353!\203\225 \354 \"\210G\355V\203\240 \356!\357\360C\"!\361>\204\277 \362>\204\277 \363>\203\277 \360\364\"@\365=\203\311 \366 \207G\367W\203\337 \370@!\371=\203\334 \372 \207\373 \207\363>\203\352 \360\374\"\375!\211@\376=\203.A@\377=\203.\201D \201E !\201F U\203\307\201G !\207\201D \367!\201F U\203(\307\201H !\210\201I \207\307\201J !\207\201K \201L !!\207" [doctor-sent doctor--howareyoulst doctor--abusewords doctor-found doctor-subj doctor-verb (foo) doctor-type (bar! (doc$ doctor--please) (doc$ doctor--continue) \.) (i\'m ok \. (doc$ doctor--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-$ doctor--bye you doctor--abuselst whatmeans doctor-def (parse) subj = ", " verb "\n" object phrase "," noun form current keyword is ", " most recent possessive sentence used was "..." (doc// doctor--bak) (are is do has have how when where who why) doctor--qlist doctor-defq doctor-define 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 doctor-obj doctor-object doctor-owner doctor--replist random 3 0 (are you (doc$ doctor--afraidof) that \?) (don\'t tell me what to do \. i am the doctor here!) doctor-rthing ((doc$ doctor--whysay) that i shouldn\'t (cddr doctor-sent) \?) doctor-go doctor-wherego] 36])
#@56 Correct the spelling and expand each word in sentence.
(defalias 'doctor-correct-spelling #[(sent) "\205 \301\302\303\304\"\"\207" [sent apply append mapcar #[(word) " >\203\f \302N\303N\207C\207" [word doctor--typos doctor-correction doctor-expansion] 2]] 5 (#$ . 29946)])
#@53 Make a sentence manageably short using a few hacks.
(defalias 'doctor-shorten #[(sent) "\304\305 \203+ @>\211\203$ G\306V\203$ \307 !\304\211\202 A\211\204\n \n+\207" [sent temp retval foo nil (because but however besides anyway until while that except why how) 3 doctor-fixup] 4 (#$ . 30232)])
(defalias 'doctor-define #[(sent found) "\304 \305\306$\210\307\n!\205) \310\n!?\205) \n\205) \311 !\205) \312\n\311\211 !#\205) \313\207" [sent found doctor-subj doctor-object doctor-svo 1 nil doctor-nounp doctor-pronounp doctor-meaning put t] 5])
#@70 Set global var DOCTOR-FOUND to first keyword found in sentence SENT.
(defalias 'doctor-defq #[(sent) "\303\304\211\203 @\n>\203 @\303\211\202 A\211\204 )\207" [doctor-found temp sent nil (means applies mean refers refer related similar defined associated linked like same)] 3 (#$ . 30796)])
(defalias 'doctor-def #[(x) "\301\302\303\304\305!\306\307\257!\210\310\207" [x doctor-type the word means doctor-meaning to me nil] 8])
#@46 Delete the last element of the history list.
(defalias 'doctor-forget #[nil "\301\211!A!\211\207" [doctor--history reverse] 3 (#$ . 31246)])
#@102 Prompt for a line of input from the minibuffer until a noun or verb is seen.
Put dialogue in buffer.
(defalias 'doctor-query #[(x) "\304\305!\306P\304 \204Q \204\" \307\n\310\n!\307\261\210\311 \211\203 \203\n \204\n \312 @!\2037 @\202\" \313 @!\203J \314\211\315\" @\"\202\" A\211\202# +\207" [x retval prompt a nil doctor-make-string " what ? " 10 read-string doctor-readin doctor-nounp doctor-verbp doctor-build " "] 5 (#$ . 31396)])
#@225 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 doctor-subj to
the subject noun, and return the portion of the sentence following it.
(defalias 'doctor-subjsearch #[(sent key type) "\305G >G\n#\211\306V\203 \307 8!\204 S\211\202 \306V\2030 8 T\233\2023 \310\311)\207" [sent key type i doctor-subj - -1 doctor-nounp you nil] 5 (#$ . 31858)])
#@50 Return non-nil if the symbol argument is a noun.
(defalias 'doctor-nounp #[(x) "\301!\206 \302!\206 \303=\206 \304!\206 \305!?\207" [x doctor-pronounp doctor-verbp not doctor-prepp doctor-modifierp] 2 (#$ . 32310)])
#@53 Return non-nil if the symbol argument is a pronoun.
(defalias 'doctor-pronounp #[(x) "\301>\207" [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 (#$ . 32541)])
(byte-code "\302\303\211\203 @\304\305\306#\210 A\211\204 *\303\207" [x --dolist-tail-- (abort aborted aborts ask asked asks am applied applies apply are associate associated ate be became become becomes becoming been being believe believed 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 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 transferred 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) nil put doctor-sentence-type verb] 5)
(defalias 'doctor-verbp #[(x) "9\205\n \301N\302=\207" [x doctor-sentence-type verb] 2])
#@39 Form the plural of the word argument.
(defalias 'doctor-plural #[(x) "\302!\303 \304\"\305\230\203# \303 \306\304#\305\230\203 \307 \310P!\202= \202= \303 \304\"\311\230\2038 \307\303 \312\304#\313P!\202= \307 \305P!)\207" [x foo doctor-make-string substring -1 "s" -2 intern "es" "y" 0 "ies"] 5 (#$ . 35410)])
(defalias 'doctor-setprep #[(sent key) "\304 >\305\nA@!\203 \306\nAA!\211\203 \202C \307\202C \310\nA@!\203B \306\nAA!\211\203> \311\211\nA@\312\" \"\202C \307\202C \307*\207" [key sent foo val nil doctor-prepp doctor-getnoun something doctor-articlep doctor-build " "] 5])
(defalias 'doctor-getnoun #[(x) "\204 \302\211\207:\204 \211\207G\303=\203+ \304@\211!\203% \202( \305 !\211\207@\306=\203: \307\310\311A!\"\207\312@!\203F \311A!\207\304@!\204d \307\211@\313\314@@BC\"\236A\315\"\311A!\"\207@\307\211@\315\"\311A!\"\207" [x doctor-object something 1 doctor-nounp doctor-query to doctor-build to\ doctor-getnoun doctor-prepp append ((a . this) (some . this) (one . that)) " "] 7])
(defalias 'doctor-modifierp #[(x) "\301!\206 \302!\206 \303!\207" [x doctor-adjectivep doctor-adverbp doctor-othermodifierp] 2])
(defalias 'doctor-adjectivep #[(x) "\247\206 \301!\206 \302!\206 \303!\206 \304!\206 \305!\207" [x doctor-nmbrp doctor-articlep doctor-colorp doctor-sizep doctor-possessivepronounp] 2])
(defalias 'doctor-adverbp #[(xx) "\302!\211G\303Y\205 \304\302!\305\"\306\230\205 \307>?)\207" [xx xxstr doctor-make-string 2 substring -2 "ly" (family fly jelly rally)] 4])
(defalias 'doctor-articlep #[(x) "\301>\207" [x (the a an)] 2])
(defalias 'doctor-nmbrp #[(x) "\301>\207" [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 ninth tenth)] 2])
(defalias 'doctor-colorp #[(x) "\301>\207" [x (beige black blue brown crimson gray grey green orange pink purple red tan tawny violet white yellow)] 2])
(defalias 'doctor-sizep #[(x) "\301>\207" [x (big large tall fat wide thick small petite short thin skinny)] 2])
(defalias 'doctor-possessivepronounp #[(x) "\301>\207" [x (my your his her our their)] 2])
(defalias 'doctor-othermodifierp #[(x) "\301>\207" [x (all also always amusing any anyway associated awesome bad beautiful best better but certain clear ever every fantastic fun funny good great grody gross 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])
(defalias 'doctor-prepp #[(x) "\301>\207" [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])
(defalias 'doctor-remember #[(thing) "\204 C\211\207\302 C\"\211\207" [doctor--history thing append] 3])
(defalias 'doctor-type #[(x) "\301!\302\303!!\207" [x doctor-fix-2 doctor-txtype doctor-assm] 3])
(defalias 'doctor-fixup #[(sent) "\301@\301\302@@DC\"\236AA\"\303!\207" [sent append ((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] 6])
(defalias 'doctor-fix-2 #[(sent) " \203\342 @\302=\203 \303 A@!\203 \304\240\210\202 @\305=\203S A@\306>\2033 A\307\240\210\202\333 A@\310=\203C A\311\240\210\202\333 A@\312=\203\333 A\313\240\210\202\333 @\304=\203\212 A@\314>\203j A\315\240\210\202\333 A@\313=\203z A\312\240\210\202\333 A@\310=\203\333 A\311\240\210\202\333 \303 @!\203\252 A@\304=\203\252 \303 AA@!\204\252 A\302\240\210\202\333 @\316=\203\304 \317\320\321 A@!!!\203\304 \322\240\210\202\333 @\322=\203\333 \317\320\321 A@!!!\204\333 \316\240\210 A\211\204 )\207" [sent foo me doctor-verbp i you (am be been is) are has have was were (are is be been) am a doctor-vowelp string-to-char doctor-make-string an] 5])
(defalias 'doctor-vowelp #[(x) "\301>\207" [x (97 101 105 111 117)] 2])
#@85 Replace any element of SENT that is the car of a replacement
element pair in RLIST.
(defalias 'doctor-replace #[(sent rlist) "\301\302\303\304\"\"\207" [sent apply append mapcar #[(x) " \236\206 \211DA\207" [x rlist] 2]] 5 (#$ . 39628)])
(defalias 'doctor-wherego #[(sent) "\204 \302\303!\207\304@!\204# \305\306\307!\310U\203 \311A!\202! A!\207@\304@!\207" [sent doctor-found doctor-$ doctor--whereoutp doctor-meaning doctor-wherego random 2 0 reverse] 3])
#@288 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 in the global variables DOCTOR-SUBJ, DOCTOR-VERB, DOCTOR-OBJECT,
and DOCTOR-OBJ.
(defalias 'doctor-svo #[(sent key type mem) "\306 \n#\211\204 \307\310 @!\204 A\203 A\202 @\311 A!
\312=\2036 \313\202@ \313=\203@ \312\f\205L \314
E!)\207" [sent key type foo mem doctor-verb doctor-subjsearch nil doctor-verbp doctor-getnoun i me doctor-remember doctor-obj doctor-object doctor-subj] 5 (#$ . 40106)])
#@120 Set possessive in SENT for keyword KEY.
Hack on previous word, setting global variable DOCTOR-OWNER to correct result.
(defalias 'doctor-possess #[(sent key) "\305G >G\306#\211\307W\203 \310\202 \n8\311 !\204) \312\313 !\314\"\315\230\203- \202. \310\211*\207" [sent key i prev doctor-owner - 1 0 your doctor-possessivepronounp substring doctor-make-string -1 "s"] 5 (#$ . 40745)])
#@62 Output to buffer a list of symbols or strings as a sentence.
(defalias 'doctor-txtype #[(ans) "\303\304\305\306\n\"\210\307c\207" [doctor--*print-upcase* doctor--*print-space* ans t nil mapc doctor-type-symbol "\n"] 3 (#$ . 41142)])
#@71 Output a symbol to the buffer with some fancy case and spacing hacks.
(defalias 'doctor-type-symbol #[(word) "\305!\211\306\230\203\f \307 \203 \310!\n\203 \311c\210\312\313\"\204& \n\204, c\210\2021 \314\261\210 \203> i\fV\203> \210\312\315\"\316\211\207" [word doctor--*print-upcase* doctor--*print-space* auto-fill-function fill-column doctor-make-string "i" "I" capitalize " " string-match "^[.,;:?! ]" 32 "[.?!]$" t] 4 (#$ . 41383)])
#@71 Make a symbol out of the concatenation of the two non-list arguments.
(defalias 'doctor-build #[(str1 str2) "\204 \207 \204\f \207:\204 :\204 \302\303!\303 !P!\207\304\207" [str1 str2 intern doctor-make-string nil] 4 (#$ . 41844)])
(defalias 'doctor-make-string #[(obj) ";\203 \2079\203 \301!\207\247\203 \302!\207\303\207" [obj symbol-name int-to-string ""] 2])
#@54 Like append, but force atomic arguments to be lists.
(defalias 'doctor-concat #[(x y) "\302\203 :\204 C\202 \203 :\204 C\202 \"\207" [x y append] 3 (#$ . 42231)])
(defalias 'doctor-assm #[(proto) "\204 \301\207:\204 C\207@:\204 @\302A!B\207\303\302\304@!!\302A!\"\207" [proto nil doctor-assm doctor-concat eval] 4])
#@29 Call a `doctor-*' function.
(defalias 'doctor-go #[(destination) "\301\302\303!P! \207" [destination intern "doctor-" doctor-make-string] 4 (#$ . 42578)])
(defalias 'doctor-desire1 #[nil "\300\301\302!!\207" [doctor-go doctor-$ doctor--whereoutp] 3])
(defalias 'doctor-huh #[nil "G\301W\203
\302\303\304!!\207\302\303\305!!\207" [doctor-sent 9 doctor-type doctor-$ doctor--huhlst doctor--longhuhlst] 3])
(defalias 'doctor-rthing #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--thlst] 3])
(defalias 'doctor-remem #[nil "\204 \301 \207\302\303\304!!\207" [doctor--history doctor-huh doctor-type doctor-$ doctor--remlst] 3])
(defalias 'doctor-howdy #[nil "\204\f \301\302!\210\303\211\207\301\304!\210\301\305!\207" [doctor--howdyflag doctor-type ((doc$ doctor--hello) what brings you to see me \?) t ((doc$ doctor--ibelieve) we\'ve introduced ourselves already \.) ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--things) \.)] 2])
(defalias 'doctor-when #[nil " >G\302W\203\f \303 \207 >A\304 !\305\306!\207" [doctor-found doctor-sent 3 doctor-short doctor-fixup doctor-type ((doc$ doctor--whatwhen) (doc// doctor-sent) \?)] 2])
(defalias 'doctor-conj #[nil " >G\303W\203\f \304 \207 >A\305 !\211@\306=\203' \307\310!\210 A\nB\211\207\311 !\210\307\312\313!!\207" [doctor-found doctor-sent doctor--things 4 doctor-short doctor-fixup of doctor-type (are you (doc$ doctor--sure) that is the real reason \?) doctor-remember doctor-$ doctor--beclst] 4])
(defalias 'doctor-short #[nil "@ SU\203 \211AT\241\210\202 \304\241\210 \240\210A\305V\2030 \n\204, \306\307!\210\310\211\207\306\311!\207 \312\313!\232\203< \306\314!\207 \312\315!\232\203J \306\316\317!!\207 \312\320!\232\203X \306\316\321!!\207\306\316\322!!\207" [doctor--repetitive-shortness doctor--lincount doctor--**mad** doctor-sent 1 6 doctor-type ((doc$ doctor--areyou) just trying to see what kind of things i have in my vocabulary \? please try to carry on a reasonable conversation!) t (i give up \. you need a lesson in creative writing \.\.\.) doctor-assm (yes) ((doc$ doctor--isee) (doc$ doctor--inter) (doc$ doctor--whysay) this is so \?) (because) doctor-$ doctor--shortbeclst (no) doctor--neglst doctor--shortlst] 3])
(defalias 'doctor-alcohol #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--drnk] 3])
(defalias 'doctor-desire #[nil " >\211G\305W\203 \306\307\310!\311\"!\202d \nA@\312>\203= \n\313\314\nA\"\241\210\315 \311\316$\210\317 \320\321\fF!\210\322\323\324!!\202d \nA@\325=\204P \306\307\310!\311\"!\202d \315 \311\316$\210\317 \320\321\fF!\210\322\323\324!!)\207" [doctor-found doctor-sent foo doctor-subj doctor-obj 2 doctor-go doctor-build doctor-meaning 1 (a an) append (to have) doctor-svo nil doctor-remember would like doctor-type doctor-$ doctor--whywant to] 6])
(defalias 'doctor-drug #[nil "\301\302\303!!\210\304\305\306E!\207" [doctor-found doctor-type doctor-$ doctor--drugs doctor-remember you used] 4])
(defalias 'doctor-toke #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--toklst] 3])
(defalias 'doctor-state #[nil "\301\302\303!!\210\304\305\306E!\207" [doctor-found doctor-type doctor-$ doctor--states doctor-remember you were] 4])
(defalias 'doctor-mood #[nil "\301\302\303!!\210\304\305\306E!\207" [doctor-found doctor-type doctor-$ doctor--moods doctor-remember you felt] 4])
(defalias 'doctor-fear #[nil "\303 \"\304\305\306!!\210\307\310\311\312\313\n\257!\207" [doctor-sent doctor-found doctor--feared doctor-setprep doctor-type doctor-$ doctor--fears doctor-remember you were afraid of] 6])
(defalias 'doctor-hate #[nil "\303 \304\305$\210\306>\203 \307 \210\310 \207\n\311=\203 \312\313!\207\312\314!\207" [doctor-sent doctor-found doctor-subj doctor-svo 1 t not doctor-forget doctor-huh you doctor-type (why do you (doc// doctor-verb) (doc// doctor-obj) \?) ((doc$ doctor--whysay) (list doctor-subj doctor-verb doctor-obj))] 5])
(defalias 'doctor-symptoms #[nil "\300\301!\207" [doctor-type ((doc$ doctor--maybe) you should consult a medical doctor\; i am a psychotherapist\. \.)] 2])
(defalias 'doctor-hates #[nil "\302 \303\304$\210\305 \207" [doctor-sent doctor-found doctor-svo 1 t doctor-hates1] 5])
(defalias 'doctor-hates1 #[nil "\300\301!\207" [doctor-type ((doc$ doctor--whysay) (list doctor-subj doctor-verb doctor-obj) \?)] 2])
(defalias 'doctor-loves #[nil "\302 \303\304$\210\305 \207" [doctor-sent doctor-found doctor-svo 1 t doctor-qloves] 5])
(defalias 'doctor-qloves #[nil "\300\301!\207" [doctor-type ((doc$ doctor--bother) (list doctor-subj doctor-verb doctor-obj) \?)] 2])
(defalias 'doctor-love #[nil "\306 \307\310$\210\311>\203 \312 \210\313 \207\314>\203 \315 \207\n\316=\203$ \317 \320\267\202C \f\211\321\232\203; \322\312 \210\323\324!\207\323\325!\207\326\327!\207\312 \210\330\331 \332\" \333 \207" [doctor-sent doctor-found doctor-object doctor-subj doctor-obj doctor--lover doctor-svo 1 t not doctor-forget doctor-huh to doctor-hates1 something (this person you love) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (you 42 i 63)) (this person you love) (your partner) doctor-type (with whom are you in love \?) ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor--lover) \.) doctor-txtype (we were discussing you!) someone doctor-build s doctor-qloves doctor-verb] 6])
(defalias 'doctor-mach #[nil "\301!\302\303\304!!\207" [doctor-found doctor-plural doctor-type doctor-$ doctor--machlst] 3])
(defalias 'doctor-sexnoun #[nil "\300 \207" [doctor-sexverb] 1])
(defalias 'doctor-sexverb #[nil "\301>\204 \302>\204 \303>\203 \304 \207\305\306\307!!\207" [doctor-sent me myself i doctor-foul doctor-type doctor-$ doctor--sexlst] 3])
(defalias 'doctor-death #[nil "\203\n \303\304\305!!\207 \306=\204\" \307=\204 \310=\203( \311\n>\203( \312\303\313!\207\303\304\305!!\207" [doctor--suicide-flag doctor-found doctor-sent doctor-type doctor-$ doctor--deathlst suicide kill killing yourself t (If you are really suicidal\, you might want to contact the Samaritans via E-mail: jo@samaritans\.org or\, at your option\, anonymous E-mail: samaritans@anon\.twwells\.com\ \. or find a Befrienders crisis center at http://www\.befrienders\.org/\ \. (doc$ doctor--please) (doc$ doctor--continue) \.)] 3])
(defalias 'doctor-foul #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--foullst] 3])
(defalias 'doctor-family #[nil "\302 \"\210\303\304\305!!\207" [doctor-sent doctor-found doctor-possess doctor-type doctor-$ doctor--famlst] 3])
(defalias 'doctor-rms #[nil "\203\n \301\302\303!!\207\304\301\305!\207" [doctor--rms-flag doctor-type doctor-$ doctor--stallmanlst t (do you know Stallman \?)] 3])
(defalias 'doctor-school #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--schoollst] 3])
(defalias 'doctor-eliza #[nil "\203\n \301\302\303!!\207\304\301\305!\207" [doctor--eliza-flag doctor-type doctor-$ doctor--elizalst t ((doc// doctor-found) \? hah ! (doc$ doctor--please) (doc$ doctor--continue) \.)] 3])
(defalias 'doctor-sports #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--sportslst] 3])
(defalias 'doctor-math #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--mathlst] 3])
(defalias 'doctor-zippy #[nil "\203\n \301\302\303!!\207\304\301\305!\207" [doctor--zippy-flag doctor-type doctor-$ doctor--zippylst t (yow! are we interactive yet \?)] 3])
(defalias 'doctor-chat #[nil "\300\301\302!!\207" [doctor-type doctor-$ doctor--chatlst] 3])
(provide 'doctor)
Mini Shell