+(eval-when (eval) (cvttomaclisp))
+; these functions are franz only.
+; to make doctor:
+; liszt -mr doctor.l
+; mv doctor.o doctor
+
+(eval-when (compile eval) (load 'jkfmacs))
+(declare special enditime startime ticks float-format)
+(defun mailbill ()
+ (setq endtime (ptime)
+ ticks (difference (car endtime) (car starttime))
+ user (getenv '|USER|)
+ float-format "%.2f")
+ (apply 'process (list (concat "//bin//mail " user)
+ 'topipe
+ 'frompipe))
+ (msg (|P| topipe) "From the doctor" |N|
+ "To: " user |N|
+ "Subject: bill for services" |N| |N|
+ "Please remit $" (min 50. (quotient (times ticks 10000.0)
+ (times 60 60 60)))
+ " for " (quotient ticks 60.0) " cpu seconds "
+ |N|
+ " thank you, " |N|
+ " The doctor."
+ |N|)
+ (close topipe))
+
+(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 #/' 2 )
+ (SETSYNTAX #/; 2 )
+ (setsyntax #/" 2)
+ (setsyntax #/, 2)
+ (setsyntax #/` 2)
+ (setsyntax #/# 2)
+ )
+
+
+
+
+
+
+(DEFUN GOBBLE-LINES-OF-CHARS NIL
+ (PROG (CH L)
+ C (SETQ CH (readc))
+ (COND ((AND (EQ CH linefeed)
+ (SETQ L (CONS CH L))
+ (EQ (SETQ CH (readc)) linefeed))
+ (RETURN (NREVERSE (CONS CH L))))
+ (t(SETQ L (CONS CH L))))
+ (GO C) ))
+
+
+(DEFUN WORKER NIL
+ (setq terminalwidth 72)
+ (PROG (SENTENCE KEYSTACK)
+ (TERPRI)
+ (PRINC (QUOTE SPEAK/ UP!/ HIT/ 2/ RETURNS/ after/ typing))
+ (TERPRI)
+ A (SETQ SENTENCE (SETQ KEYSTACK NIL))
+ (READIN)
+ (ANALYZE)
+ (TERPRI)
+ (TERPRI)
+ (GO A)) )
+
+
+
+
+
+
+
+(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 10.)
+ (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)
+
+
+
+(defun top-level () (setq user-top-level nil starttime (ptime)) (worker))
+(setq user-top-level (quote top-level))
+
+(signal 2 (quote byebye))
+
+(defun byebye (x)
+ (terpri)(terpri)
+ (princ (quote your/ bill/ will/ be/ in/ the/ mail ))
+ (terpri)
+ (mailbill)
+ (exit))
projects / unix-history / commitdiff