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