; * lisp/play/doctor.el (make-doctor-variables): Fix indentation.

1 files changed, 311 insertions, 311 deletions

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 1549eb7d964..8fc207da351 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -146,380 +146,380 @@ reads the sentence before point, and prints the Doctor's answer."
 
 (defun make-doctor-variables ()
   (setq-local 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)))))
+              (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)))))
   (setq-local doctor-sent nil)
   (setq-local doctor-found nil)
   (setq-local doctor-owner nil)
   (setq-local doctor--history nil)
   (setq-local doctor--inter '((well\,)
-                                      (hmmm \.\.\.\ so\,)
-                                      (so)
-                                      (\.\.\.and)
-                                      (then)))
+                              (hmmm \.\.\.\ so\,)
+                              (so)
+                              (\.\.\.and)
+                              (then)))
   (setq-local doctor--continue '((continue)
-                                                 (proceed)
-                                                 (go on)
-                                                 (keep going)))
+                                 (proceed)
+                                 (go on)
+                                 (keep going)))
   (setq-local doctor--relation
-       '((your relationship with)
-         (something you remember about)
-         (your feelings toward)
-         (some experiences you have had with)
-         (how you feel about)))
+              '((your relationship with)
+                (something you remember about)
+                (your feelings toward)
+                (some experiences you have had with)
+                (how you feel about)))
   (setq-local 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) \?)))
+              '(((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) \?)))
   (setq-local doctor--sure '((sure)
-                                             (positive)
-                                             (certain)
-                                             (absolutely sure)))
+                             (positive)
+                             (certain)
+                             (absolutely sure)))
   (setq-local doctor--afraidof '((afraid of)
-                                         (frightened by)
-                                         (scared of)))
+                                 (frightened by)
+                                 (scared of)))
   (setq-local doctor--areyou '((are you)
-                                       (have you been)
-                                       (have you been)))
+                               (have you been)
+                               (have you been)))
   (setq-local doctor--isrelated
-       '((has something to do with)
-         (is related to)
-         (could be the reason for)
-         (is caused by)
-         (is because of)))
+              '((has something to do with)
+                (is related to)
+                (could be the reason for)
+                (is caused by)
+                (is because of)))
   (setq-local doctor--arerelated '((have something to do with)
-                                           (are related to)
-                                           (could have caused)
-                                           (could be the reason for)
-                                           (are caused by)
-                                           (are because of)))
+                                   (are related to)
+                                   (could have caused)
+                                   (could be the reason for)
+                                   (are caused by)
+                                   (are because of)))
   (setq-local 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) \?)))
+              '(((doc$ doctor--areyou) (doc// doctor-found) often \?)
+                (what causes you to be (doc// doctor-found) \?)
+                ((doc$ doctor--whysay) you are (doc// doctor-found) \?)))
   (setq-local doctor--maybe '((maybe)
-                                      (perhaps)
-                                      (possibly)))
+                              (perhaps)
+                              (possibly)))
   (setq-local doctor--whatwhen '((what happened when)
-                                                 (what would happen if)))
+                                 (what would happen if)))
   (setq-local doctor--hello '((how do you do \?)
-                                      (hello \.)
-                                      (howdy!)
-                                      (hello \.)
-                                      (hi \.)
-                                      (hi there \.)))
+                              (hello \.)
+                              (howdy!)
+                              (hello \.)
+                              (hi \.)
+                              (hi there \.)))
   (setq-local doctor--drnk
-       '((do you drink a lot of (doc// doctor-found) \?)
-         (do you get drunk often \?)
-         ((doc$ doctor--describe) your drinking habits \.)))
+              '((do you drink a lot of (doc// doctor-found) \?)
+                (do you get drunk often \?)
+                ((doc$ doctor--describe) your drinking habits \.)))
   (setq-local 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) \.)))
+              '((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) \.)))
   (setq-local 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) \?)))
+              '(((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) \?)))
   (setq-local 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 \.)))
+              '((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 \.)))
   (setq-local doctor--want '((want) (desire) (wish) (want) (hope)))
   (setq-local 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 \?)))
+              '((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 \?)))
   (setq-local 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 \?)))
+              '((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 \?)))
   (setq-local doctor--huhlst
-       '(((doc$ doctor--whysay) (doc// doctor-sent) \?)
-         (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
+              '(((doc$ doctor--whysay) (doc// doctor-sent) \?)
+                (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
   (setq-local doctor--longhuhlst
-       '(((doc$ doctor--whysay) that \?)
-         (i don\'t understand \.)
-         ((doc$ doctor--thlst))
-         ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
+              '(((doc$ doctor--whysay) that \?)
+                (i don\'t understand \.)
+                ((doc$ doctor--thlst))
+                ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
   (setq-local doctor--feelings-about '((feelings about)
-                                               (apprehensions toward)
-                                               (thoughts on)
-                                               (emotions toward)))
+                                       (apprehensions toward)
+                                       (thoughts on)
+                                       (emotions toward)))
   (setq-local doctor--random-adjective
-       '((vivid)
-         (emotionally stimulating)
-         (exciting)
-         (boring)
-         (interesting)
-         (recent)
-         (random) ; how can we omit this?
-         (unusual)
-         (shocking)
-         (embarrassing)))
+              '((vivid)
+                (emotionally stimulating)
+                (exciting)
+                (boring)
+                (interesting)
+                (recent)
+                (random) ; how can we omit this?
+                (unusual)
+                (shocking)
+                (embarrassing)))
   (setq-local doctor--whysay '((why do you say)
-                                       (what makes you believe)
-                                       (are you sure that)
-                                       (do you really think)
-                                       (what makes you think)))
+                               (what makes you believe)
+                               (are you sure that)
+                               (do you really think)
+                               (what makes you think)))
   (setq-local doctor--isee '((i see \.\.\.)
-                                     (yes\,)
-                                     (i understand \.)
-                                     (oh \.) ))
+                             (yes\,)
+                             (i understand \.)
+                             (oh \.) ))
   (setq-local doctor--please '((please\,)
-                                       (i would appreciate it if you would)
-                                       (perhaps you could)
-                                       (please\,)
-                                       (would you please)
-                                       (why don\'t you)
-                                       (could you)))
+                               (i would appreciate it if you would)
+                               (perhaps you could)
+                               (please\,)
+                               (would you please)
+                               (why don\'t you)
+                               (could you)))
   (setq-local 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 \.)))
+              '((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 \.)))
   (setq-local doctor--something '((something)
-                                                  (more)
-                                                  (how you feel)))
+                                  (more)
+                                  (how you feel)))
   (setq-local doctor--thing '((your life)
-                                      (your sex life)))
+                              (your sex life)))
   (setq-local 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)))
+                               (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)))
   (setq-local doctor--describe '((describe)
-                                         (tell me about)
-                                         (talk about)
-                                         (discuss)
-                                         (tell me more about)
-                                         (elaborate on)))
+                                 (tell me about)
+                                 (talk about)
+                                 (discuss)
+                                 (tell me more about)
+                                 (elaborate on)))
   (setq-local doctor--ibelieve
-       '((i believe) (i think) (i have a feeling) (it seems to me that)
-         (it looks like)))
+              '((i believe) (i think) (i have a feeling) (it seems to me that)
+                (it looks like)))
   (setq-local doctor--problems '((problems)
-                                         (inhibitions)
-                                         (hangups)
-                                         (difficulties)
-                                         (anxieties)
-                                         (frustrations)))
+                                 (inhibitions)
+                                 (hangups)
+                                 (difficulties)
+                                 (anxieties)
+                                 (frustrations)))
   (setq-local 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)))
+                               (are you annoyed that)
+                               (did you ever regret)
+                               (are you sorry)
+                               (are you satisfied with the fact that)))
   (setq-local 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 \?)))
+              '((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 \?)))
   (setq-local 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 \.)))
+              '((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 \.)))
   (setq-local 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 \.)))
+              '(((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 \.)))
   (setq-local 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 \?)))
+              '((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 \?)))
   (setq-local 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) \.\.\. \?)))
+              '(((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) \.\.\. \?)))
   (setq-local doctor--neglst '((why not \?)
-                                       ((doc$ doctor--bother) i ask that \?)
-                                       (why not \?)
-                                       (why not \?)
-                                       (how come \?)
-                                       ((doc$ doctor--bother) i ask that \?)))
+                               ((doc$ doctor--bother) i ask that \?)
+                               (why not \?)
+                               (why not \?)
+                               (how come \?)
+                               ((doc$ doctor--bother) i ask that \?)))
   (setq-local 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) \? )))
+              '((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) \? )))
   (setq-local 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 \.)))
+              '(((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 \.)))
   (setq-local 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) \?)))
+              '(((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) \?)))
   (setq-local doctor--remlst
-       '((earlier you said (doc$ doctor--history) \?)
-         (you mentioned that (doc$ doctor--history) \?)
-         ((doc$ doctor--whysay) (doc$ doctor--history) \? )))
+              '((earlier you said (doc$ doctor--history) \?)
+                (you mentioned that (doc$ doctor--history) \?)
+                ((doc$ doctor--whysay) (doc$ doctor--history) \? )))
   (setq-local 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 \?)))
+              '((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 \?)))
   (setq-local 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) \?)))
+              '((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) \?)))
   (setq-local 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))))
+                                (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))))
   (setq-local 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 \.)))
+              '(((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 \.)))
   (setq-local 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) \.)))
+              '(((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) \.)))
   (setq-local doctor--improve
-       '((improve) (be better) (be improved) (be higher)))
+              '((improve) (be better) (be improved) (be higher)))
   (setq-local 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) \?)))
+              '(((doc$ doctor--areyou) (doc$ doctor--sure) \?)
+                ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.)
+                ((doc$ doctor--whysay) (doc// doctor-sent) \?)))
   (setq-local 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) \?)))
+              '((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) \?)))
   (setq-local 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 \.)))
+              '(((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 \.)))
   (setq-local doctor--zippylst
-       '(((doc$ doctor--areyou) Zippy \?)
-         ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
-         ((doc$ doctor--bother) you are a pinhead \?)))
+              '(((doc$ doctor--areyou) Zippy \?)
+                ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
+                ((doc$ doctor--bother) you are a pinhead \?)))
   (setq-local 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) \?)))
+              '(((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) \?)))
   (setq-local 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!)))
+              '(((doc$ doctor--please) try to be less abusive \.)
+                ((doc$ doctor--describe) why you call me (doc// doctor-found) \.)
+                (i\'ve had enough of you!)))
   (setq-local 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))
+              '(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))
   (setq-local 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)))
+              '((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)))
   (setq-local doctor--whereoutp '(huh remem rthing))
   (setq-local doctor-subj nil)
   (setq-local doctor-verb nil)