- (make-local-variable 'typos)
- (setq typos
- (mapcar (function (lambda (x)
- (put (car x) 'doctor-correction (cadr x))
- (put (cadr x) 'doctor-expansion (car (cddr x)))
- (car x)))
- '((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)))))
- (make-local-variable 'found)
- (setq found nil)
- (make-local-variable 'owner)
- (setq owner nil)
- (make-local-variable 'history)
- (setq history nil)
- (make-local-variable '*debug*)
- (setq *debug* nil)
- (make-local-variable 'inter)
- (setq inter
- '((well\,)
- (hmmm \.\.\.\ so\,)
- (so)
- (\.\.\.and)
- (then)))
- (make-local-variable 'continue)
- (setq continue
- '((continue)
- (proceed)
- (go on)
- (keep going) ))
- (make-local-variable 'relation)
- (setq relation
- '((your relationship with)
- (something you remember about)
- (your feelings toward)
- (some experiences you have had with)
- (how you feel about)))
- (make-local-variable 'fears)
- (setq fears '( ((doc$ whysay) you are (doc$ afraidof) (doc// feared) \?)
- (you seem terrified by (doc// feared) \.)
- (when did you first feel (doc$ afraidof) (doc// feared) \?) ))
- (make-local-variable 'sure)
- (setq sure '((sure)(positive)(certain)(absolutely sure)))
- (make-local-variable 'afraidof)
- (setq afraidof '( (afraid of) (frightened by) (scared of) ))
- (make-local-variable 'areyou)
- (setq areyou '( (are you)(have you been)(have you been) ))
- (make-local-variable 'isrelated)
- (setq isrelated '( (has something to do with)(is related to)
- (could be the reason for) (is caused by)(is because of)))
- (make-local-variable 'arerelated)
- (setq arerelated '((have something to do with)(are related to)
- (could have caused)(could be the reason for) (are caused by)
- (are because of)))
- (make-local-variable 'moods)
- (setq moods '( ((doc$ areyou)(doc// found) often \?)
- (what causes you to be (doc// found) \?)
- ((doc$ whysay) you are (doc// found) \?) ))
- (make-local-variable 'maybe)
- (setq maybe
- '((maybe)
- (perhaps)
- (possibly)))
- (make-local-variable 'whatwhen)
- (setq whatwhen
- '((what happened when)
- (what would happen if)))
- (make-local-variable 'hello)
- (setq hello
- '((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)))
- (make-local-variable 'drnk)
- (setq drnk
- '((do you drink a lot of (doc// found) \?)
- (do you get drunk often \?)
- ((doc$ describe) your drinking habits \.) ))
- (make-local-variable 'drugs)
- (setq drugs '( (do you use (doc// found) often \?)((doc$ areyou)
- addicted to (doc// found) \?)(do you realize that drugs can
- be very harmful \?)((doc$ maybe) you should try to quit using (doc// found)
- \.)))
- (make-local-variable 'whywant)
- (setq whywant '( ((doc$ whysay) (doc// subj) might (doc$ want) (doc// obj) \?)
- (how does it feel to want \?)
- (why should (doc// subj) get (doc// obj) \?)
- (when did (doc// subj) first (doc$ want) (doc// obj) \?)
- ((doc$ areyou) obsessed with (doc// obj) \?)
- (why should i give (doc// obj) to (doc// subj) \?)
- (have you ever gotten (doc// obj) \?) ))
- (make-local-variable 'canyou)
- (setq 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 \.)))
- (make-local-variable 'want)
- (setq want '( (want) (desire) (wish) (want) (hope) ))
- (make-local-variable 'shortlst)
- (setq shortlst
- '((can you elaborate on that \?)
- ((doc$ please) continue \.)
- (go on\, don\'t be afraid \.)
- (i need a little more detail please \.)
- (you\'re being a bit brief\, (doc$ please) go into detail \.)
- (can you be more explicit \?)
- (and \?)
- ((doc$ 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 \?)))
-
- (make-local-variable 'famlst)
- (setq famlst
- '((tell me (doc$ something) about (doc// owner) family \.)
- (you seem to dwell on (doc// owner) family \.)
- ((doc$ areyou) hung up on (doc// owner) family \?)))
- (make-local-variable 'huhlst)
- (setq huhlst
- '(((doc$ whysay)(doc// sent) \?)
- (is it because of (doc$ things) that you say (doc// sent) \?) ))
- (make-local-variable 'longhuhlst)
- (setq longhuhlst
- '(((doc$ whysay) that \?)
- (i don\'t understand \.)
- ((doc$ thlst))
- ((doc$ areyou) (doc$ afraidof) that \?)))
- (make-local-variable 'feelings-about)
- (setq feelings-about
- '((feelings about)
- (apprehensions toward)
- (thoughts on)
- (emotions toward)))
- (make-local-variable 'random-adjective)
- (setq random-adjective
- '((vivid)
- (emotionally stimulating)
- (exciting)
- (boring)
- (interesting)
- (recent)
- (random) ;How can we omit this?
- (unusual)
- (shocking)
- (embarrassing)))
- (make-local-variable 'whysay)
- (setq whysay
- '((why do you say)
- (what makes you believe)
- (are you sure that)
- (do you really think)
- (what makes you think) ))
- (make-local-variable 'isee)
- (setq isee
- '((i see \.\.\.)
- (yes\,)
- (i understand \.)
- (oh \.) ))
- (make-local-variable 'please)
- (setq please
- '((please\,)
- (i would appreciate it if you would)
- (perhaps you could)
- (please\,)
- (would you please)
- (why don\'t you)
- (could you)))
- (make-local-variable 'bye)
- (setq bye
- '((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 \.)))
- (make-local-variable 'something)
- (setq something
- '((something)
- (more)
- (how you feel)))
- (make-local-variable 'things)
- (setq things
- '(;(your interests in computers) ;; let's make this less computer oriented
- ;(the machines you use)
- (your plans)
- ;(your use of computers)
- (your life)
- ;(other machines you use)
- (the people you hang around with)
- ;(computers you like)
- (problems at school)
- (any hobbies you have)
- ;(other computers you use)
- (your sex life)
- (hangups you have)
- (your inhibitions)
- (some problems in your childhood)
- ;(knowledge of computers)
- (some problems at home)))
- (make-local-variable 'describe)
- (setq describe
- '((describe)
- (tell me about)
- (talk about)
- (discuss)
- (tell me more about)
- (elaborate on)))
- (make-local-variable 'ibelieve)
- (setq ibelieve
- '((i believe) (i think) (i have a feeling) (it seems to me that)
- (it looks like)))
- (make-local-variable 'problems)
- (setq problems '( (problems)
- (inhibitions)
- (hangups)
- (difficulties)
- (anxieties)
- (frustrations) ))
- (make-local-variable 'bother)
- (setq bother
- '((does it bother you that)
- (are you annoyed that)
- (did you ever regret)
- (are you sorry)
- (are you satisfied with the fact that)))
- (make-local-variable 'machlst)
- (setq machlst
- '((you have your mind on (doc// found) \, it seems \.)
- (you think too much about (doc// found) \.)
- (you should try taking your mind off of (doc// found)\.)
- (are you a computer hacker \?)))
- (make-local-variable 'qlist)
- (setq qlist
- '((what do you think \?)
- (i\'ll ask the questions\, if you don\'t mind!)
- (i could ask the same thing myself \.)
- ((doc$ please) allow me to do the questioning \.)
- (i have asked myself that question many times \.)
- ((doc$ please) try to answer that question yourself \.)))
- (make-local-variable 'foullst)
- (setq foullst
- '(((doc$ please) watch your tongue!)
- ((doc$ please) avoid such unwholesome thoughts \.)
- ((doc$ please) get your mind out of the gutter \.)
- (such lewdness is not appreciated \.)))
- (make-local-variable 'deathlst)
- (setq deathlst
- '((this is not a healthy way of thinking \.)
- ((doc$ 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 \?))
- )
- (make-local-variable 'sexlst)
- (setq sexlst
- '(((doc$ areyou) (doc$ afraidof) sex \?)
- ((doc$ describe)(doc$ something) about your sexual history \.)
- ((doc$ please)(doc$ describe) your sex life \.\.\.)
- ((doc$ describe) your (doc$ feelings-about) your sexual partner \.)
- ((doc$ describe) your most (doc$ random-adjective) sexual experience \.)
- ((doc$ areyou) satisfied with (doc// lover) \.\.\. \?)))
- (make-local-variable 'neglst)
- (setq neglst
- '((why not \?)
- ((doc$ bother) i ask that \?)
- (why not \?)
- (why not \?)
- (how come \?)
- ((doc$ bother) i ask that \?)))
- (make-local-variable 'beclst)
- (setq beclst '(
- (is it because (doc// sent) that you came to me \?)
- ((doc$ bother)(doc// sent) \?)
- (when did you first know that (doc// sent) \?)
- (is the fact that (doc// sent) the real reason \?)
- (does the fact that (doc// sent) explain anything else \?)
- ((doc$ areyou)(doc$ sure)(doc// sent) \? ) ))
- (make-local-variable 'shortbeclst)
- (setq shortbeclst '(
- ((doc$ bother) i ask you that \?)
- (that\'s not much of an answer!)
- ((doc$ inter) why won\'t you talk about it \?)
- (speak up!)
- ((doc$ areyou) (doc$ afraidof) talking about it \?)
- (don\'t be (doc$ afraidof) elaborating \.)
- ((doc$ please) go into more detail \.)))
- (make-local-variable 'thlst)
- (setq thlst '(
- ((doc$ maybe)(doc$ things)(doc$ arerelated) this \.)
- (is it because of (doc$ things) that you are going through all this \?)
- (how do you reconcile (doc$ things) \? )
- ((doc$ maybe) this (doc$ isrelated)(doc$ things) \?) ))
- (make-local-variable 'remlst)
- (setq remlst '( (earlier you said (doc$ history) \?)
- (you mentioned that (doc$ history) \?)
- ((doc$ whysay)(doc$ history) \? ) ))
- (make-local-variable 'toklst)
- (setq toklst
- '((is this how you relax \?)
- (how long have you been smoking grass \?)
- ((doc$ areyou) (doc$ afraidof) of being drawn to using harder stuff \?)))
- (make-local-variable 'states)
- (setq states
- '((do you get (doc// found) often \?)
- (do you enjoy being (doc// found) \?)
- (what makes you (doc// found) \?)
- (how often (doc$ areyou)(doc// found) \?)
- (when were you last (doc// found) \?)))
- (make-local-variable 'replist)
- (setq replist
- '((i . (you))
- (my . (your))
- (me . (you))
- (you . (me))
- (your . (my))
- (mine . (yours))
- (yours . (mine))
- (our . (your))
- (ours . (yours))
- (we . (you))
- (dunno . (do not know))
-;; (yes . ())
- (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))))
- (make-local-variable 'stallmanlst)
- (setq stallmanlst '(
- ((doc$ describe) your (doc$ feelings-about) him \.)
- ((doc$ areyou) a friend of Stallman \?)
- ((doc$ bother) Stallman is (doc$ random-adjective) \?)
- ((doc$ ibelieve) you are (doc$ afraidof) him \.)))
- (make-local-variable 'schoollst)
- (setq schoollst '(
- ((doc$ describe) your (doc// found) \.)
- ((doc$ bother) your grades could (doc$ improve) \?)
- ((doc$ areyou) (doc$ afraidof) (doc// found) \?)
- ((doc$ maybe) this (doc$ isrelated) to your attitude \.)
- ((doc$ areyou) absent often \?)
- ((doc$ maybe) you should study (doc$ something) \.)))
- (make-local-variable 'improve)
- (setq improve '((improve) (be better) (be improved) (be higher)))
- (make-local-variable 'elizalst)
- (setq elizalst '(
- ((doc$ areyou) (doc$ sure) \?)
- ((doc$ ibelieve) you have (doc$ problems) with (doc// found) \.)
- ((doc$ whysay) (doc// sent) \?)))
- (make-local-variable 'sportslst)
- (setq sportslst '(
- (tell me (doc$ something) about (doc// found) \.)
- ((doc$ describe) (doc$ relation) (doc// found) \.)
- (do you find (doc// found) (doc$ random-adjective) \?)))
- (make-local-variable 'mathlst)
- (setq mathlst '(
- ((doc$ describe) (doc$ something) about math \.)
- ((doc$ maybe) your (doc$ problems) (doc$ arerelated) (doc// found) \.)
- (i don\'t know much (doc// found) \, but (doc$ continue)
- anyway \.)))
- (make-local-variable 'zippylst)
- (setq zippylst '(
- ((doc$ areyou) Zippy \?)
- ((doc$ ibelieve) you have some serious (doc$ problems) \.)
- ((doc$ bother) you are a pinhead \?)))
- (make-local-variable 'chatlst)
- (setq chatlst '(
- ((doc$ maybe) we could chat \.)
- ((doc$ please) (doc$ describe) (doc$ something) about chat mode \.)
- ((doc$ bother) our discussion is so (doc$ random-adjective) \?)))
- (make-local-variable 'abuselst)
- (setq abuselst '(
- ((doc$ please) try to be less abusive \.)
- ((doc$ describe) why you call me (doc// found) \.)
- (i\'ve had enough of you!)))
- (make-local-variable 'abusewords)
- (setq abusewords '(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))
- (make-local-variable 'howareyoulst)
- (setq howareyoulst '((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)))
- (make-local-variable 'whereoutp)
- (setq whereoutp '( huh remem rthing ) )
- (make-local-variable 'subj)
- (setq subj nil)
- (make-local-variable 'verb)
- (setq verb nil)
- (make-local-variable 'obj)
- (setq obj nil)
- (make-local-variable 'feared)
- (setq feared nil)
- (make-local-variable 'repetitive-shortness)
- (setq repetitive-shortness '(0 . 0))
- (make-local-variable '**mad**)
- (setq **mad** nil)
- (make-local-variable 'rms-flag)
- (setq rms-flag nil)
- (make-local-variable 'eliza-flag)
- (setq eliza-flag nil)
- (make-local-variable 'zippy-flag)
- (setq zippy-flag nil)
- (make-local-variable 'suicide-flag)
- (setq suicide-flag nil)
- (make-local-variable 'lover)
- (setq lover '(your partner))
- (make-local-variable 'bak)
- (setq bak nil)
- (make-local-variable 'lincount)
- (setq lincount 0)
- (make-local-variable '*print-upcase*)
- (setq *print-upcase* nil)
- (make-local-variable '*print-space*)
- (setq *print-space* nil)
- (make-local-variable 'howdyflag)
- (setq howdyflag nil)
- (make-local-variable 'object)
- (setq object nil))
+ (set (make-local-variable 'doctor--typos)
+ (mapcar (lambda (x)
+ (put (car x) 'doctor-correction (cadr x))
+ (put (cadr x) 'doctor-expansion (car (cddr x)))
+ (car x))
+ '((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)))))
+ (set (make-local-variable 'doctor-found) nil)
+ (set (make-local-variable 'doctor-owner) nil)
+ (set (make-local-variable 'doctor--history) nil)
+ (set (make-local-variable 'doctor--inter) '((well\,)
+ (hmmm \.\.\.\ so\,)
+ (so)
+ (\.\.\.and)
+ (then)))
+ (set (make-local-variable 'doctor--continue) '((continue)
+ (proceed)
+ (go on)
+ (keep going)))
+ (set (make-local-variable 'doctor--relation)
+ '((your relationship with)
+ (something you remember about)
+ (your feelings toward)
+ (some experiences you have had with)
+ (how you feel about)))
+ (set (make-local-variable '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) \?)))
+ (set (make-local-variable 'doctor--sure) '((sure)
+ (positive)
+ (certain)
+ (absolutely sure)))
+ (set (make-local-variable 'doctor--afraidof) '((afraid of)
+ (frightened by)
+ (scared of)))
+ (set (make-local-variable 'doctor--areyou) '((are you)
+ (have you been)
+ (have you been)))
+ (set (make-local-variable 'doctor--isrelated)
+ '((has something to do with)
+ (is related to)
+ (could be the reason for)
+ (is caused by)
+ (is because of)))
+ (set (make-local-variable 'doctor--arerelated) '((have something to do with)
+ (are related to)
+ (could have caused)
+ (could be the reason for)
+ (are caused by)
+ (are because of)))
+ (set (make-local-variable '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) \?)))
+ (set (make-local-variable 'doctor--maybe) '((maybe)
+ (perhaps)
+ (possibly)))
+ (set (make-local-variable 'doctor--whatwhen) '((what happened when)
+ (what would happen if)))
+ (set (make-local-variable 'doctor--hello) '((how do you do \?)
+ (hello \.)
+ (howdy!)
+ (hello \.)
+ (hi \.)
+ (hi there \.)))
+ (set (make-local-variable 'doctor--drnk)
+ '((do you drink a lot of (doc// doctor-found) \?)
+ (do you get drunk often \?)
+ ((doc$ doctor--describe) your drinking habits \.)))
+ (set (make-local-variable '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) \.)))
+ (set (make-local-variable '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) \?)))
+ (set (make-local-variable '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 \.)))
+ (set (make-local-variable 'doctor--want) '((want) (desire) (wish) (want) (hope)))
+ (set (make-local-variable '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 \?)))
+ (set (make-local-variable '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 \?)))
+ (set (make-local-variable 'doctor--huhlst)
+ '(((doc$ doctor--whysay)(doc// doctor-sent) \?)
+ (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
+ (set (make-local-variable 'doctor--longhuhlst)
+ '(((doc$ doctor--whysay) that \?)
+ (i don\'t understand \.)
+ ((doc$ doctor--thlst))
+ ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
+ (set (make-local-variable 'doctor--feelings-about) '((feelings about)
+ (apprehensions toward)
+ (thoughts on)
+ (emotions toward)))
+ (set (make-local-variable 'doctor--random-adjective)
+ '((vivid)
+ (emotionally stimulating)
+ (exciting)
+ (boring)
+ (interesting)
+ (recent)
+ (random) ; how can we omit this?
+ (unusual)
+ (shocking)
+ (embarrassing)))
+ (set (make-local-variable 'doctor--whysay) '((why do you say)
+ (what makes you believe)
+ (are you sure that)
+ (do you really think)
+ (what makes you think)))
+ (set (make-local-variable 'doctor--isee) '((i see \.\.\.)
+ (yes\,)
+ (i understand \.)
+ (oh \.) ))
+ (set (make-local-variable 'doctor--please) '((please\,)
+ (i would appreciate it if you would)
+ (perhaps you could)
+ (please\,)
+ (would you please)
+ (why don\'t you)
+ (could you)))
+ (set (make-local-variable 'doctor--bye)
+ '((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 \.)))
+ (set (make-local-variable 'doctor--something) '((something)
+ (more)
+ (how you feel)))
+ (set (make-local-variable 'doctor--thing) '((your life)
+ (your sex life)))
+ (set (make-local-variable 'doctor--things) '((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)))
+ (set (make-local-variable 'doctor--describe) '((describe)
+ (tell me about)
+ (talk about)
+ (discuss)
+ (tell me more about)
+ (elaborate on)))
+ (set (make-local-variable 'doctor--ibelieve)
+ '((i believe) (i think) (i have a feeling) (it seems to me that)
+ (it looks like)))
+ (set (make-local-variable 'doctor--problems) '((problems)
+ (inhibitions)
+ (hangups)
+ (difficulties)
+ (anxieties)
+ (frustrations)))
+ (set (make-local-variable 'doctor--bother) '((does it bother you that)
+ (are you annoyed that)
+ (did you ever regret)
+ (are you sorry)
+ (are you satisfied with the fact that)))
+ (set (make-local-variable 'doctor--machlst)
+ '((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 \?)))
+ (set (make-local-variable 'doctor--qlist)
+ '((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 \.)))
+ (set (make-local-variable 'doctor--foullst)
+ '(((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 \.)))
+ (set (make-local-variable 'doctor--deathlst)
+ '((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 \?)))
+ (set (make-local-variable 'doctor--sexlst)
+ '(((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) \.\.\. \?)))
+ (set (make-local-variable 'doctor--neglst) '((why not \?)
+ ((doc$ doctor--bother) i ask that \?)
+ (why not \?)
+ (why not \?)
+ (how come \?)
+ ((doc$ doctor--bother) i ask that \?)))
+ (set (make-local-variable 'doctor--beclst)
+ '((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) \? )))
+ (set (make-local-variable 'doctor--shortbeclst)
+ '(((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 \.)))
+ (set (make-local-variable 'doctor--thlst)
+ '(((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) \?)))
+ (set (make-local-variable 'doctor--remlst)
+ '((earlier you said (doc$ doctor--history) \?)
+ (you mentioned that (doc$ doctor--history) \?)
+ ((doc$ doctor--whysay)(doc$ doctor--history) \? )))
+ (set (make-local-variable 'doctor--toklst)
+ '((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 \?)))
+ (set (make-local-variable 'doctor--states)
+ '((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) \?)))
+ (set (make-local-variable 'doctor--replist) '((i . (you))
+ (my . (your))
+ (me . (you))
+ (you . (me))
+ (your . (my))
+ (mine . (yours))
+ (yours . (mine))
+ (our . (your))
+ (ours . (yours))
+ (we . (you))
+ (dunno . (do not know))
+ ;; (yes . ())
+ (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))))
+ (set (make-local-variable 'doctor--stallmanlst)
+ '(((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 \.)))
+ (set (make-local-variable 'doctor--schoollst)
+ '(((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) \.)))
+ (set (make-local-variable 'doctor--improve)
+ '((improve) (be better) (be improved) (be higher)))
+ (set (make-local-variable 'doctor--elizalst)
+ '(((doc$ doctor--areyou) (doc$ doctor--sure) \?)
+ ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.)
+ ((doc$ doctor--whysay) (doc// doctor-sent) \?)))
+ (set (make-local-variable 'doctor--sportslst)
+ '((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) \?)))
+ (set (make-local-variable 'doctor--mathlst)
+ '(((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 \.)))
+ (set (make-local-variable 'doctor--zippylst)
+ '(((doc$ doctor--areyou) Zippy \?)
+ ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
+ ((doc$ doctor--bother) you are a pinhead \?)))
+ (set (make-local-variable 'doctor--chatlst)
+ '(((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) \?)))
+ (set (make-local-variable 'doctor--abuselst)
+ '(((doc$ doctor--please) try to be less abusive \.)
+ ((doc$ doctor--describe) why you call me (doc// doctor-found) \.)
+ (i\'ve had enough of you!)))
+ (set (make-local-variable 'doctor--abusewords)
+ '(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))
+ (set (make-local-variable 'doctor--howareyoulst)
+ '((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)))
+ (set (make-local-variable 'doctor--whereoutp) '(huh remem rthing))
+ (set (make-local-variable 'doctor-subj) nil)
+ (set (make-local-variable 'doctor-verb) nil)
+ (set (make-local-variable 'doctor-obj) nil)
+ (set (make-local-variable 'doctor--feared) nil)
+ (set (make-local-variable 'doctor--repetitive-shortness) '(0 . 0))
+ (set (make-local-variable 'doctor--**mad**) nil)
+ (set (make-local-variable 'doctor--rms-flag) nil)
+ (set (make-local-variable 'doctor--eliza-flag) nil)
+ (set (make-local-variable 'doctor--zippy-flag) nil)
+ (set (make-local-variable 'doctor--suicide-flag) nil)
+ (set (make-local-variable 'doctor--lover) '(your partner))
+ (set (make-local-variable 'doctor--bak) nil)
+ (set (make-local-variable 'doctor--lincount) 0)
+ (set (make-local-variable 'doctor--*print-upcase*) nil)
+ (set (make-local-variable 'doctor--*print-space*) nil)
+ (set (make-local-variable 'doctor--howdyflag) nil)
+ (set (make-local-variable 'doctor-object) nil))