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