(DEFPROP ADVANCE
(LAMBDA NIL
 (RPLACA
  (CDAR RULES)
  (COND ((NULL (CDADAR RULES)) (CDDAR RULES)) ((CDADAR RULES)))))
EXPR)

(DEFPROP ANALYZE
(LAMBDA NIL
 (PROG (RULES PARSELIST DECOMP)
       (SETQ
        KEYSTACK
        (APPEND
         KEYSTACK
         (LIST
          (GET
           @NONE
           (COND ((ZEROP (SETQ FLIPFLOP (SUB 2 FLIPFLOP))) @MEM)
                 (@LASTRESORT))))))
  A    (SETQ RULES (GET (CAR KEYSTACK) @RULES))
  B    (SETQ
        DECOMP
        (CAAR
         (COND
          ((ATOM (CAR RULES)) (SETQ RULES (GET (CAR RULES) @RULES)))
          (RULES))))
       (SETQ PARSELIST NIL)
       (COND
        ((NOT (TEST DECOMP SENTENCE)) (SETQ RULES (CDR RULES)))
        ((AND (NOT (ATOM (CAR (SETQ RULES (CAR (ADVANCE))))))
              (NOT (EQ (CAAR RULES) @PRE)))
         (RETURN (SENTPRINT (RECONSTRUCT (CAR RULES)))))
        ((NOT (ATOM (CAR RULES)))
         (SETQ SENTENCE (RECONSTRUCT (CADAR RULES)))
         (SETQ RULES (CDDAR RULES)))
        ((EQ (CAR RULES) @NEWKEY)
         (SETQ KEYSTACK (CDR KEYSTACK))
         (GO A)))
       (GO B)))
EXPR)

(DEFPROP BREAKANALYZE
(LAMBDA NIL
 (COND ((EQ LETTER 15) (SETQ FLAG TERMINAL) (SETQ TERMINAL T))
       ((AND (SETQ FLAG (MEMQ LETTER PUNCTUATION)) KEYSTACK) (GOBBLE))
       (FLAG (SETQ SENTENCE (SETQ FLAG NIL)))
       ((NOT (EQ LETTER 12)) (SETQ TERMINAL NIL))))
EXPR)

(DEFPROP CLEANUP
(LAMBDA NIL
        (MAP @(LAMBDA (X Y) (RPLACA X (CAR Y))) OBLIST $OBLIST)
        (SETQ $OBLIST (UNBOUND)))
EXPR)

(DEFPROP GOBBLE
(LAMBDA NIL
 (PROG NIL
  A    (SETQ LETTER (TYI))
       (BREAKANALYZE)
       ((NOT FLAG) (GO A))))
EXPR)

(DEFPROP INITIALIZE
(LAMBDA NIL
 (PROG NIL (SETQ $OBLIST (MAPCAR T OBLIST))
           (SETQ SENTENCE (SETQ KEYSTACK NIL)))
) EXPR)

(DEFPROP MAKESENTENCE
(LAMBDA NIL
 (SETQ
  SENTENCE
  (CONS (COND ((SETQ FLAG (GET WORD @TRANSLATION)) FLAG) (WORD))
        SENTENCE)))
EXPR)

(DEFPROP MEMORY
(LAMBDA NIL
 (PROG (PARSELIST X)
       (COND
        ((AND (SETQ RULES (GET (CAR KEYSTACK) @MEMR))
              (TEST (CAAR RULES) SENTENCE))
         (RPLACA
          (SETQ X (CDAR (GET (GET @NONE @MEM) @RULES)))
          (APPEND (CAR X) (LIST (RECONSTRUCT (CAAR (ADVANCE))))))))))
EXPR)

(DEFPROP READIN
(LAMBDA NIL
 (PROG (WORD LETTER FLAG TERMINAL)
  A    (COND ((NULL (READWORD)) (GO B)))
       (MAKESENTENCE)
       (SETKEYSTACK)
       (SETQ TERMINAL NIL)
  B    (BREAKANALYZE)
       (COND ((NOT FLAG) (GO A)))
       (SETQ SENTENCE (DREVERSE SENTENCE))))
EXPR)

(DEFPROP READWORD
(LAMBDA NIL
 (PROG NIL
       (SETQ WORD NIL)
  A    (COND
        ((SETQ FLAG (MEMQ (SETQ LETTER (TYI)) BREAKLIST))

         (RETURN (COND (WORD (SETQ WORD (READLIST
                                         (CONS 57
                                               (DREVERSE WORD)))))))))
       (SETQ WORD (CONS LETTER WORD))
       (GO A)))
EXPR)

(DEFPROP RECONSTRUCT
(LAMBDA (R)
 (COND
  ((NULL R) NIL)
  ((NUMBERP (CAR R))
   (APPEND (RECO1 (CAR R) PARSELIST) (RECONSTRUCT (CDR R))))
  ((CONS (CAR R) (RECONSTRUCT (CDR R))))))
EXPR)

(DEFPROP RECO1 (LAMBDA (X P) (CAR (NTH P X))) EXPR)

(DEFPROP SENTPRINT
(LAMBDA (ANS)
        (TERPRI)
        (MAPC @(LAMBDA (X) (PRINC X) (TYO 40)) ANS)
        (TERPRI)
        (MEMORY))
EXPR)

(DEFPROP SETKEYSTACK
(LAMBDA NIL
 (COND
  ((AND (SETQ FLAG (GET WORD @PRIORITY))
        KEYSTACK
        (GREAT FLAG (GET (CAR KEYSTACK) @PRIORITY)))
   (SETQ KEYSTACK (CONS WORD KEYSTACK)))
  (FLAG (SETQ KEYSTACK (APPEND KEYSTACK (LIST WORD))))))
EXPR)

(DEFPROP TEST
(LAMBDA (D S)
 (PROG NIL
  G    (COND
        ((NULL D)
         (RETURN
          (COND ((NOT S) (SETQ PARSELIST (REVERSE PARSELIST))))))
        ((NOT
          (COND
           ((NUMBERP (CAR D))
            (COND ((ZEROP (CAR D)) (TEST5)) ((TEST3 (CAR D) NIL))))
           ((TEST4 (CAR D)) (TEST2))))
         (RETURN NIL)))
       (SETQ D (CDR D))
       (GO G)))
EXPR)

(DEFPROP TEST1
(LAMBDA (PROPL X)
 (COND ((NULL PROPL) NIL)
       ((GET X (CAR PROPL)) T)
       ((TEST1 (CDR PROPL) X))))
EXPR)

(DEFPROP TEST2
(LAMBDA NIL
 (PROG NIL
       (SETQ PARSELIST (CONS (LIST (CAR S)) PARSELIST))
       (SETQ S (CDR S))
       (RETURN T)))
EXPR)

(DEFPROP TEST3
(LAMBDA (X L)
 (COND
  ((ZEROP X) (SETQ PARSELIST (CONS (REVERSE L) PARSELIST)))
  (S (TEST3 (SUB1 X) (CONS (CAR S) (PROG2 (SETQ S (CDR S)) L))))))
EXPR)

(DEFPROP TEST4
(LAMBDA (D)
 (COND ((NULL S) NIL)
       ((ATOM D) (EQ D (CAR S)))
       ((CAR D) (MEMBER (CAR S) D))
       ((TEST1 (CDR D) (CAR S)))))
EXPR)

(DEFPROP TEST5
(LAMBDA NIL
 (PROG (L X)
       (COND
        ((NULL (CDR D)) (SETQ PARSELIST (CONS S PARSELIST))
                        (RETURN (NOT (SETQ S NIL)))))
  A    (COND
        ((SETQ X (PROG (PARSELIST) (RETURN (TEST (CDR D) S))))
         (SETQ D (LIST (SETQ S NIL)))
         (RETURN
          (SETQ PARSELIST (REVERSE (CONS (REVERSE L) X) PARSELIST))))
        ((AND (SETQ L (CONS (CAR S) L)) (SETQ S (CDR S))) (GO A)))))
EXPR)

(DEFPROP WORKER
(LAMBDA NIL
 (PROG (SENTENCE $OBLIST KEYSTACK)
  A    (INITIALIZE)
       (READIN)
       (ANALYZE)
       (TERPRI)
       (CLEANUP)
       (GO A)))
EXPR)

(DEFPROP YOU I TRANSLATION)

(DEFPROP WERE WAS TRANSLATION)

(DEFPROP AM ARE TRANSLATION)

(DEFPROP ME YOU TRANSLATION)

(DEFPROP DREAMED DREAMT TRANSLATION)

(DEFPROP I'M YOU'RE TRANSLATION)

(DEFPROP MOM MOTHER TRANSLATION)

(DEFPROP MYSELF YOURSELF TRANSLATION)

(DEFPROP I YOU TRANSLATION)

(DEFPROP YOU'RE I'M TRANSLATION)

(DEFPROP YOUR MY TRANSLATION)

(DEFPROP WONT WON'T TRANSLATION)

(DEFPROP DAD FATHER TRANSLATION)

(DEFPROP MY YOUR TRANSLATION)

(DEFPROP CANT CAN'T TRANSLATION)

(DEFPROP DONT DON'T TRANSLATION)

(DEFPROP YOURSELF MYSELF TRANSLATION)

(DEFPROP WHAT 0 PRIORITY)

(DEFPROP YOU 0 PRIORITY)

(DEFPROP IS 0 PRIORITY)

(DEFPROP WHEN 0 PRIORITY)

(DEFPROP NAME 17 PRIORITY)

(DEFPROP ALWAYS 1 PRIORITY)

(DEFPROP SVENSKA 0 PRIORITY)

(DEFPROP BECAUSE 0 PRIORITY)

(DEFPROP OH 12 PRIORITY)

(DEFPROP CAN 0 PRIORITY)

(DEFPROP WERE 0 PRIORITY)

(DEFPROP ALIKE 12 PRIORITY)

(DEFPROP AM 0 PRIORITY)

(DEFPROP ARE 0 PRIORITY)

(DEFPROP WHERE 0 PRIORITY)

(DEFPROP SORRY 0 PRIORITY)

(DEFPROP DREAMT 4 PRIORITY)

(DEFPROP DREAMED 4 PRIORITY)

(DEFPROP DREAM 3 PRIORITY)

(DEFPROP DREAMS 3 PRIORITY)

(DEFPROP I'M 0 PRIORITY)

(DEFPROP SAME 12 PRIORITY)

(DEFPROP DEUTSCH 0 PRIORITY)

(DEFPROP IF 3 PRIORITY)

(DEFPROP XXYYZZ 0 PRIORITY)

(DEFPROP NOONE 2 PRIORITY)

(DEFPROP ESPANOL 0 PRIORITY)

(DEFPROP MACHINES 62 PRIORITY)

(DEFPROP MACHINE 62 PRIORITY)

(DEFPROP LIKE 12 PRIORITY)

(DEFPROP BAG 5 PRIORITY)

(DEFPROP HELLO 0 PRIORITY)

(DEFPROP I 0 PRIORITY)

(DEFPROP YOU'RE 0 PRIORITY)

(DEFPROP PERHAPS 0 PRIORITY)

(DEFPROP NOBODY 2 PRIORITY)

(DEFPROP WAS 2 PRIORITY)

(DEFPROP YES 0 PRIORITY)

(DEFPROP YOUR 0 PRIORITY)

(DEFPROP MAYBE 0 PRIORITY)

(DEFPROP CERTAINLY 0 PRIORITY)

(DEFPROP COMPUTER 62 PRIORITY)

(DEFPROP COMPUTERS 62 PRIORITY)

(DEFPROP HOW 0 PRIORITY)

(DEFPROP NO 0 PRIORITY)

(DEFPROP EVERYONE 2 PRIORITY)

(DEFPROP EVERYBODY 2 PRIORITY)

(DEFPROP FRANCAIS 0 PRIORITY)

(DEFPROP MY 2 PRIORITY)

(DEFPROP REMEMBER 5 PRIORITY)

(DEFPROP WHY 0 PRIORITY)

(DEFPROP ITALIANO 0 PRIORITY)

(DEFPROP WHAT
(((0) (NIL)
      (WHY DO YOU ASK)
      (DOES THAT QUESTION INTEREST YOU)
      (WHAT IS IT YOU REALLY WANT TO KNOW)
      (ARE SUCH QUESTIONS MUCH ON YOUR MIND)
      (WHAT ANSWER WOULD PLEASE YOU MOST)
      (WHAT DO YOU THINK)
      (WHAT COMES TO YOUR MIND WHEN YOU ASK THAT)
      (HAVE YOU ASKED SUCH QUESTIONS BEFORE)
      (HAVE YOU ASKED ANYONE ELSE)))
RULES)

(DEFPROP YOU
(((0 I REMIND YOU OF 0) (NIL) DIT)
 ((0 I ARE 0 YOU 0) (NIL) (PRE (1 2 3 4) YOU))
 ((0 I 0 ARE 0) (NIL)
                (WHAT MAKES YOU THINK I AM 5)
                (DOES IT PLEASE YOU TO BELIEVE I AM 5)
                (PERHAPS YOU WOULD LIKE TO BE 5)
                (DO YOU SOMETIMES WISH YOU WERE 5))
 ((0 I 0 YOU) (NIL)
              (WHY DO YOU THINK I 3 YOU)
              (YOU LIKE TO THINK I 3 YOU/, DON'T YOU)
              (WHAT MAKES YOU THINK I 3 YOU)
              (REALLY/, I 3 YOU)
              (DO YOU WISH TO BELIEVE I 3 YOU)
              (SUPPOSE I DID 3 YOU/, WHAT WOULD THAT MEAN)
              (DOES SOMEONE ELSE BELIEVE I 3 YOU))
 ((0 I 1 0) (NIL)
            (WE WERE DISCUSSING YOU/, NOT ME)
            (OH/, I 3 4)
            (YOU'RE NOT REALLY TALKING ABOUT ME/, ARE YOU)
            (WHAT ARE YOUR FEELINGS NOW))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP IS
(((1 0 IS 1 0) (NIL)
               (SUPPOSE 1 2 WERE NOT 4 5)
               (PERHAPS 1 2 REALLY IS 4 5)
               (TELL ME MORE ABOUT 1 2))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP WHEN (WHAT) RULES)

(DEFPROP NAME
(((0)
  (NIL)
  (I AM NOT INTERESTED IN NAMES)
  (I'VE TOLD YOU BEFORE I DON'T CARE ABOUT NAMES/, PLEASE CONTINUE)))
RULES)

(DEFPROP ZZYYXX (((0) (NIL) NEWKEY)) RULES)

(DEFPROP ALWAYS
(((0) (NIL)
      (CAN YOU THINK OF A SPECIFIC EXAMPLE)
      (WHEN)
      (WHAT INCIDENT ARE YOU THINKING OF)
      (REALLY/, ALWAYS)))
RULES)

(DEFPROP SVENSKA (DEUTSCH) RULES)

(DEFPROP BECAUSE
(((0) (NIL)
      (IS THAT THE REAL REASON)
      (DON'T ANY OTHER REASONS COME TO MIND)
      (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE)
      (WHAT OTHER REASONS MIGHT THERE BE)))
RULES)

(DEFPROP OH
(((0 MY OH MY 0) (NIL) (PRE (1 MY-OH-MY 5) ZZYYXX))
 ((0 OH MY 0) (NIL) (PRE (1 OH-MY 4) ZZYYXX))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP CAN
(((0 CAN I 0) (NIL)
              (YOU BELIEVE I CAN 4 DON'T YOU)
              WHAT
              (YOU WANT ME TO BE ABLE TO 4)
              (PERHAPS YOU WOULD LIKE TO BE ABLE TO 4 YOURSLEF))
 ((0 CAN YOU 0)
  (NIL)
  (WHETHER OR NOT YOU CAN 4 DEPENDS ON YOU MORE THAN ON ME)
  (DO YOU WANT TO BE ABLE TO 4)
  (PERHAPS YOU DON'T WANT TO 4)
  WHAT)
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP WERE (WAS) RULES)

(DEFPROP ALIKE (DIT) RULES)

(DEFPROP AM
(((0 ARE YOU 0) (NIL)
                (DO YOU BELIEVE YOU ARE 4)
                (WOULD YOU WANT TO BE 4)
                (YOU WISH I WOULD TELL YOU YOU ARE 4)
                (WHAT WOULD IT MEAN IF YOU WERE 4)
                WHAT)
 ((0) (NIL) (WHY DO YOU SAY AM) (I DON'T UNDERSTAND THAT)))
RULES)

(DEFPROP ARE
(((0 THERE ARE 0 YOU 0) (NIL) (PRE (1 2 3 4) ARE))
 ((0 THERE ARE 1 0)
  (NIL)
  (WHAT MAKES YOU THINK 2 3 4 5)
  (DO YOU USUALLY CONSIDER 4 5)
  (DO YOU WISH 2 WERE 4 5))
 ((0 THERE ARE 0) (NIL) NEWKEY)
 ((0 ARE I 0) (NIL)
              (WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT)
              (WOULD YOU PREFER IF I WEREN'T 4)
              (PERHAPS I AM 4 IN YOUR FANTASIES)
              (DO YOU SOMETIMES THINK I AM 4)
              WHAT)
 ((ARE 0) (NIL) WHAT)
 ((0 ARE 0) (NIL)
            (DID YOU THINK THEY MIGHT NOT BE 3)
            (WOULD YOU LIKE IT IF THEY WERE NOT 3)
            (WHAT IF THEY WERE NOT 3)
            (POSSIBLY THEY ARE 3)))
RULES)

(DEFPROP WHERE (WHAT) RULES)

(DEFPROP SORRY
(((0) (NIL)
      (PLEASE DON'T APOLOGIZE)
      (APOLOGIES ARE NOT NECESSARY)
      (WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE)
      (I'VE TOLD YOU THAT APOLOGIES ARE NOT REQUIRED)))
RULES)

(DEFPROP DREAMT
(((0 YOU DREAMT 0) (NIL)
                   (REALLY 4)
                   (HAVE YOU EVER FANTASIED 4 WHILE YOU WERE AWAKE)
                   (HAVE YOU DREAMT 4 BEFORE)
                   DREAM
                   NEWKEY)
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP DREAM
(((0)
  (NIL)
  (WHAT DOES THAT DREAM SUGGEST TO YOU)
  (DO YOU DREAM OFTEN)
  (WHAT PERSONS APPEAR IN YOUR DREAMS)
  (DON'T YOU
         BELIEVE
         THAT
         DREAM
         HAS
         SOMETHING
         TO
         DO
         WITH
         YOUR
         PROBLEM)
  NEWKEY))
RULES)

(DEFPROP DREAMS (DREAM) RULES)

(DEFPROP I'M (((0 YOU'RE 0) (NIL) (PRE (YOU ARE 3) I))) RULES)

(DEFPROP SAME (DIT) RULES)

(DEFPROP L20605 (((0) (NIL) L31405)) RULES)

(DEFPROP L31405
(((0) (NIL)
      (I AM NOT SURE I UNDERSTAND YOU FULLY)
      (PLEASE GO ON)
      (WHAT DOES THAT SUGGEST TO YOU)
      (DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS)))
RULES)

(DEFPROP DEUTSCH
        (((0) (NIL) (I AM SORRY/, I SPEAK ONLY ENGLISH)))
        RULES)

(DEFPROP IF
(((0 IF 0 HAD 0) (NIL) (PRE (1 2 3 MIGHT HAVE 5) IF))
 ((0 IF 0) (NIL)
           (DO YOU THINK ITS LIKELY THAT 3)
           (DO YOU WISH THAT 3)
           (WHAT DO YOU THINK ABOUT 3)
           (REALLY IF 3)))
RULES)

(DEFPROP XXYYZZ
(((0) (NIL)
      (YOURE BEING SOMEWHAT SHORT WITH ME)
      (YOU DONT SEEM VERY TALKITIVE TODAY)
      (PERHAPS YOUD RATHER TALK ABOUT SOMETHING ELSE)
      (ARE YOU USING MONOSYLLABLES FOR SOME REASON)))
RULES)

(DEFPROP NOONE (EVERYONE) RULES)

(DEFPROP ESPANOL (DEUTSCH) RULES)

(DEFPROP MACHINES (COMPUTER) RULES)

(DEFPROP MACHINE (COMPUTER) RULES)

(DEFPROP LIKE
        (((0 (AM IS ARE WAS) 0 LIKE 0) (NIL) DIT) ((0) (NIL) NEWKEY))
        RULES)

(DEFPROP BAG
(((0 (BITE BITES) THE BAG)
  (NIL)
  (DO YOU SAY 1 2 3 4 FOR SOME SPECIAL REASON)
  (WHAT MIGHT 1 HAVE TO DO WITH YOUR PROBLEM)
  (DO YOU OFTEN SAY 2 3 4)
  (PERHAPS YOU FEEL THAT YOU BITE 3 4))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP HELLO
        (((0) (NIL) (HOW DO YOU DO/, PLEASE STATE YOUR PROBLEM)))
        RULES)

(DEFPROP I
(((0 YOU (WANT NEED) 0)
  (NIL)
  (WHAT WOULD IT MEAN TO YOU IF YOU GOT 4)
  (WHY DO YOU WANT 4)
  (SUPPOSE YOU GOT 4 SOON)
  (WHAT IF YOU NEVER GOT 4)
  (WHAT WOULD GETTING 4 MEAN TO YOU)
  (WHAT DOES WANTING 4 HAVE TO DO WITH THIS DISCUSSION))
 ((0 YOU ARE 0 (SAD UNHAPPY DEPRESSED SICK) 0)
  (NIL)
  (I AM SORRY TO HEAR YOU ARE 5)
  (DO YOU THINK COMING HERE WILL HELP YOU NOT TO BE 5)
  (I'M SURE ITS NOT PLEASANT TO BE 5)
  (CAN YOU EXPLAIN WHAT MADE YOU 5))
 ((0 YOU ARE 0 (HAPPY ELATED GLAD BETTER) 0)
  (NIL)
  (HOW HAVE I HELPED YOU TO BE 5)
  (HAS YOUR TREATMENT MADE YOU 5)
  (WHAT MAKES YOU 5 JUST NOW)
  (CAN YOU EXPLAIN WHY YOU ARE SUDDENLY 5))
 ((0 YOU WAS 0) (NIL) WAS)
 ((0 YOU (NIL BELIEF) YOU 0)
  (NIL)
  (DO YOU REALLY THINK SO)
  (BUT YOU ARE NOT SURE YOU 5)
  (DO YOU REALLY DOUBT YOU 5))
 ((0 YOU 0 (NIL BELIEF) 0 I 0) (NIL) YOU)
 ((0 YOU ARE 0) (NIL)
                (IS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME)
                (HOW LONG HAVE YOU BEEN 4)
                (DO YOU BELIEVE IT NORMAL TO BE 4)
                (DO YOU ENJOY BEING 4))
 ((0 YOU (CAN'T CANNOT) 0)
  (NIL)
  (HOW DO YOU KNOW YOU CAN'T 4)
  (HAVE YOU TRIED)
  (PERHAPS YOU COULD 4 NOW)
  (DO YOU REALLY WANT TO BE ABLE TO 4))
 ((0 YOU DON'T 0) (NIL)
                  (DON'T YOU REALLY 4)
                  (WHY DON'T YOU 4)
                  (DO YOU WISH TO BE ABLE TO 4)
                  (DOES THAT TROUBLE YOU))
 ((0 YOU FEEL 0) (NIL)
                 (TELL ME MORE ABOUT SUCH FEELINGS)
                 (DO YOU OFTEN FEEL 4)
                 (DO YOU ENJOY FEELING 4)
                 (OF WHAT DOES FEELING 4 REMIND YOU))
 ((0 YOU 0 I 0) (NIL)
                (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER)
                (DO YOU WISH TO 3 ME)
                (YOU SEEM TO NEED TO 3 ME)
                (DO YOU 3 ANYONE ELSE))
 ((0) (NIL)
      (YOU SAY 1)
      (CAN YOU ELABORATE ON THAT)
      (DO YOU SAY 1 FOR SOME SPECIAL REASON)
      (THAT'S QUITE INTERESTING)))
RULES)

(DEFPROP YOU'RE (((0 I'M 0) (NIL) (PRE (I ARE 3) YOU))) RULES)

(DEFPROP PERHAPS
(((0) (NIL)
      (YOU DON'T SEEM QUITE CERTAIN)
      (WHY THE UNCERTAIN TONE)
      (CAN'T YOU BE MORE POSITIVE)
      (YOU AREN'T SURE)
      (DON'T YOU KNOW)))
RULES)

(DEFPROP NOBODY (EVERYONE) RULES)

(DEFPROP WAS
(((0 WAS YOU 0) (NIL)
                (WHAT IF YOU WERE 4)
                (DO YOU THINK YOU WERE 4)
                (WERE YOU 4)
                (WHAT WOULD IT MEAN IF YOU WERE 4)
                (WHAT DOES 4 SUGGEST TO YOU)
                WHAT)
 ((0 YOU WAS 0) (NIL)
                (WERE YOU REALLY)
                (WHY DO YOU TELL ME YOU WERE 4 NOW)
                (PERHAPS I ALREADY KNOW YOU WERE 4))
 ((0 WAS I 0) (NIL)
              (WOULD YOU LIKE TO BELIEVE I WAS 4)
              (WHAT SUGGEST THAT I WAS 4)
              (WHAT DO YOU THINK)
              (PERHAPS I WAS 4)
              (WHAT IF I HAD BEEN 4))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP YES
(((YES) (NIL) XXYYZZ (PRE (X YES) YES))
 ((0) (NIL)
      (YOU SEEM QUITE POSITIVE)
      (YOU ARE SURE)
      (I SEE)
      (I UNDERSTAND)))
RULES)

(DEFPROP YOUR
(((0 MY 0) (NIL)
           (WHY ARE YOU CONCERNED OVER MY 3)
           (WHAT ABOUT YOUR OWN 3)
           (ARE YOU WORRIED ABOUT SOMEONE ELSES 3)
           (REALLY/, MY 3)))
RULES)

(DEFPROP MAYBE (PERHAPS) RULES)

(DEFPROP CERTAINLY (YES) RULES)

(DEFPROP COMPUTER
(((0) (NIL)
      (DO COMPUTERS WORRY YOU)
      (WHY DO YOU MENTION COMPUTERS)
      (WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM)
      (DON'T YOU THINK COMPUTERS CAN HELP PEOPLE)
      (WHAT ABOUT MACHINES WORRIES YOU)
      (WHAT DO YOU THINK ABOUT MACHINES)))
RULES)

(DEFPROP COMPUTERS (COMPUTER) RULES)

(DEFPROP HOW (WHAT) RULES)

(DEFPROP NO
(((NO) (NIL) XXYYZZ (PRE (X NO) NO))

 ((0) (NIL)
      (ARE YOU SAYING NO JUST TO BE NEGATIVE)
      (YOU ARE BEING A BIT NEGATIVE)
      (WHY NOT)
      (WHY NO)))
RULES)

(DEFPROP EVERYONE
(((0 (EVERYONE EVERYBODY NOBODY NOONE) 0)
  (NIL)
  (REALLY/, 2)
  (SURELY NOT 2)
  (CAN YOU THINK OF ANYONE IN PARTICULAR)
  (WHO/, FOR EXAMPLE)
  (YOU ARE THINKING OF A VERY SPECIAL PERSON)
  (WHO/, MAY I ASK)
  (SOMEONE SPECIAL PERHAPS)
  (YOU HAVE A PARTICULAR PERSON IN MIND/, DON'T YOU)
  (WHO DO YOU THINK YOU'RE TALKING ABOUT)))
RULES)

(DEFPROP FRANCAIS (DEUTSCH) RULES)

(DEFPROP MY
(((0 YOUR 0 (NIL FAMILY) 0)
  (NIL)
  (TELL ME MORE ABOUT YOUR FAMILY)
  (WHO ELSE IN YOUR FAMILY 5)
  (YOUR 4)
  (WHAT ELSE COMES TO MIND WHEN YOU THINK OF YOUR 4))
 ((0 YOUR 1 0) (NIL)
               (YOUR 3 4)
               (WHY DO YOU SAY YOUR 3 4)
               (DOES THAT SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU)
               (IS IT IMPORTANT TO YOU THAT YOUR 3 4))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP DIT
(((0) (NIL)
      (IN WHAT WAY)
      (WHAT RESEMBLANCE DO YOU SEE)
      (WHAT DOES THAT SUGGEST TO YOU)
      (WHAT OTHER CONNECTIONS DO YOU SEE)
      (WHAT DO YOU SUPPOSE THAT RESEMBLANCE MEANS)
      (WHAT IS THE CONNECTION/, DO YOU SUPPOSE)
      (COULD THERE REALLY BE SOME CONNECTION)
      (HOW)))
RULES)

(DEFPROP REMEMBER
(((0 YOU REMEMBER 0)
  (NIL)
  (DO YOU OFTEN THINK OF 4)
  (DOES THINKING OF 4 BRING ANYTHING ELSE TO MIND)
  (WHAT ELSE DO YOU REMEMBER)
  (WHY DO YOU REMEMBER 4 JUST NOW)
  (WHAT IN THE PRESENT SITUATION REMINDS YOU OF 4)
  (WHAT IS THE CONNECTION BETWEEN ME AND 4))
 ((0 DO I REMEMBER 0)
  (NIL)
  (DID YOU THINK I WOULD FORGET 5)
  (WHY DO YOU THINK I SHOULD RECALL 5 NOW)
  (WHAT ABOUT 5)
  WHAT
  (YOU MENTIONED 5))
 ((0) (NIL) NEWKEY))
RULES)

(DEFPROP WHY
(((0 WHY DON'T I 0)
  (NIL)
  (DO YOU BELIEVE I DON'T 5)
  (PERHAPS I WILL 5 IN GOOD TIME)
  (SHOULD YOU 5 YOURSELF)
  (YOU WANT ME TO 5)
  WHAT)
 ((0 WHY CAN'T YOU 0)
  (NIL)
  (DO YOU THINK YOU SHOULD BE ABLE TO 5)
  (DO YOU WANT TO BE ABLE TO 5)
  (DO YOU BELIEVE THIS WILL HELP YOU TO 5)
  (HAVE YOU ANY IDEA WHY YOU CAN'T 5)
  WHAT)
 WHAT)
RULES)

(DEFPROP ITALIANO (DEUTSCH) RULES)

(SETQ PUNCTUATION
(MAPCAR CHRVAL
        (LIST @? @! @: @/. @/, @/; @/( @/) )))
(SETQ BREAKLIST (APPEND PUNCTUATION (LIST 40 11 12 13 14 15)))

(DEFPROP BROTHER T FAMILY)

(DEFPROP WIFE T FAMILY)

(DEFPROP CHILDREN T FAMILY)

(DEFPROP MOTHER T FAMILY)

(DEFPROP SISTER T FAMILY)

(DEFPROP MOM T FAMILY)

(DEFPROP FATHER T FAMILY)

(DEFPROP DAD T FAMILY)

(DEFPROP MY
(((0 YOUR 1 0)
  (NIL)
  (LETS DISCUSS FURTHER WHY YOUR 3 4)
  (EARLIER YOU SAID YOUR 3 4)
  (BUT YOUR 3 4)
  (DOES THAT HAVE ANYTHING TO DO WITH YOUR STATEMENT ABOUT YOUR 3 4))
) MEMR)

(DEFPROP NONE L31405 LASTRESORT)

(DEFPROP FEEL T BELIEF)

(DEFPROP BELIEVE T BELIEF)

(DEFPROP THINK T BELIEF)

(DEFPROP WISH T BELIEF)

(DEFPROP NONE L20605 MEM)
(SETQ FLIPFLOP 2)