;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading RECORD 71pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071RECORD71VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xANDFEATUREU+UjwCOMPLRSPECIAL*PROTOCOL-FILE*xBOUNDPx*SCRIPT-FILE*xxW:U.U*FILES-TO-WRITE-TO*xxBASEIBASEx*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% !!""##$$%%&&''(())p**x* xFORMATAPPENDXTEACU*U*UH.~A Record of session for ~A~  ~%;;;CrU*]nUeated ~A by ~A~2%+,,-!-..//00112p22x2 xTEACHGETU*U"USERIDTIME:PRINT-CURRENT-TIMEUNAMESET-UP-PROT-FILESUBR 5B(@`0zm7C$-, -,-,,80B ,8-.+ g|5B zFU@b4B g|4B g|,x * !-, Zgy,8gy Dgy[` "@/, Bgy ,,8,8,8%A@a",<*-./ ,,8,8 @b,8&",< B-, B ,%,8Q,8,8& $ "335B "4,84zkYW4R`S,8 "5,85z|X631,8",):W<*,x*+xZuqTX2`6LISTIFY~&7pw+]jw88x8 xLEXPR-FUNCALL7p99x9 xFORCE-OUTPUT7p::xw;U 0: x7p::x: xPROGRAM-RECORDLSUBR-0,8"7,87D+4 ,-,8,8,8B",@$<* ,0,8,8B,8,8g~",<8 ,3#,8,8,8C",<* 97B+@ 1 ,8,8,8,8C",<* ,<,8,8Db,8,8g~",<8 ,?,8,8,8D", (<* 9+A "/,x8" :W*9:*:0;'ARGS<;4< xU;]nu~&==> ==p>>x> x==p>>x> xECHOFILESU@0READRECORDED-READ-0,87,87D+K 2 ,K,8,8,8U",<*7B+O ,O 1,8,8,8U",<* -, ?00 ,S,8,8V,8g",<8,/0 >w,x>>?;E<@4< x==p@@xw;U 0@ x==pAAxA xSYSREADRECORDED-SYSREAD-0,8"7,87D+\ ,\,8,8,8f", <*7B+` ,`,8,8,8g",<*B -, ? ,e,8,8g,8g", "<8,/,x@AA_*@` ;V<B4< xOUTPUTRECORDED-OUTPUT-0,87,81 ,m,8,8q,8",<8 ,p,8,8q %,8g",<8/,x;B0;hu;].w<C4< x~SCpDDxD x~&~SDpEExE xPRECORDED-PRINT,8 ,u,8,8w,8",<;,X!Ru*U "E$BDX6rHOMEDIR*MERGEF*DEFAULT-SCRIPT-FILENAME*TRUENAMEU*U*W~&Creating script file ~A for you.~%HIIJJKKLpw*U*ULLxL xNAMESTRINGSCRIPT-FILE?VERSION-FILEIN~&Appending to U*]nUfile ~A for you.~%OOPPQQRpRRxR x~&~A is noU*U*Ut a script file, so I'm creating a new ~ U*U.w ~%version of that for you.~%SSTTUUVVWWXXYYZPZ[ p[[x[ xU*U*U~&(COMMENT TEACH-LISP SCRIPT FILE FOR ~A ON ~W;TA)~2%\\]]^^__``paaxa xSCRIPT-0,8 @ 4n{ Z(+{ ",84BFz'L11`0-, $F-,-, $E& `G+Fz'L11-, $F-,0F -, GG,85B " -, `-,-,,8 1),8-.+ g|5BzFU 0 4B g|4B g|,x * -,1 Zgy,8gy Dgy[` "/0, BgyH-./@& B` ,,8,8YM,8",<C+MD `M5B `N5B7 "N-,  `-,-,,8,8-.0@bS++ g|5B)zFU4B* g|@`@14B* g|,x * -, 00Zgy,8gy Dgy[` "/,0  BgyH-./ B` ,6L1,8,8ZM,8",<C+M ,;,8 4,8Z gM,8",<C "-,  `-,-,,8,8-.0@bS+E g|5BDzFU4BE g|@`@14BE g|,x * -, 00Zgy,8gy Dgy[` "/,0  BgyH-./ B` ,P",8,8g,8[",< B -,@BS B ,X,8,8,8[4zkYW4R,8 "``"5,8",<*/,xLR"RujU[+xZuqTXa ;w<a4b xNAMELIST>EXPLODEN@ ,8b,8ZZ[0Dc+a " @+| "N-, `-,-, ,8,8-.+k g|5Bj)DzFU4Bk g|4Bk g|,x @ * -, Zgy,8gy Dgy[` " 0/, Bgy-./1AF H-, c,86@`+v " +{[` 81.+{0n+{Z` B` @`]+t "//,x `6\COMMENTP 0TEACH-LISP,8 "N-,,X-,-,0a,8,8-.+ g| L 15BzFU4B g|4B g|D,x * -, Zgy,8gy Dgy[`!A@` "/, Bgy " $-. ,,8,8gr",<A-, + ,84B[+,8(B{6 0@2+%Z`,8`[` Bg/0DdB+%(B{6 +%Z`,8`[` Bg /0Dd+%(B{6 +%Z`@0,8`[` Bg0Dag " /+&   "/-./,x X6}U*U.w*DELQ~&Closing script file.~%effggphhxh xQd#STOP-SCRIPT  e B @@ ,.@`Kx,8,8.",<C,xh 6(;