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