; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading RECORD 71   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071RECORD71VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xANDFEATUREU+UjwCOMPLRSPECIAL*PROTOCOL-FILE*!#xBOUNDP%x*SCRIPT-FILE*!#x%xW:U.U*FILES-TO-WRITE-TO*!#'x%''xBASEIBASE))x*PROTOCOL-FILENAME*PROBEFU*U*UOUTASCIIDSKBLOCKFILEPSFASFAPCLOSE+INTERNAL-WITHOUT-INTERRUPTSU*U*UOPEN*APPLY~%;;; -*- Mode:TEXT; -*-~  U*U*UStuff that the user said is preceded by `==>'U*U*U~  ~%;;;Stuff that the program said is unaU+]jUdulterated.~2% 9;=? A!C"E#G$I%K&M'O(Q)Sp**x* xFORMATAPPENDXTEACU*U*UH.~A Record of session for ~A~  ~%;;;CrU*]nUeated ~A by ~A~2% W,Y-![.]/_0a1c2peexe xTEACHGET1USERIDTIME:PRINT-CURRENT-TIMEUNAMESET-UP-PROT-FILESUBR+5B(@`0-/zCI-,1+-,-,1,8a-.9+ g|`1!zFU@bg g|`3 g|,x * bC-,5As3 Dgy[` "a7``, Bgy ,,8KA@a",oU-./ ,,8+ @b,8&",< B-,1' ,%,8C,8M  "3ag5B "4izkYW4R`Sg "5kz|X631g",):WoU,x*+/xZuqTXemLISTIFY~& opw+]jw88x8 xLEXPR-FUNCALL op99x9 xFORCE-OUTPUT op::xw;U 0: x opuuxu xPROGRAM-RECORDLSUBR-0"77D`i ,-,8,8,8B",1oU a,8,83Koq g!#!,8,8,8C",oU `s7B`1 q,8",oU ,<,8,8Db,83Koq ,?,8,8", (oU `s+A "/,x8" :WU9:Uuw'ARGS<;4yxU;]nu~&==> ={p>>x> x ={p}}x} xECHOFILES`0!READRECORDED-READ-077D+K2 ,K,8,8,8U",oU7B+O ,O 1,8",oU'-, ?00 ,8,8V,8g",oq,/0 >w,x>}wE<@4yx ={pxw;U 0 x ={pAAxA xSYSREADRECORDED-SYSREAD-0"77D` ,8,8",!oU7B` ,8,8g",oUB'-, ? ,e,8,8g", "oq,/,xA_*@`w<B4yxOUTPUTRECORDED-OUTPUT-071 ,m,8,8q",oq ,p,8K,8g",oq/,x;whu;].w<C4yx~S pDDxD x~&~S pEExE xPRECORDED-PRINT ,8,8w",<;,X!Ru*U "EiD,mrHOMEDIR*MERGEF*DEFAULT-SCRIPT-FILENAME*TRUENAMEU*U*W~&Creating script file ~A for you.~% IJKLpw*U*Ux xNAMESTRINGSCRIPT-FILE?VERSION-FILEIN~&Appending to U*]nUfile ~A for you.~% OPQRpx x~&~A is noU*U*Ut a script file, so I'm creating a new ~ U*U.w ~%version of that for you.~% STUVWXYZ[ px xU*U*U~&(COMMENT TEACH-LISP SCRIPT FILE FOR ~A ON ~W;TA)~2% \]^_`paaxa xSCRIPT-0 @4n{ @` "Fz'L11`0g-,1 -,-,1 $E& `G` Fz'L11g-,1 -,0F -,1G;- -,1 `-,-,1,81S-.9`# g|`15B!zFUg 0 4B g|`34B g|,x * -,15As3 Dgy[` "a70, BgyH-./1 B` ,,8M",<C`D ``A `N5B7-,1  `-,-,1,8-.0@bS9++ g|`1S!zFUgU g|@`@1`3U g|,x * -,500As3 Dgy[` "a7, BgyH-./ B` mL1,8,8ZM",<C` ,;,8 4 gM",<C--,1  `-,-,1,8-.0@bS9` g|`15BD!zFUg4BE g|@`@1`34BE g|,x * -,500As3 Dgy[` "a7, BgyH-./ B` ",83,8[",< B'-,@BS' ,8,8izkYW4Rg "``"5",oU,x"RujU+/xZuqTXa w<4bxNAMELIST>EXPLODEN@ `ZZ[0Dc+a " @+|-,1 `-,-,1`1,8-.9` g|`15Bj)D!zFUg4Bk g|`34Bk g|,x @ * -,5As3 Dgy[` " 0a7, Bgy-./1AF H-, `6@`` " `[` 81.+{9+{Z` B` @`]` "/,xpm\COMMENTP 0TEACH-LISP-,1,X-,7-,a1,8-.9+ g|`1S1 !zFUg g|`3 g|D,x * -,5As3 Dgy[`0``A "a7, Bgy " $-. ,,8,8grKo-,1 + 4B[+6 0@2`KZ`,8`[`0DdB`K6 `KZ`,8`[` `K6 `KZ`@@a,8`[` " +& "/-./,xlm}U*U.w*DELQ~&Closing script file.~% fgphhxh x"2#!STOP-SCRIPT' e' @@ ,.@`Kx,8]K<C,xhDm(;