![[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.