![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to doctor.l CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / pgrm / lisp / doctor|
Return to doctor.l CVS log | Up to [CSRG BSD Unix] / 43BSDReno / pgrm / lisp / doctor |
1.1 root 1: ;
2: ; Copyright (c) 1982 The Regents of the University of California.
3: ; All rights reserved.
4: ;
5: ; Redistribution and use in source and binary forms are permitted
6: ; provided that the above copyright notice and this paragraph are
7: ; duplicated in all such forms and that any documentation,
8: ; advertising materials, and other materials related to such
9: ; distribution and use acknowledge that the software was developed
10: ; by the University of California, Berkeley. The name of the
11: ; University may not be used to endorse or promote products derived
12: ; from this software without specific prior written permission.
13: ; THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: ; IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: ;
17: ; @(#)doctor.l 4.4 (Berkeley) 1/5/90
18: ;
19: (eval-when (eval) (cvttomaclisp))
20: ; these functions are franz only.
21: ; to make doctor:
22: ; liszt -mr -o doctor doctor.l
23:
24: (declare (special endtime starttime ticks float-format user topipe
25: user-top-level))
26:
27: (defun mailbill ()
28: (setq endtime (ptime)
29: ticks (difference (car endtime) (car starttime))
30: user (getenv '|USER|)
31: float-format "%.2f")
32: (apply 'process (list (concat "//bin//mail " user)
33: 'topipe
34: 'frompipe))
35: (msg (|P| topipe) "From the doctor" |N|
36: "To: " user |N|
37: "Subject: bill for services" |N| |N|
38: "Please remit $" (min 50. (quotient (times ticks 10000.0)
39: (times 60 60 60)))
40: " for " (quotient ticks 60.0) " cpu seconds "
41: |N|
42: " thank you, " |N|
43: " The doctor."
44: |N|)
45: (close topipe))
46:
47: (DECLARE (SPECIAL TERMINAL LETTER WORD SENTENCE KEYSTACK TERMINALWIDTH
48: CARRIAGERETURN RUBOUT LINEFEED FLAG PARSELIST
49: RULES FLIPFLOP S D LINE)
50: (SPECIAL READTABLE)
51: (EVAL (READ)))
52:
53: (PROG2 (SETSYNTAX #/' 2 )
54: (SETSYNTAX #/; 2 )
55: (setsyntax #/" 2)
56: (setsyntax #/, 2)
57: (setsyntax #/` 2)
58: (setsyntax #/# 2)
59: )
60:
61:
62:
63:
64:
65:
66: (DEFUN GOBBLE-LINES-OF-CHARS NIL
67: (PROG (CH L)
68: C (SETQ CH (readc))
69: (COND ((AND (EQ CH linefeed)
70: (SETQ L (CONS CH L))
71: (EQ (SETQ CH (readc)) linefeed))
72: (RETURN (NREVERSE (CONS CH L))))
73: (t(SETQ L (CONS CH L))))
74: (GO C) ))
75:
76:
77: (DEFUN WORKER NIL
78: (setq terminalwidth 72)
79: (PROG (SENTENCE KEYSTACK)
80: (TERPRI)
81: (PRINC (QUOTE SPEAK/ UP!/ HIT/ 2/ RETURNS/ after/ typing))
82: (TERPRI)
83: A (SETQ SENTENCE (SETQ KEYSTACK NIL))
84: (READIN)
85: (ANALYZE)
86: (TERPRI)
87: (TERPRI)
88: (GO A)) )
89:
90:
91:
92:
93:
94:
95:
96: (DEFUN READIN NIL
97: (PROG (WORD LETTER FLAG TERMINAL LINE)
98: (SETQ LINE (GOBBLE-LINES-OF-CHARS))
99: A (COND ((NULL (READWORD)) (GO B)))
100: (MAKESENTENCE)
101: (SETKEYSTACK)
102: B (BREAKANALYZE)
103: (COND ((NOT FLAG) (GO A)))
104: (SETQ SENTENCE (NREVERSE SENTENCE)) ))
105:
106: (DEFUN READWORD NIL
107: (PROG NIL
108: (SETQ WORD NIL)
109: A (COND ((SETQ FLAG (GET (NEXTCH) (QUOTE BREAK)))
110: (RETURN (COND (WORD (SETQ WORD
111: (IMPLODE (REVERSE WORD))))))))
112: (SETQ WORD (CONS LETTER WORD))
113: (GO A)))
114:
115: (DEFUN MAKESENTENCE NIL
116: (SETQ SENTENCE
117: (CONS (COND ((SETQ FLAG (GET WORD (QUOTE TRANSLATION)))
118: FLAG)
119: (WORD))
120: SENTENCE)))
121:
122: (DEFUN SETKEYSTACK NIL
123: (COND ((AND (SETQ FLAG (GET WORD (QUOTE PRIORITY)))
124: KEYSTACK
125: (GREATERP FLAG
126: (GET (CAR KEYSTACK) (QUOTE PRIORITY))))
127: (SETQ KEYSTACK (CONS WORD KEYSTACK)))
128: (FLAG (SETQ KEYSTACK (APPEND KEYSTACK (LIST WORD))))))
129:
130: (DEFUN BREAKANALYZE NIL
131: (COND ((EQ LETTER CARRIAGERETURN) (SETQ FLAG TERMINAL)
132: (SETQ TERMINAL T))
133: ((AND (SETQ FLAG (GET LETTER (QUOTE PUNCTUATION)))
134: KEYSTACK)
135: (GOBBLE))
136: (FLAG (SETQ SENTENCE (SETQ FLAG NIL)))
137: ((NOT (EQ LETTER LINEFEED))
138: (SETQ TERMINAL NIL))))
139:
140: (DEFUN TEST (D S)
141: (PROG NIL
142: G (COND ((NULL D)
143: (RETURN (COND ((NOT S)
144: (SETQ PARSELIST
145: (REVERSE PARSELIST))))))
146: ((NOT (COND ((NUMBERP (CAR D))
147: (COND ((ZEROP (CAR D)) (TEST5))
148: ((TEST3 (CAR D) NIL))))
149: ((TEST4 (CAR D)) (TEST2))))
150: (RETURN NIL)))
151: (SETQ D (CDR D))
152: (GO G)))
153:
154: (DEFUN ADVANCE NIL
155: (RPLACA (CDAR RULES)
156: (COND ((NULL (CDADAR RULES)) (CDDAR RULES))
157: ((CDADAR RULES)))))
158:
159: (DEFUN SENTPRINT (ANS)
160: (PROG (N)
161: A0 (SETQ N 0)
162: A (PRINC (CAR ANS))
163: (SETQ N (PLUS N (FLATSIZE (CAR ANS))))
164: (COND ((SETQ ANS (CDR ANS))
165: (COND ((GREATERP N TERMINALWIDTH)
166: (TERPRI)
167: (GO A0))
168: ((PRINC (QUOTE / ))))
169: (GO A)))
170: (MEMORY)))
171:
172: (DEFUN RECONSTRUCT (R)
173: (COND ((NULL R) NIL)
174: ((NUMBERP (CAR R)) (APPEND (RECO1 (CAR R) PARSELIST)
175: (RECONSTRUCT (CDR R))))
176: ((CONS (CAR R) (RECONSTRUCT (CDR R))))))
177:
178: (DEFUN GOBBLE NIL
179: (PROG NIL
180: A (NEXTCH)
181: (BREAKANALYZE)
182: (COND ((NOT FLAG) (GO A)))))
183:
184: (DEFUN NEXTCH NIL
185: (SETQ LETTER (CAR LINE))
186: (SETQ LINE (CDR LINE))
187: LETTER)
188:
189: (DEFUN TEST1 (PROPL X)
190: (COND ((NULL PROPL) NIL)
191: ((GET X (CAR PROPL)) T)
192: ((TEST1 (CDR PROPL) X))))
193:
194: (DEFUN TEST2 NIL
195: (PROG NIL
196: (SETQ PARSELIST (CONS (LIST (CAR S)) PARSELIST))
197: (SETQ S (CDR S))
198: (RETURN T)))
199:
200: (DEFUN TEST3 (X L)
201: (COND ((ZEROP X) (SETQ PARSELIST (CONS (REVERSE L) PARSELIST)))
202: (S (TEST3 (SUB1 X)
203: (CONS (CAR S) (PROG2 (SETQ S (CDR S)) L))))))
204:
205: (DEFUN TEST4 (D)
206: (COND ((NULL S) NIL)
207: ((ATOM D) (EQ D (CAR S)))
208: ((CAR D) (MEMBER (CAR S) D))
209: ((TEST1 (CDR D) (CAR S)))))
210:
211: (DEFUN TEST5 NIL
212: (PROG (L)
213: (COND ((NULL (CDR D)) (SETQ PARSELIST (CONS S PARSELIST))
214: (RETURN (NOT (SETQ S NIL)))))
215: A (COND ((TEST4 (CADR D))
216: (RETURN (SETQ PARSELIST
217: (CONS (REVERSE L) PARSELIST))))
218: ((AND (SETQ L (CONS (CAR S) L)) (SETQ S (CDR S)))
219: (GO A)))))
220:
221: (DEFUN RECO1 (X P)
222: (COND ((GREATERP X 1)
223: (RECO1 (SUB1 X) (CDR P)))
224: ((CAR P))))
225:
226: (DEFUN ANALYZE NIL
227: (PROG (RULES PARSELIST DECOMP)
228: (SETQ KEYSTACK
229: (APPEND KEYSTACK
230: (LIST (GET (QUOTE NONE)
231: (COND ((ZEROP (SETQ FLIPFLOP
232: (DIFFERENCE 2 FLIPFLOP)))
233: (QUOTE MEM))
234: ((QUOTE LASTRESORT)))))))
235: A (SETQ RULES (GET (CAR KEYSTACK) (QUOTE RULES)))
236: B (SETQ DECOMP (CAAR (COND ((ATOM (CAR RULES))
237: (SETQ RULES (GET (CAR RULES) (QUOTE RULES))))
238: (RULES))))
239: (SETQ PARSELIST NIL)
240: (COND ((NOT (TEST DECOMP SENTENCE)) (SETQ RULES (CDR RULES)))
241: ((AND (NOT (ATOM (CAR (SETQ RULES (CAR (ADVANCE))))))
242: (NOT (EQ (CAAR RULES) (QUOTE PRE))))
243: (RETURN (SENTPRINT (RECONSTRUCT (CAR RULES)))))
244: ((NOT (ATOM (CAR RULES)))
245: (SETQ SENTENCE (RECONSTRUCT (CADAR RULES)))
246: (SETQ RULES (CDDAR RULES)))
247: ((EQ (CAR RULES) (QUOTE NEWKEY)) (SETQ KEYSTACK (CDR KEYSTACK))
248: (GO A)))
249: (GO B)))
250:
251:
252: (DEFUN MEMORY NIL
253: ((LAMBDA (PARSELIST)
254: (AND (SETQ RULES (GET (CAR KEYSTACK) (QUOTE MEMR)))
255: (TEST (CAAR RULES) SENTENCE)
256: ((LAMBDA (X) (RPLACA X
257: (APPEND (CAR X)
258: (LIST (RECONSTRUCT (CAAR (ADVANCE)))))))
259: (CDAR (GET (GET (QUOTE NONE) (QUOTE MEM)) (QUOTE RULES))))))
260: NIL))
261:
262:
263: (COMMENT DOCTOR SET UP OF SOME INITIAL VALUES AND PROPERTIES)
264:
265:
266: (MAPC (QUOTE (LAMBDA (X) (PUTPROP (SET (CAR X) (ASCII (CADR X))) T (QUOTE BREAK))))
267: (QUOTE ((RUBOUT 127.)
268: (BLANK 32.)
269: (CARRIAGERETURN 10.)
270: (LINEFEED 10.)
271: (HORIZONTALTAB 9.))))
272:
273: (SETQ FLIPFLOP 0)
274:
275: (MAPC (QUOTE (LAMBDA (X)
276: (PUTPROP X T (QUOTE BREAK))
277: (PUTPROP X T (QUOTE PUNCTUATION))))
278: (QUOTE (/. /, /( /) ! ? : /;)))
279:
280:
281: (COMMENT DOCTOR SCRIPT - UPDATED TO /25 NOV /69)
282:
283: (PUTPROP (QUOTE NONE)
284: ((LAMBDA (X)
285: (PUTPROP X
286: (QUOTE (((0)
287: (NIL)
288: (I AM NOT SURE I UNDERSTAND YOU FULLY)
289: (PLEASE GO ON)
290: (WHAT DOES THAT SUGGEST TO YOU)
291: (DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS))))
292: (QUOTE RULES))
293: X)
294: (GENSYM))
295: (QUOTE LASTRESORT))
296:
297: (PUTPROP (QUOTE NONE)
298: ((LAMBDA (X)
299: (PUTPROP X
300: (LIST (LIST (LIST 0)
301: (LIST NIL)
302: (GET (QUOTE NONE)
303: (QUOTE LASTRESORT))))
304: (QUOTE RULES))
305: X)
306: (GENSYM))
307: (QUOTE MEM))
308:
309:
310:
311: (DEFPROP SORRY 0 PRIORITY)
312:
313: (DEFPROP SORRY
314: (((0) (NIL)
315: (PLEASE DON/'T APOLOGIZE)
316: (APOLOGIES ARE NOT NECESSARY)
317: (WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE)
318: (I/'VE TOLD YOU THAT APOLOGIES ARE NOT REQUIRED)
319: (APOLOGIES ARE NOT NECESSARY/, PLEASE GO ON)))
320: RULES)
321:
322: (DEFPROP DONT DON/'T TRANSLATION)
323:
324: (DEFPROP CANT CAN/'T TRANSLATION)
325:
326: (DEFPROP WONT WON/'T TRANSLATION)
327:
328: (DEFPROP REMEMBER 5 PRIORITY)
329:
330: (DEFPROP REMEMBER
331: (((0 YOU REMEMBER 0) (NIL)
332: (DO YOU OFTEN THINK OF 4)
333: (DOES THINKING OF 4 BRING ANYTHING ELSE TO MIND)
334: (WHAT ELSE DO YOU REMEMBER)
335: (WHY DO YOU REMEMBER 4 JUST NOW)
336: (WHAT IN THE PRESENT SITUATION REMINDS YOU OF 4)
337: (WHAT IS THE CONNECTION BETWEEN ME AND 4))
338: ((0 DO I REMEMBER 0) (NIL)
339: (DID YOU THINK I WOULD FORGET 5)
340: (WHY DO YOU THINK I SHOULD RECALL 5 NOW)
341: (WHAT ABOUT 5)
342: WHAT
343: (YOU MENTIONED 5))
344: ((0) (NIL) NEWKEY))
345: RULES)
346:
347: (DEFPROP IF 3 PRIORITY)
348:
349: (DEFPROP IF
350: (((0 IF 0 HAD 0) (NIL) (PRE (1 2 3 MIGHT HAVE 5) IF))
351: ((0 IF 0) (NIL)
352: (DO YOU THINK ITS LIKELY THAT 3)
353: (DO YOU WISH THAT 3)
354: (WHAT DO YOU THINK ABOUT 3)
355: (REALLY IF 3)))
356: RULES)
357:
358: (DEFPROP DREAMT 4 PRIORITY)
359:
360: (DEFPROP DREAMT
361: (((0 YOU DREAMT 0) (NIL)
362: (REALLY 4)
363: (HAVE YOU EVER FANTASIED 4 WHILE YOU WERE AWAKE)
364: (HAVE YOU DREAMT 4 BEFORE)
365: DREAM
366: NEWKEY)
367: ((0) (NIL) DREAM NEWKEY))
368: RULES)
369:
370: (DEFPROP DREAMED DREAMT TRANSLATION)
371:
372: (DEFPROP DREAMED 4 PRIORITY)
373:
374: (DEFPROP DREAMED (DREAMT) RULES)
375:
376: (DEFPROP DREAM 3 PRIORITY)
377:
378: (DEFPROP DREAM
379: (((0)
380: (NIL)
381: (WHAT DOES THAT DREAM SUGGEST TO YOU)
382: (DO YOU DREAM OFTEN)
383: (WHAT PERSONS APPEAR IN YOUR DREAMS)
384: (DON/'T YOU BELIEVE THAT DREAM HAS SOMETHING TO DO WITH YOUR PROBLEM)
385: (DO YOU EVER WISH YOU COULD FLEE FROM REALITY)
386: NEWKEY))
387: RULES)
388:
389: (DEFPROP DREAMS DREAM TRANSLATION)
390:
391: (DEFPROP DREAMS 3 PRIORITY)
392:
393: (DEFPROP DREAMS (DREAM) RULES)
394:
395: (DEFPROP WHAT 0 PRIORITY)
396:
397: (DEFPROP WHAT
398: (((WHAT WHERE)
399: (NIL)
400: HOW)
401: ((0 (WHAT WHERE) 0)
402: (NIL)
403: (TELL ME ABOUT 2 3)
404: (2 3)
405: (DO YOU WANT ME TO TELL YOU 2 3)
406: (REALLY)
407: (I SEE)
408: NEWKEY))
409: RULES)
410:
411: (DEFPROP ALIKE 10. PRIORITY)
412:
413: (DEFPROP ALIKE (DIT) RULES)
414:
415: (DEFPROP SAME 10. PRIORITY)
416:
417: (DEFPROP SAME (DIT) RULES)
418:
419: (DEFPROP CERTAINLY 0 PRIORITY)
420:
421: (DEFPROP CERTAINLY (YES) RULES)
422:
423: (DEFPROP FEEL T BELIEF)
424:
425: (DEFPROP THINK T BELIEF)
426:
427: (DEFPROP BELIEVE T BELIEF)
428:
429: (DEFPROP WISH T BELIEF)
430:
431: (DEFPROP BET T BELIEF)
432:
433: (DEFPROP MY
434: (((0 YOUR 1 0)
435: (NIL)
436: (EARLIER YOU SAID YOUR 3 4)
437: (BUT YOUR 3 4)
438: (DOES THAT HAVE ANYTHING TO DO WITH YOUR STATEMENT ABOUT 3 4)))
439: MEMR)
440:
441:
442:
443: (DEFPROP PERHAPS 0 PRIORITY)
444:
445: (DEFPROP PERHAPS
446: (((0) (NIL)
447: (YOU DON/'T SEEM QUITE CERTAIN)
448: (WHY THE UNCERTAIN TONE)
449: (CAN/'T YOU BE MORE POSITIVE)
450: (YOU AREN/'T SURE)
451: (DON/'T YOU KNOW)))
452: RULES)
453:
454: (DEFPROP MAYBE 0 PRIORITY)
455:
456: (DEFPROP MAYBE (PERHAPS) RULES)
457:
458: (DEFPROP NAME 15. PRIORITY)
459:
460: (DEFPROP NAME
461: (((0)
462: (NIL)
463: (I AM NOT INTERESTED IN NAMES)
464: (I/'VE TOLD YOU BEFORE I DON/'T CARE ABOUT NAMES /- PLEASE CONTINUE)))
465: RULES)
466:
467: (DEFPROP DEUTSCH 0 PRIORITY)
468:
469: (DEFPROP DEUTSCH (((0) (NIL) (I AM SORRY/, I SPEAK ONLY ENGLISH))) RULES)
470:
471: (DEFPROP FRANCAIS 0 PRIORITY)
472:
473: (DEFPROP FRANCAIS (DEUTSCH) RULES)
474:
475: (DEFPROP SVENSKA 0 PRIORITY)
476:
477: (DEFPROP SVENSKA (DEUTSCH) RULES)
478:
479: (DEFPROP ITALIANO 0 PRIORITY)
480:
481: (DEFPROP ITALIANO (DEUTSCH) RULES)
482:
483: (DEFPROP ESPANOL 0 PRIORITY)
484:
485: (DEFPROP ESPANOL (DEUTSCH) RULES)
486:
487: (DEFPROP HELLO 0 PRIORITY)
488:
489: (DEFPROP HELLO (((0) (NIL) (HOW DO YOU DO/. PLEASE STATE YOUR PROBLEM))) RULES)
490:
491: (DEFPROP COMPUTER 50. PRIORITY)
492:
493: (DEFPROP COMPUTER
494: (((0) (NIL)
495: (DO COMPUTERS WORRY YOU)
496: (WHY DO YOU MENTION COMPUTERS)
497: (WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM)
498: (DON/'T YOU THINK COMPUTERS CAN HELP PEOPLE)
499: (WHAT ABOUT MACHINES WORRIES YOU)
500: (WHAT DO YOU THINK ABOUT MACHINES)))
501: RULES)
502:
503: (DEFPROP MACHINE 50. PRIORITY)
504:
505: (DEFPROP MACHINE (COMPUTER) RULES)
506:
507: (DEFPROP MACHINES 50. PRIORITY)
508:
509: (DEFPROP MACHINES (COMPUTER) RULES)
510:
511: (DEFPROP COMPUTERS 50. PRIORITY)
512:
513: (DEFPROP COMPUTERS (COMPUTER) RULES)
514:
515: (DEFPROP AM 0 PRIORITY)
516:
517: (DEFPROP AM ARE TRANSLATION)
518:
519: (DEFPROP AM
520: (((0 ARE YOU 0) (NIL)
521: (DO YOU BELIEVE YOU ARE 4)
522: (WOULD YOU WANT TO BE 4)
523: (YOU WISH I WOULD TELL YOU YOU ARE 4)
524: (WHAT WOULD IT MEAN IF YOU WERE 4)
525: HOW)
526: ((0) (NIL) (WHY DO YOU SAY /'AM/') (I DON/'T UNDERSTAND THAT)))
527: RULES)
528:
529: (DEFPROP ARE 0 PRIORITY)
530:
531: (DEFPROP ARE
532: (((0 THERE ARE 0 YOU 0) (NIL) (PRE (1 2 3 4) ARE))
533: ((0 THERE ARE 1 0) (NIL)
534: (WHAT MAKES YOU THINK 2 3 4 5)
535: (DO YOU USUALLY CONSIDER 4 5)
536: (DO YOU WISH 2 WERE 4 5))
537: ((0 THERE ARE 0) (NIL) NEWKEY)
538: ((0 ARE I 0) (NIL)
539: (WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT)
540: (WOULD YOU PREFER IF I WEREN/'T 4)
541: (PERHAPS I AM 4 IN YOUR FANTASIES)
542: (DO YOU SOMETIMES THINK I AM 4)
543: HOW)
544: ((ARE 0) (NIL) HOW)
545: ((0 ARE 0) (NIL)
546: (DID YOU THINK THEY MIGHT NOT BE 3)
547: (WOULD YOU LIKE IT IF THEY WERE NOT 3)
548: (WHAT IF THEY WERE NOT 3)
549: (POSSIBLY THEY ARE 3)))
550: RULES)
551:
552: (DEFPROP YOUR 0 PRIORITY)
553:
554: (DEFPROP YOUR MY TRANSLATION)
555:
556: (DEFPROP YOUR
557: (((0 MY 0) (NIL)
558: (WHY ARE YOU CONCERNED OVER MY 3)
559: (WHAT ABOUT YOUR OWN 3)
560: (ARE YOU WORRIED ABOUT SOMEONE ELSES 3)
561: (REALLY/, MY 3)))
562: RULES)
563:
564: (DEFPROP WAS 2 PRIORITY)
565:
566: (DEFPROP WAS
567: (((0 WAS YOU 0) (NIL)
568: (WHAT IF YOU WERE 4)
569: (DO YOU THINK YOU WERE 4)
570: (WERE YOU 4)
571: (WHAT WOULD IT MEAN IF YOU WERE 4)
572: (WHAT DOES /' 4 /' SUGGEST TO YOU)
573: HOW)
574: ((0 YOU WAS 0) (NIL)
575: (WERE YOU REALLY)
576: (WHY DO YOU TELL ME YOU WERE 4 NOW)
577: (PERHAPS I ALREADY KNEW YOU WERE 4))
578: ((0 WAS I 0) (NIL)
579: (WOULD YOU LIKE TO BELIEVE I WAS 4)
580: (WHAT SUGGESTS THAT I WAS 4)
581: (WHAT DO YOU THINK)
582: (PERHAPS I WAS 4)
583: (WHAT IF I HAD BEEN 4))
584: ((0) (NIL) NEWKEY))
585: RULES)
586:
587: (DEFPROP WERE 0 PRIORITY)
588:
589: (DEFPROP WERE WAS TRANSLATION)
590:
591: (DEFPROP WERE (WAS) RULES)
592:
593: (DEFPROP ME YOU TRANSLATION)
594:
595: (DEFPROP YOU/'RE 0 PRIORITY)
596:
597: (DEFPROP YOU/'RE I/'M TRANSLATION)
598:
599: (DEFPROP YOU/'RE (((0 I/'M 0) (NIL) (PRE (I ARE 3) YOU))) RULES)
600:
601: (DEFPROP I/'M 0 PRIORITY)
602:
603: (DEFPROP I/'M YOU/'RE TRANSLATION)
604:
605: (DEFPROP I/'M (((0 YOU/'RE 0) (NIL) (PRE (YOU ARE 3) I))) RULES)
606:
607: (DEFPROP MYSELF YOURSELF TRANSLATION)
608:
609: (DEFPROP YOURSELF MYSELF TRANSLATION)
610:
611: (DEFPROP MOTHER T FAMILY)
612:
613: (DEFPROP MOM MOTHER TRANSLATION)
614:
615: (DEFPROP MOM T FAMILY)
616:
617: (DEFPROP MOMMY MOTHER TRANSLATION)
618:
619: (DEFPROP MOMMY T FAMILY)
620:
621: (DEFPROP DAD FATHER TRANSLATION)
622:
623: (DEFPROP DAD T FAMILY)
624:
625: (DEFPROP FATHER T FAMILY)
626:
627: (DEFPROP DADDY FATHER TRANSLATION)
628:
629: (DEFPROP DADDY T FAMILY)
630:
631: (DEFPROP SISTER T FAMILY)
632:
633: (DEFPROP BROTHER T FAMILY)
634:
635: (DEFPROP WIFE T FAMILY)
636:
637: (DEFPROP CHILDREN T FAMILY)
638:
639: (DEFPROP I 0 PRIORITY)
640:
641: (DEFPROP I YOU TRANSLATION)
642:
643: (DEFPROP I
644: (((0 YOU (WANT NEED) 0)
645: (NIL)
646: (WHAT WOULD IT MEAN TO YOU IF YOU GOT 4)
647: (WHY DO YOU WANT 4)
648: (SUPPOSE YOU GOT 4 SOON)
649: (WHAT IF YOU NEVER GOT 4)
650: (WHAT WOULD GETTING 4 MEAN TO YOU)
651: (WHAT DOES WANTING 4 HAVE TO DO WITH THIS DISCUSSION)
652: (YOU REALLY WANT 4)
653: (I SUSPECT YOU REALLY DON/'T WANT 4))
654: ((0 YOU ARE 0 (SAD UNHAPPY DEPRESSED SICK) 0)
655: (NIL)
656: (I AM SORRY TO HEAR YOU ARE 5)
657: (DO YOU THINK COMING HERE WILL HELP YOU NOT TO BE 5)
658: (I/'M SURE ITS NOT PLEASANT TO BE 5)
659: (CAN YOU EXPLAIN WHAT MADE YOU 5)
660: (PLEASE GO ON))
661: ((0 YOU ARE 0 (HAPPY ELATED GLAD BETTER) 0)
662: (NIL)
663: (HOW HAVE I HELPED YOU TO BE 5)
664: (HAS YOUR TREATMENT MADE YOU 5)
665: (WHAT MAKES YOU 5 JUST NOW)
666: (CAN YOU EXPLAIN WHY YOU ARE SUDDENLY 5)
667: (ARE YOU SURE)
668: (WHAT DO YOU MEAN BY 5))
669: ((0 YOU WAS 0) (NIL) WAS)
670: ((0 YOU (NIL BELIEF) YOU 0) (NIL)
671: (DO YOU REALLY THINK SO)
672: (BUT YOU ARE NOT SURE YOU 5)
673: (DO YOU REALLY DOUBT YOU 5))
674: ((0 YOU 0 (NIL BELIEF) 0 I 0) (NIL) YOU)
675: ((0 YOU ARE 0) (NIL)
676: (IS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME)
677: (HOW LONG HAVE YOU BEEN 4)
678: (DO YOU BELIEVE IT NORMAL TO BE 4)
679: (DO YOU ENJOY BEING 4))
680: ((0 YOU (CAN/'T CANNOT) 0) (NIL)
681: (HOW DO YOU KNOW YOU CAN/'T 4)
682: (HAVE YOU TRIED)
683: (PERHAPS YOU COULD 4 NOW)
684: (DO YOU REALLY WANT TO BE ABLE TO 4))
685: ((0 YOU DON/'T 0) (NIL)
686: (DON/'T YOU REALLY 4)
687: (WHY DON/'T YOU 4)
688: (DO YOU WISH TO BE ABLE TO 4)
689: (DOES THAT TROUBLE YOU))
690: ((0 YOU FEEL 0) (NIL)
691: (TELL ME MORE ABOUT SUCH FEELINGS)
692: (DO YOU OFTEN FEEL 4)
693: (DO YOU ENJOY FEELING 4)
694: (OF WHAT DOES FEELING 4 REMIND YOU))
695: ((0 YOU 0 I 0) (NIL)
696: (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER)
697: (DO YOU WISH TO 3 ME)
698: (YOU SEEM TO NEED TO 3 ME)
699: (DO YOU 3 ANYONE ELSE))
700: ((0) (NIL)
701: (YOU SAY 1)
702: (CAN YOU ELABORATE ON THAT)
703: (DO YOU SAY 1 FOR SOME SPECIAL REASON)
704: (THAT/'S QUITE INTERESTING)))
705: RULES)
706:
707: (DEFPROP YOU 0 PRIORITY)
708:
709: (DEFPROP YOU I TRANSLATION)
710:
711: (DEFPROP YOU
712: (((0 I REMIND YOU OF 0) (NIL) DIT)
713: ((0 I ARE 0 YOU 0) (NIL) NEWKEY)
714: ((0 I 0 ARE 0) (NIL)
715: (WHAT MAKES YOU THINK I AM 5)
716: (DOES IT PLEASE YOU TO BELIEVE I AM 5)
717: (PERHAPS YOU WOULD LIKE TO BE 5)
718: (DO YOU SOMETIMES WISH YOU WERE 5))
719: ((0 I 0 YOU) (NIL)
720: (WHY DO YOU THINK I 3 YOU)
721: (YOU LIKE TO THINK I 3 YOU /- DON/'T YOU)
722: (WHAT MAKES YOU THINK I 3 YOU)
723: (REALLY/, I 3 YOU)
724: (DO YOU WISH TO BELIEVE I 3 YOU)
725: (SUPPOSE I DID 3 YOU /- WHAT WOULD THAT MEAN)
726: (DOES SOMEONE ELSE BELIEVE I 3 YOU))
727: ((0 I 1 0) (NIL)
728: (WE WERE DISCUSSING YOU /- NOT ME)
729: (OH/, I 3 4)
730: (IS THIS REALLY RELEVANT TO YOUR PROBLEM)
731: (PERHAPS I DO 3 4)
732: (ARE YOU GLAD TO KNOW I 3 4)
733: (DO YOU 3 4)
734: (WHAT ARE YOUR FEELINGS NOW))
735: ((0) (NIL) NEWKEY))
736: RULES)
737:
738: (DEFPROP WE YOU TRANSLATION)
739:
740: (DEFPROP WE 0 PRIORITY)
741:
742: (DEFPROP WE (I) RULES)
743:
744: (DEFPROP XXYYZZ 0 PRIORITY)
745:
746: (DEFPROP XXYYZZ
747: (((0) (NIL)
748: (YOURE BEING SOMEWHAT SHORT WITH ME)
749: (YOU DONT SEEM VERY TALKATIVE TODAY)
750: (PERHAPS YOUD RATHER TALK ABOUT SOMETHING ELSE)
751: (ARE YOU USING MONOSYLLABLES FOR SOME REASON)
752: NEWKEY))
753: RULES)
754:
755: (DEFPROP YES 0 PRIORITY)
756:
757: (DEFPROP YES
758: (((YES) (NIL) XXYYZZ (PRE (X YES) YES)) ((0) (NIL)
759: (YOU SEEM QUITE POSITIVE)
760: (YOU ARE SURE)
761: (I SEE)
762: (I UNDERSTAND)
763: NEWKEY))
764: RULES)
765:
766: (DEFPROP NO 0 PRIORITY)
767:
768: (DEFPROP NO
769: (((NO) (NIL) XXYYZZ (PRE (X NO) NO))
770: ((0) (NIL)
771: (ARE YOU SAYING /'NO/' JUST TO BE NEGATIVE)
772: (YOU ARE BEING A BIT NEGATIVE)
773: (WHY NOT)
774: (WHY /'NO/')
775: NEWKEY))
776: RULES)
777:
778: (DEFPROP MY 2 PRIORITY)
779:
780: (DEFPROP MY YOUR TRANSLATION)
781:
782: (DEFPROP MY
783: (((0 YOUR 0 (NIL FAMILY) 0)
784: (NIL)
785: (TELL ME MORE ABOUT YOUR FAMILY)
786: (WHO ELSE IN YOUR FAMILY 5)
787: (YOUR 4)
788: (WHAT ELSE COMES TO MIND WHEN YOU THINK OF YOUR 4))
789: ((0 YOUR 1 0) (NIL)
790: (YOUR 3 4)
791: (WHY DO YOU SAY YOUR 3 4)
792: (DOES THAT SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU)
793: (IS IT IMPORTANT TO YOU THAT YOUR 3 4))
794: ((0) (NIL) NEWKEY))
795: RULES)
796:
797: (DEFPROP CAN 0 PRIORITY)
798:
799: (DEFPROP CAN
800: (((0 CAN I 0) (NIL)
801: (YOU BELIEVE I CAN 4 DON/'T YOU)
802: HOW
803: (YOU WANT ME TO BE ABLE TO 4)
804: (PERHAPS YOU WOULD LIKE TO BE ABLE TO 4 YOURSELF))
805: ((0 CAN YOU 0)
806: (NIL)
807: (WHETHER OR NOT YOU CAN 4 DEPENDS ON YOU MORE THAN ON ME)
808: (DO YOU WANT TO BE ABLE TO 4)
809: (PERHAPS YOU DON/'T WANT TO 4)
810: HOW)
811: ((0) (NIL) HOW NEWKEY))
812: RULES)
813:
814: (DEFPROP IS 0 PRIORITY)
815:
816: (DEFPROP IS
817: (((1 0 IS 1 0) (NIL)
818: (SUPPOSE 1 2 WERE NOT 4 5)
819: (PERHAPS 1 2 REALLY IS 4 5)
820: (TELL ME MORE ABOUT 1 2))
821: ((0) (NIL) NEWKEY))
822: RULES)
823:
824: (DEFPROP WHERE 0 PRIORITY)
825:
826: (DEFPROP WHERE (HOW) RULES)
827:
828: (DEFPROP HOW 0 PRIORITY)
829:
830: (DEFPROP HOW
831: (((0) (NIL)
832: (WHY DO YOU ASK)
833: (DOES THAT QUESTION INTEREST YOU)
834: (WHAT IS IT YOU REALLY WANT TO KNOW)
835: (ARE SUCH QUESTIONS MUCH ON YOUR MIND)
836: (WHAT ANSWER WOULD PLEASE YOU MOST)
837: (WHAT DO YOU THINK)
838: (WHAT COMES TO YOUR MIND WHEN YOU ASK THAT)
839: (HAVE YOU ASKED SUCH QUESTIONS BEFORE)
840: (HAVE YOU ASKED ANYONE ELSE)))
841: RULES)
842:
843: (DEFPROP BECAUSE 0 PRIORITY)
844:
845: (DEFPROP BECAUSE
846: (((0) (NIL)
847: (IS THAT THE REAL REASON)
848: (DON/'T ANY OTHER REASONS COME TO MIND)
849: (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE)
850: (WHAT OTHER REASONS MIGHT THERE BE)
851: (YOU/'RE NOT CONCEALING ANYTHING FROM ME/, ARE YOU)))
852: RULES)
853:
854: (DEFPROP WHY 0 PRIORITY)
855:
856: (DEFPROP WHY
857: (((0 WHY DON/'T I 0) (NIL)
858: (DO YOU BELIEVE I DON/'T 5)
859: (PERHAPS I WILL 5 IN GOOD TIME)
860: (SHOULD YOU 5 YOURSELF)
861: (YOU WANT ME TO 5)
862: HOW)
863: ((0 WHY CAN/'T YOU 0) (NIL)
864: (DO YOU THINK YOU SHOULD BE ABLE TO 5)
865: (DO YOU WANT TO BE ABLE TO 5)
866: (DO YOU BELIEVE THIS WILL HELP YOU TO 5)
867: (HAVE YOU ANY IDEA WHY YOU CAN/'T 5)
868: HOW)
869: ((0) (NIL) (WHY INDEED) (WHY /'WHY/') (WHY NOT) HOW NEWKEY))
870: RULES)
871:
872: (DEFPROP EVERYONE 2 PRIORITY)
873:
874: (DEFPROP EVERYONE
875: (((0 (EVERYONE EVERYBODY NOBODY NOONE) 0)
876: (NIL)
877: (REALLY/, 2)
878: (SURELY NOT 2)
879: (CAN YOU THINK OF ANYONE IN PARTICULAR)
880: (WHO/, FOR EXAMPLE)
881: (YOU ARE THINKING OF A VERY SPECIAL PERSON)
882: (WHO/, MAY I ASK)
883: (SOMEONE SPECIAL PERHAPS)
884: (YOU HAVE A PARTICULAR PERSON IN MIND/, DON/'T YOU)
885: (WHO DO YOU THINK YOU/'RE TALKING ABOUT)
886: (I SUSPECT YOU/'RE EXAGGERATING A LITTLE)))
887: RULES)
888:
889: (DEFPROP EVERYBODY 2 PRIORITY)
890:
891: (DEFPROP EVERYBODY (EVERYONE) RULES)
892:
893: (DEFPROP NOBODY 2 PRIORITY)
894:
895: (DEFPROP NOBODY (EVERYONE) RULES)
896:
897: (DEFPROP NOONE 2 PRIORITY)
898:
899: (DEFPROP NOONE (EVERYONE) RULES)
900:
901: (DEFPROP ALWAYS 1 PRIORITY)
902:
903: (DEFPROP ALWAYS
904: (((0) (NIL)
905: (CAN YOU THINK OF A SPECIFIC EXAMPLE)
906: (WHEN)
907: (WHAT INCIDENT ARE YOU THINKING OF)
908: (REALLY/, ALWAYS)
909: (WHAT IF THIS NEVER HAPPENED)))
910: RULES)
911:
912: (DEFPROP LIKE 10. PRIORITY)
913:
914: (DEFPROP LIKE
915: (((0 (AM IS ARE WAS) 0 LIKE 0) (NIL) DIT) ((0) (NIL) NEWKEY))
916: RULES)
917:
918: (DEFPROP DIT
919: (((0) (NIL)
920: (IN WHAT WAY)
921: (WHAT RESEMBLANCE DO YOU SEE)
922: (WHAT DOES THAT SIMILARITY SUGGEST TO YOU)
923: (WHAT OTHER CONNECTIONS DO YOU SEE)
924: (WHAT DO YOU SUPPOSE THAT RESEMBLANCE MEANS)
925: (WHAT IS THE CONNECTION/, DO YOU SUPPOSE)
926: (COULD THERE REALLY BE SOME CONNECTION)
927: (HOW)))
928: RULES)
929:
930: (DEFPROP BAG 5 PRIORITY)
931:
932: (DEFPROP BAG
933: (((0 (BITE BITES) THE BAG) (NIL)
934: (DO YOU SAY 1 2 3 4 FOR SOME SPECIAL REASON)
935: (WHAT MIGHT 1 HAVE TO DO WITH YOUR PROBLEM)
936: (DO YOU OFTEN SAY /' 2 3 4 /')
937: (PERHAPS YOU FEEL THAT YOU BITE 3 4))
938: ((0) (^IL) (WHY THE INTEREST IN BAGS) (PLEASE BE MORE SPECIFIC)
939: (YOU AREN/'T PULLING MY LEG ARE YOU) NEWKEY))
940: RULES)
941:
942: (DEFPROP ZZYYXX (((0) (NIL) NEWKEY)) RULES)
943:
944: (DEFPROP FUCK 55. PRIORITY)
945:
946: (DEFPROP FUCK
947: (((0) (NIL)
948: (ARE SUCH OBSCENITIES FREQUENTLY ON YOUR MIND)
949: (YOU ARE BEING A BIT CHILDISH)
950: (REALLY NOW)
951: (DEAR ME)
952: (I REALLY SHOULDN/'T TOLERATE SUCH LANGUAGE)
953: NEWKEY))
954: RULES)
955:
956: (DEFPROP SHIT 55. PRIORITY)
957:
958: (DEFPROP SHIT (FUCK) RULES)
959:
960: (DEFPROP CUNT 55. PRIORITY)
961:
962: (DEFPROP CUNT (FUCK) RULES)
963:
964: (DEFPROP PISS 55. PRIORITY)
965:
966: (DEFPROP PISS (FUCK) RULES)
967:
968: (DEFPROP BARF 0 PRIORITY)
969:
970: (DEFPROP BARF (FUCK) RULES)
971:
972: (DEFPROP DAMN 0 PRIORITY)
973:
974: (DEFPROP DAMN (FUCK) RULES)
975:
976: (DEFPROP HELL 0 PRIORITY)
977:
978: (DEFPROP HELL (FUCK) RULES)
979:
980: (DEFPROP SUCK 5 PRIORITY)
981:
982: (DEFPROP SUCK (FUCK) RULES)
983:
984: (DEFPROP SUCKS SUCK TRANSLATION)
985:
986: (DEFPROP PROBLEM 5 PRIORITY)
987:
988: (DEFPROP PROBLEM
989: (((0 (IS ARE) YOUR (PROBLEM PROBLEMS) 0) (NIL)
990: (1 2 YOUR 4)
991: (ARE YOU SURE 1 2 YOUR 4)
992: (PERHAPS 1 2 NOT YOUR REAL 4)
993: (YOU THINK YOU HAVE PROBLEMS)
994: (DO YOU OFTEN THINK ABOUT 1))
995: ((0 YOUR (PROBLEM PROBLEMS) (IS ARE) 0) (NIL)
996: (YOUR 2 3 4)
997: (ARE YOU SURE YOUR2 3 4)
998: (PERHAPS YOUR REAL 2 3 NOT 4)
999: (YOU THINK YOU HAVE PROBLEMS))
1000: ((0) (NIL)
1001: (PLEASE CONTINUE/, THIS MAY BE INTERESTING)
1002: (HAVE YOU ANY OTHER PROBLEMS YOU WISH TO DISCUSS)
1003: (PERHAPS YOU/'D RATHER CHANGE THE SUBJECT)
1004: (YOU SEEM A BIT UNEASY)
1005: NEWKEY))
1006: RULES)
1007:
1008: (DEFPROP PROBLEMS 5 PRIORITY)
1009:
1010: (DEFPROP PROBLEMS (PROBLEM) RULES)
1011:
1012: (DEFPROP PROBLEM
1013: (((0 IS YOUR PROBLEM 0)
1014: (NIL)
1015: (EARLIER YOU MENTIONED 1)
1016: (LET/'S TALK FURTHER ABOUT 1)
1017: (TELL ME MORE ABOUT 1)
1018: (YOU HAVEN/'T MENTIONED 1 FOR A WHILE)))
1019: MEMR)
1020:
1021: (DEFPROP PROBLEMS
1022: (((0 ARE YOU PROBLEMS)
1023: (NIL)
1024: (EARLIER YOU MENTIONED 1)
1025: (LET/'S TALK ABOUT 1)
1026: (TELL ME MORE ABOUT 1)
1027: (YOU HAVEN/'T MENTIONED 1 FOR A WHILE)))
1028: MEMR)
1029:
1030: (DEFPROP CRAP 6 PRIORITY)
1031:
1032: (DEFPROP CRAP (FUCK) RULES)
1033:
1034: (DEFPROP ASK 0 PRIORITY)
1035:
1036: (DEFPROP ASK
1037: (((0 YOU ASK 0)
1038: (NIL)
1039: HOW)
1040: ((0 YOU 1 ASKING 0)
1041: (NIL)
1042: HOW)
1043: ((0 I 0)
1044: (NIL)
1045: YOU)
1046: ((0)
1047: (NIL)
1048: NEWKEY))
1049: RULES)
1050:
1051:
1052:
1053: (defun top-level () (setq user-top-level nil starttime (ptime)) (worker))
1054: (setq user-top-level (quote top-level))
1055:
1056: (signal 2 (quote byebye))
1057:
1058: (defun byebye (x)
1059: (terpri)(terpri)
1060: (princ (quote your/ bill/ will/ be/ in/ the/ mail ))
1061: (terpri)
1062: (mailbill)
1063: (exit))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.