From 7de97d67ef785ec9536a455fde49e501f730e023 Mon Sep 17 00:00:00 2001 From: jeffshrager Date: Fri, 19 Jan 2024 19:46:23 -0800 Subject: [PATCH] no message --- Other_Elizas/ITS_SRC_libdoc_doctor.jonl2 | 1070 ++++++++++++++++++++++ 1 file changed, 1070 insertions(+) create mode 100644 Other_Elizas/ITS_SRC_libdoc_doctor.jonl2 diff --git a/Other_Elizas/ITS_SRC_libdoc_doctor.jonl2 b/Other_Elizas/ITS_SRC_libdoc_doctor.jonl2 new file mode 100644 index 0000000..86623ce --- /dev/null +++ b/Other_Elizas/ITS_SRC_libdoc_doctor.jonl2 @@ -0,0 +1,1070 @@ + +(DECLARE (SPECIAL TERMINAL LETTER WORD SENTENCE KEYSTACK TERMINALWIDTH + CARRIAGERETURN RUBOUT LINEFEED FLAG PARSELIST + RULES FLIPFLOP S D LINE) + (SPECIAL READTABLE) + (FIXSW T) + (EVAL (READ))) + +(PROG2 (SETSYNTAX 39. (QUOTE MACRO) NIL) + (SETSYNTAX 59. (QUOTE MACRO) NIL)) + +(COMMENT DOCTOR PART ONE - THE BASIC FUNCTIONS) + +(COMMENT UNUSUAL READER OPTIONS - + THE FOLLOWING CHARACTERS ARE TREATED SYNTACTICALLY + JUST LIKE ALPHABETIC LETTERS: ! /" /# $ % & * = < > ? : + NORMALLY/, SINGLE-QUOTE AND SEMI-COLON HAVE SPECIAL + SIGNIFICANCES/, BUT THE SETSYNTAX FUNCTION IS CALLED TO + OVERRIDE THEM FOR OTHER ODBALL CHARACTERS/, SLASH (IE //) + ACTS AS A CHARACTER QUOTING DEVICE THE ASCII CHARACTER + FOLLOWING IT IS TAKEN LITERALLY/, NAMELY SYNTACTICALLY THE + SAME AS AN ALPHABETIC LETTER ALSO/, INPUT BASE FOR STRINGS + OF DIGITS IS NORMALLY EIGHT INSTEAD OF TEN + ) + + +(COMMENT UNUSUAL FUNCTIONS ARE : + COMMENT - FSUBR WHICH PRODUCES THE ATOM COMMENT AS ITS VALUE + ASCII - USED TO GENERATE CHARACTER OBJECTS WITH BIZZARE PNAMES + DEFUN - USED FOR DEFINING FUNCTIONS/, FIRST ARG IS FUNCTION NAME/, + SECOND IS LAMBDA LIST/, THIRD IS FUNCTION EXPRESSION + PRIN1 - PRINTS ONE S-EXPRESSION/, INSERTING SLASHES + BEFORE ANY SYNTACTICALLY ILLEGAL CHARACTER IN A PNAME + PRINC - PRINT WITHOUT USING SPECIAL ESCAPE CHARACTERS + IN ATOMS WITH ILLEGAL CHARACTERS IN PNAME + FLATSIZE - TOTAL NUMBER OF CHARS OUTPUT BY PRIN1 FOR ARGUMENT + FLATC - TOTAL NUMBER OF CHARS OUTPUT BY PRINC FOR ARGUMENT + PRINT - (LAMBDA (X) + (PROG NIL + (TERPRI) + (PRIN1 X) + (PRINC SPACE) + (RETURN X))) + READLINE - TAKES IN AN INPUT LINE OF CHARACTERS/, RETURNING IT + AS A SYMBOL WHOSE PNAME IS COMPOSED OF THOSE CHARS + MAPLIST - HAS ARGUMENTS REVERSED FROM CONVENTION OF LISP 1/.5 + (MAPLIST FUNCTION ARGLIST) + MAPCAR - (LAMBDA (FN L) + (MAPLIST (FUNCTION (LAMBDA (X) (FN (CAR X)))) L)) + MAPC - SIMPLY MAPCAR/, BUT NO LIST IS CONSED-UP FOR RETURN + VALUE - EXECUTED PURELY FOR ITS SIDE-EFFECT + PUTPROP - (PUTPROP ATOM VALUE INDICATOR) + DEFPROP - ESSENTIALLY A FEXPR VERSION OF PUTPROP/, + (DEFPROP A B C) = (PUTPROP (QUOTE A) (QUOTE B) (QUOTE C)) + GCTWA - SETS SWITCH TO PERMIT GARBAGE COLLECTION OF TRULY WORTHLESS ATOMS + SETSYNTAX - MODIFIES SYNTAX PROPERTIES OF CHARACTERS FOR THE READ FUNCTION + ) + +(DEFUN GOBBLE-LINES-OF-CHARS NIL + (PROG (CH L) + (COND ((NOT (STATUS FEATURE NEWIO)) (GO C))) + A0 (AND (ZEROP (FLATC (SETQ L (READLINE)))) (GO A0)) + (SETQ L (NREVERSE (EXPLODEC L))) + A1 (SETQ L (CONS CARRIAGERETURN L)) + (COND ((NOT (ZEROP (FLATC (SETQ CH (READLINE))))) + (SETQ L (NRECONC (EXPLODEC CH) L)) + (GO A1))) + (RETURN (NREVERSE (CONS CARRIAGERETURN L))) + C (SETQ CH (READCH)) + (COND ((AND (EQ CH CARRIAGERETURN) + (SETQ L (CONS CH L)) + (OR (EQ (SETQ CH (READCH)) CARRIAGERETURN) + (AND (EQ CH LINEFEED) + (EQ (SETQ CH (READCH)) CARRIAGERETURN)))) + (RETURN (NREVERSE (CONS CH L)))) + ((EQ CH RUBOUT) + (COND (L (PRINC (CAR L)) (SETQ L (CDR L))) + (T (TERPRI)))) + ((EQ CH LINEFEED)) + ((SETQ L (CONS CH L)))) + (GO C) )) + + +(DEFUN WORKER NIL + ((LAMBDA (READTABLE) + (COMMENT NEXT FEW LINES ARE SYSTEMIC SET UP PECULIAR TO MACLISP) + (AND (SETQ TERMINALWIDTH (STATUS TTY)) + (NOT (ATOM TERMINALWIDTH)) + (SSTATUS TTY (CAR TERMINALWIDTH) + (BOOLE 7 (CADR TERMINALWIDTH) 8192.))) + (AND (SETQ TERMINALWIDTH (STATUS TTYSIZE)) + (SETQ TERMINALWIDTH (CDR TERMINALWIDTH))) + (SETSYNTAX 39. (QUOTE MACRO) NIL) + (SETSYNTAX 59. (QUOTE MACRO) NIL) + (GCTWA T) + (PROG (SENTENCE KEYSTACK) + (TERPRI) + (PRINC (QUOTE SPEAK/ UP!)) + (TERPRI) + A (SETQ SENTENCE (SETQ KEYSTACK NIL)) + (READIN) + (ANALYZE) + (TERPRI) + (TERPRI) + (GO A)) ) + (ARRAY NIL READTABLE))) + + + +(COMMENT FROM HERE ON IS PURE STANDARD LISP) + + +(DEFUN READIN NIL + (PROG (WORD LETTER FLAG TERMINAL LINE) + (SETQ LINE (GOBBLE-LINES-OF-CHARS)) + A (COND ((NULL (READWORD)) (GO B))) + (MAKESENTENCE) + (SETKEYSTACK) + B (BREAKANALYZE) + (COND ((NOT FLAG) (GO A))) + (SETQ SENTENCE (NREVERSE SENTENCE)) )) + +(DEFUN READWORD NIL + (PROG NIL + (SETQ WORD NIL) + A (COND ((SETQ FLAG (GET (NEXTCH) (QUOTE BREAK))) + (RETURN (COND (WORD (SETQ WORD + (IMPLODE (REVERSE WORD)))))))) + (SETQ WORD (CONS LETTER WORD)) + (GO A))) + +(DEFUN MAKESENTENCE NIL + (SETQ SENTENCE + (CONS (COND ((SETQ FLAG (GET WORD (QUOTE TRANSLATION))) + FLAG) + (WORD)) + SENTENCE))) + +(DEFUN SETKEYSTACK NIL + (COND ((AND (SETQ FLAG (GET WORD (QUOTE PRIORITY))) + KEYSTACK + (GREATERP FLAG + (GET (CAR KEYSTACK) (QUOTE PRIORITY)))) + (SETQ KEYSTACK (CONS WORD KEYSTACK))) + (FLAG (SETQ KEYSTACK (APPEND KEYSTACK (LIST WORD)))))) + +(DEFUN BREAKANALYZE NIL + (COND ((EQ LETTER CARRIAGERETURN) (SETQ FLAG TERMINAL) + (SETQ TERMINAL T)) + ((AND (SETQ FLAG (GET LETTER (QUOTE PUNCTUATION))) + KEYSTACK) + (GOBBLE)) + (FLAG (SETQ SENTENCE (SETQ FLAG NIL))) + ((NOT (EQ LETTER LINEFEED)) + (SETQ TERMINAL NIL)))) + +(DEFUN TEST (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))) + +(DEFUN ADVANCE NIL + (RPLACA (CDAR RULES) + (COND ((NULL (CDADAR RULES)) (CDDAR RULES)) + ((CDADAR RULES))))) + +(DEFUN SENTPRINT (ANS) + (PROG (N) + A0 (SETQ N 0) + A (PRINC (CAR ANS)) + (SETQ N (PLUS N (FLATSIZE (CAR ANS)))) + (COND ((SETQ ANS (CDR ANS)) + (COND ((GREATERP N TERMINALWIDTH) + (TERPRI) + (GO A0)) + ((PRINC (QUOTE / )))) + (GO A))) + (MEMORY))) + +(DEFUN RECONSTRUCT (R) + (COND ((NULL R) NIL) + ((NUMBERP (CAR R)) (APPEND (RECO1 (CAR R) PARSELIST) + (RECONSTRUCT (CDR R)))) + ((CONS (CAR R) (RECONSTRUCT (CDR R)))))) + +(DEFUN GOBBLE NIL + (PROG NIL + A (NEXTCH) + (BREAKANALYZE) + (COND ((NOT FLAG) (GO A))))) + +(DEFUN NEXTCH NIL + (SETQ LETTER (CAR LINE)) + (SETQ LINE (CDR LINE)) + LETTER) + +(DEFUN TEST1 (PROPL X) + (COND ((NULL PROPL) NIL) + ((GET X (CAR PROPL)) T) + ((TEST1 (CDR PROPL) X)))) + +(DEFUN TEST2 NIL + (PROG NIL + (SETQ PARSELIST (CONS (LIST (CAR S)) PARSELIST)) + (SETQ S (CDR S)) + (RETURN T))) + +(DEFUN TEST3 (X L) + (COND ((ZEROP X) (SETQ PARSELIST (CONS (REVERSE L) PARSELIST))) + (S (TEST3 (SUB1 X) + (CONS (CAR S) (PROG2 (SETQ S (CDR S)) L)))))) + +(DEFUN TEST4 (D) + (COND ((NULL S) NIL) + ((ATOM D) (EQ D (CAR S))) + ((CAR D) (MEMBER (CAR S) D)) + ((TEST1 (CDR D) (CAR S))))) + +(DEFUN TEST5 NIL + (PROG (L) + (COND ((NULL (CDR D)) (SETQ PARSELIST (CONS S PARSELIST)) + (RETURN (NOT (SETQ S NIL))))) + A (COND ((TEST4 (CADR D)) + (RETURN (SETQ PARSELIST + (CONS (REVERSE L) PARSELIST)))) + ((AND (SETQ L (CONS (CAR S) L)) (SETQ S (CDR S))) + (GO A))))) + +(DEFUN RECO1 (X P) + (COND ((GREATERP X 1) + (RECO1 (SUB1 X) (CDR P))) + ((CAR P)))) + +(DEFUN ANALYZE NIL + (PROG (RULES PARSELIST DECOMP) + (SETQ KEYSTACK + (APPEND KEYSTACK + (LIST (GET (QUOTE NONE) + (COND ((ZEROP (SETQ FLIPFLOP + (DIFFERENCE 2 FLIPFLOP))) + (QUOTE MEM)) + ((QUOTE LASTRESORT))))))) + A (SETQ RULES (GET (CAR KEYSTACK) (QUOTE RULES))) + B (SETQ DECOMP (CAAR (COND ((ATOM (CAR RULES)) + (SETQ RULES (GET (CAR RULES) (QUOTE 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) (QUOTE PRE)))) + (RETURN (SENTPRINT (RECONSTRUCT (CAR RULES))))) + ((NOT (ATOM (CAR RULES))) + (SETQ SENTENCE (RECONSTRUCT (CADAR RULES))) + (SETQ RULES (CDDAR RULES))) + ((EQ (CAR RULES) (QUOTE NEWKEY)) (SETQ KEYSTACK (CDR KEYSTACK)) + (GO A))) + (GO B))) + + +(DEFUN MEMORY NIL + ((LAMBDA (PARSELIST) + (AND (SETQ RULES (GET (CAR KEYSTACK) (QUOTE MEMR))) + (TEST (CAAR RULES) SENTENCE) + ((LAMBDA (X) (RPLACA X + (APPEND (CAR X) + (LIST (RECONSTRUCT (CAAR (ADVANCE))))))) + (CDAR (GET (GET (QUOTE NONE) (QUOTE MEM)) (QUOTE RULES)))))) + NIL)) + + + +(COMMENT DOCTOR SET UP OF SOME INITIAL VALUES AND PROPERTIES) + + +(MAPC (QUOTE (LAMBDA (X) (PUTPROP (SET (CAR X) (ASCII (CADR X))) T (QUOTE BREAK)))) + (QUOTE ((RUBOUT 127.) + (BLANK 32.) + (CARRIAGERETURN 13.) + (LINEFEED 10.) + (HORIZONTALTAB 9)))) + +(SETQ FLIPFLOP 0) + +(MAPC (QUOTE (LAMBDA (X) + (PUTPROP X T (QUOTE BREAK)) + (PUTPROP X T (QUOTE PUNCTUATION)))) + (QUOTE (/. /, /( /) ! ? : /;))) + + + +(COMMENT DOCTOR SCRIPT - UPDATED TO /25 NOV /69) + +(PUTPROP (QUOTE NONE) + ((LAMBDA (X) + (PUTPROP X + (QUOTE (((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)))) + (QUOTE RULES)) + X) + (GENSYM)) + (QUOTE LASTRESORT)) + +(PUTPROP (QUOTE NONE) + ((LAMBDA (X) + (PUTPROP X + (LIST (LIST (LIST 0) + (LIST NIL) + (GET (QUOTE NONE) + (QUOTE LASTRESORT)))) + (QUOTE RULES)) + X) + (GENSYM)) + (QUOTE MEM)) + + + +(DEFPROP SORRY 0 PRIORITY) + +(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) + (APOLOGIES ARE NOT NECESSARY/, PLEASE GO ON))) + RULES) + +(DEFPROP DONT DON/'T TRANSLATION) + +(DEFPROP CANT CAN/'T TRANSLATION) + +(DEFPROP WONT WON/'T TRANSLATION) + +(DEFPROP REMEMBER 5 PRIORITY) + +(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 IF 3 PRIORITY) + +(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 DREAMT 4 PRIORITY) + +(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) DREAM NEWKEY)) + RULES) + +(DEFPROP DREAMED DREAMT TRANSLATION) + +(DEFPROP DREAMED 4 PRIORITY) + +(DEFPROP DREAMED (DREAMT) RULES) + +(DEFPROP DREAM 3 PRIORITY) + +(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) + (DO YOU EVER WISH YOU COULD FLEE FROM REALITY) + NEWKEY)) + RULES) + +(DEFPROP DREAMS DREAM TRANSLATION) + +(DEFPROP DREAMS 3 PRIORITY) + +(DEFPROP DREAMS (DREAM) RULES) + +(DEFPROP WHAT 0 PRIORITY) + +(DEFPROP WHAT + (((WHAT WHERE) + (NIL) + HOW) + ((0 (WHAT WHERE) 0) + (NIL) + (TELL ME ABOUT 2 3) + (2 3) + (DO YOU WANT ME TO TELL YOU 2 3) + (REALLY) + (I SEE) + NEWKEY)) + RULES) + +(DEFPROP ALIKE 10. PRIORITY) + +(DEFPROP ALIKE (DIT) RULES) + +(DEFPROP SAME 10. PRIORITY) + +(DEFPROP SAME (DIT) RULES) + +(DEFPROP CERTAINLY 0 PRIORITY) + +(DEFPROP CERTAINLY (YES) RULES) + +(DEFPROP FEEL T BELIEF) + +(DEFPROP THINK T BELIEF) + +(DEFPROP BELIEVE T BELIEF) + +(DEFPROP WISH T BELIEF) + +(DEFPROP BET T BELIEF) + +(DEFPROP MY + (((0 YOUR 1 0) + (NIL) + (EARLIER YOU SAID YOUR 3 4) + (BUT YOUR 3 4) + (DOES THAT HAVE ANYTHING TO DO WITH YOUR STATEMENT ABOUT 3 4))) + MEMR) + + + +(DEFPROP PERHAPS 0 PRIORITY) + +(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 MAYBE 0 PRIORITY) + +(DEFPROP MAYBE (PERHAPS) RULES) + +(DEFPROP NAME 15. PRIORITY) + +(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 DEUTSCH 0 PRIORITY) + +(DEFPROP DEUTSCH (((0) (NIL) (I AM SORRY/, I SPEAK ONLY ENGLISH))) RULES) + +(DEFPROP FRANCAIS 0 PRIORITY) + +(DEFPROP FRANCAIS (DEUTSCH) RULES) + +(DEFPROP SVENSKA 0 PRIORITY) + +(DEFPROP SVENSKA (DEUTSCH) RULES) + +(DEFPROP ITALIANO 0 PRIORITY) + +(DEFPROP ITALIANO (DEUTSCH) RULES) + +(DEFPROP ESPANOL 0 PRIORITY) + +(DEFPROP ESPANOL (DEUTSCH) RULES) + +(DEFPROP HELLO 0 PRIORITY) + +(DEFPROP HELLO (((0) (NIL) (HOW DO YOU DO/. PLEASE STATE YOUR PROBLEM))) RULES) + +(DEFPROP COMPUTER 50. PRIORITY) + +(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 MACHINE 50. PRIORITY) + +(DEFPROP MACHINE (COMPUTER) RULES) + +(DEFPROP MACHINES 50. PRIORITY) + +(DEFPROP MACHINES (COMPUTER) RULES) + +(DEFPROP COMPUTERS 50. PRIORITY) + +(DEFPROP COMPUTERS (COMPUTER) RULES) + +(DEFPROP AM 0 PRIORITY) + +(DEFPROP AM ARE TRANSLATION) + +(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) + HOW) + ((0) (NIL) (WHY DO YOU SAY /'AM/') (I DON/'T UNDERSTAND THAT))) + RULES) + +(DEFPROP ARE 0 PRIORITY) + +(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) + HOW) + ((ARE 0) (NIL) HOW) + ((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 YOUR 0 PRIORITY) + +(DEFPROP YOUR MY TRANSLATION) + +(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 WAS 2 PRIORITY) + +(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) + HOW) + ((0 YOU WAS 0) (NIL) + (WERE YOU REALLY) + (WHY DO YOU TELL ME YOU WERE 4 NOW) + (PERHAPS I ALREADY KNEW YOU WERE 4)) + ((0 WAS I 0) (NIL) + (WOULD YOU LIKE TO BELIEVE I WAS 4) + (WHAT SUGGESTS THAT I WAS 4) + (WHAT DO YOU THINK) + (PERHAPS I WAS 4) + (WHAT IF I HAD BEEN 4)) + ((0) (NIL) NEWKEY)) + RULES) + +(DEFPROP WERE 0 PRIORITY) + +(DEFPROP WERE WAS TRANSLATION) + +(DEFPROP WERE (WAS) RULES) + +(DEFPROP ME YOU TRANSLATION) + +(DEFPROP YOU/'RE 0 PRIORITY) + +(DEFPROP YOU/'RE I/'M TRANSLATION) + +(DEFPROP YOU/'RE (((0 I/'M 0) (NIL) (PRE (I ARE 3) YOU))) RULES) + +(DEFPROP I/'M 0 PRIORITY) + +(DEFPROP I/'M YOU/'RE TRANSLATION) + +(DEFPROP I/'M (((0 YOU/'RE 0) (NIL) (PRE (YOU ARE 3) I))) RULES) + +(DEFPROP MYSELF YOURSELF TRANSLATION) + +(DEFPROP YOURSELF MYSELF TRANSLATION) + +(DEFPROP MOTHER T FAMILY) + +(DEFPROP MOM MOTHER TRANSLATION) + +(DEFPROP MOM T FAMILY) + +(DEFPROP MOMMY MOTHER TRANSLATION) + +(DEFPROP MOMMY T FAMILY) + +(DEFPROP DAD FATHER TRANSLATION) + +(DEFPROP DAD T FAMILY) + +(DEFPROP FATHER T FAMILY) + +(DEFPROP DADDY FATHER TRANSLATION) + +(DEFPROP DADDY T FAMILY) + +(DEFPROP SISTER T FAMILY) + +(DEFPROP BROTHER T FAMILY) + +(DEFPROP WIFE T FAMILY) + +(DEFPROP CHILDREN T FAMILY) + +(DEFPROP I 0 PRIORITY) + +(DEFPROP I YOU TRANSLATION) + +(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) + (YOU REALLY WANT 4) + (I SUSPECT YOU REALLY DON/'T WANT 4)) + ((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) + (PLEASE GO ON)) + ((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) + (ARE YOU SURE) + (WHAT DO YOU MEAN BY 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 0 PRIORITY) + +(DEFPROP YOU I TRANSLATION) + +(DEFPROP YOU + (((0 I REMIND YOU OF 0) (NIL) DIT) + ((0 I ARE 0 YOU 0) (NIL) NEWKEY) + ((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) + (IS THIS REALLY RELEVANT TO YOUR PROBLEM) + (PERHAPS I DO 3 4) + (ARE YOU GLAD TO KNOW I 3 4) + (DO YOU 3 4) + (WHAT ARE YOUR FEELINGS NOW)) + ((0) (NIL) NEWKEY)) + RULES) + +(DEFPROP WE YOU TRANSLATION) + +(DEFPROP WE 0 PRIORITY) + +(DEFPROP WE (I) RULES) + +(DEFPROP XXYYZZ 0 PRIORITY) + +(DEFPROP XXYYZZ + (((0) (NIL) + (YOURE BEING SOMEWHAT SHORT WITH ME) + (YOU DONT SEEM VERY TALKATIVE TODAY) + (PERHAPS YOUD RATHER TALK ABOUT SOMETHING ELSE) + (ARE YOU USING MONOSYLLABLES FOR SOME REASON) + NEWKEY)) + RULES) + +(DEFPROP YES 0 PRIORITY) + +(DEFPROP YES + (((YES) (NIL) XXYYZZ (PRE (X YES) YES)) ((0) (NIL) + (YOU SEEM QUITE POSITIVE) + (YOU ARE SURE) + (I SEE) + (I UNDERSTAND) + NEWKEY)) + RULES) + +(DEFPROP NO 0 PRIORITY) + +(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/') + NEWKEY)) + RULES) + +(DEFPROP MY 2 PRIORITY) + +(DEFPROP MY YOUR TRANSLATION) + +(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 CAN 0 PRIORITY) + +(DEFPROP CAN + (((0 CAN I 0) (NIL) + (YOU BELIEVE I CAN 4 DON/'T YOU) + HOW + (YOU WANT ME TO BE ABLE TO 4) + (PERHAPS YOU WOULD LIKE TO BE ABLE TO 4 YOURSELF)) + ((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) + HOW) + ((0) (NIL) HOW NEWKEY)) + RULES) + +(DEFPROP IS 0 PRIORITY) + +(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 WHERE 0 PRIORITY) + +(DEFPROP WHERE (HOW) RULES) + +(DEFPROP HOW 0 PRIORITY) + +(DEFPROP HOW + (((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 BECAUSE 0 PRIORITY) + +(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) + (YOU/'RE NOT CONCEALING ANYTHING FROM ME/, ARE YOU))) + RULES) + +(DEFPROP WHY 0 PRIORITY) + +(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) + HOW) + ((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) + HOW) + ((0) (NIL) (WHY INDEED) (WHY /'WHY/') (WHY NOT) HOW NEWKEY)) + RULES) + +(DEFPROP EVERYONE 2 PRIORITY) + +(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) + (I SUSPECT YOU/'RE EXAGGERATING A LITTLE))) + RULES) + +(DEFPROP EVERYBODY 2 PRIORITY) + +(DEFPROP EVERYBODY (EVERYONE) RULES) + +(DEFPROP NOBODY 2 PRIORITY) + +(DEFPROP NOBODY (EVERYONE) RULES) + +(DEFPROP NOONE 2 PRIORITY) + +(DEFPROP NOONE (EVERYONE) RULES) + +(DEFPROP ALWAYS 1 PRIORITY) + +(DEFPROP ALWAYS + (((0) (NIL) + (CAN YOU THINK OF A SPECIFIC EXAMPLE) + (WHEN) + (WHAT INCIDENT ARE YOU THINKING OF) + (REALLY/, ALWAYS) + (WHAT IF THIS NEVER HAPPENED))) + RULES) + +(DEFPROP LIKE 10. PRIORITY) + +(DEFPROP LIKE + (((0 (AM IS ARE WAS) 0 LIKE 0) (NIL) DIT) ((0) (NIL) NEWKEY)) + RULES) + +(DEFPROP DIT + (((0) (NIL) + (IN WHAT WAY) + (WHAT RESEMBLANCE DO YOU SEE) + (WHAT DOES THAT SIMILARITY 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 BAG 5 PRIORITY) + +(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) (^IL) (WHY THE INTEREST IN BAGS) (PLEASE BE MORE SPECIFIC) +(YOU AREN/'T PULLING MY LEG ARE YOU) NEWKEY)) + RULES) + +(DEFPROP ZZYYXX (((0) (NIL) NEWKEY)) RULES) + +(DEFPROP FUCK 55. PRIORITY) + +(DEFPROP FUCK + (((0) (NIL) + (ARE SUCH OBSCENITIES FREQUENTLY ON YOUR MIND) + (YOU ARE BEING A BIT CHILDISH) + (REALLY NOW) + (DEAR ME) + (I REALLY SHOULDN/'T TOLERATE SUCH LANGUAGE) + NEWKEY)) + RULES) + +(DEFPROP SHIT 55. PRIORITY) + +(DEFPROP SHIT (FUCK) RULES) + +(DEFPROP CUNT 55. PRIORITY) + +(DEFPROP CUNT (FUCK) RULES) + +(DEFPROP PISS 55. PRIORITY) + +(DEFPROP PISS (FUCK) RULES) + +(DEFPROP BARF 0 PRIORITY) + +(DEFPROP BARF (FUCK) RULES) + +(DEFPROP DAMN 0 PRIORITY) + +(DEFPROP DAMN (FUCK) RULES) + +(DEFPROP HELL 0 PRIORITY) + +(DEFPROP HELL (FUCK) RULES) + +(DEFPROP SUCK 5 PRIORITY) + +(DEFPROP SUCK (FUCK) RULES) + +(DEFPROP SUCKS SUCK TRANSLATION) + +(DEFPROP PROBLEM 5 PRIORITY) + +(DEFPROP PROBLEM + (((0 (IS ARE) YOUR (PROBLEM PROBLEMS) 0) (NIL) + (1 2 YOUR 4) + (ARE YOU SURE 1 2 YOUR 4) + (PERHAPS 1 2 NOT YOUR REAL 4) + (YOU THINK YOU HAVE PROBLEMS) + (DO YOU OFTEN THINK ABOUT 1)) + ((0 YOUR (PROBLEM PROBLEMS) (IS ARE) 0) (NIL) + (YOUR 2 3 4) + (ARE YOU SURE YOUR2 3 4) + (PERHAPS YOUR REAL 2 3 NOT 4) + (YOU THINK YOU HAVE PROBLEMS)) + ((0) (NIL) + (PLEASE CONTINUE/, THIS MAY BE INTERESTING) + (HAVE YOU ANY OTHER PROBLEMS YOU WISH TO DISCUSS) + (PERHAPS YOU/'D RATHER CHANGE THE SUBJECT) + (YOU SEEM A BIT UNEASY) + NEWKEY)) + RULES) + +(DEFPROP PROBLEMS 5 PRIORITY) + +(DEFPROP PROBLEMS (PROBLEM) RULES) + +(DEFPROP PROBLEM + (((0 IS YOUR PROBLEM 0) + (NIL) + (EARLIER YOU MENTIONED 1) + (LET/'S TALK FURTHER ABOUT 1) + (TELL ME MORE ABOUT 1) + (YOU HAVEN/'T MENTIONED 1 FOR A WHILE))) + MEMR) + +(DEFPROP PROBLEMS + (((0 ARE YOU PROBLEMS) + (NIL) + (EARLIER YOU MENTIONED 1) + (LET/'S TALK ABOUT 1) + (TELL ME MORE ABOUT 1) + (YOU HAVEN/'T MENTIONED 1 FOR A WHILE))) + MEMR) + +(DEFPROP CRAP 6 PRIORITY) + +(DEFPROP CRAP (FUCK) RULES) + +(DEFPROP ASK 0 PRIORITY) + +(DEFPROP ASK + (((0 YOU ASK 0) + (NIL) + HOW) + ((0 YOU 1 ASKING 0) + (NIL) + HOW) + ((0 I 0) + (NIL) + YOU) + ((0) + (NIL) + NEWKEY)) + RULES) + +