;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading CHAR pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071CHARVERSIONPUSHU*UjUFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS       xFEATURECOMPLR*EXPRU*U*UTO-CHARACTERCHARACTERPCHAR-CODECODE-CHARCHAR-UPCASECHAR-DOWNCASETO-STRINGSTRINGPRPLACHARU*U*USTRING-LENGTHSTRING-EQUALSTRING-LESSPSTRING-UPCASESTRING-DOWNCASESTRING-TRIMSTRING-LEFT-TRIMSTRING-RIGHT-TRIM*LEXPRU*U*USTRING-SUBSEQMAKE-STRINGSTRING-APPENDSTRING-SEARCHSTRING-REPLACEFIXNUMNOTYPEWRITE-CHARREAD-CHARW*U*UOUSTR   xGETCHARNcan't go TO-CHARACTEW;U*R !!""p##x# xWRNG-TYPE-ARGERRORSUBR,8B 4B `-,+ `4B $D ` + `(N{ 8an + D0 `+ `4N (N{ 8an `+ $ ` ,< "p/@ + ,,8,8,8g,8",<$ :/,x##$GET,84B@(B{ an+ $ `%5BA:Ug "/,x$is not a characU;] ter. --%&&''p((x( xCHAR-ERROR,8,8 ,$`,8-, $(-,,8,8g,8&@ X",<$Cg/,x#$,8!D00 $%5B* ` "(/,x]*]*W $&ANDSPECIALCODE-CHAR-ARRAY))*xBOUNDP*ARRAY@***++xU*U*Wfixnum out of range to be a char-code,,--..//pw00x0 x,8 0.@+14.1 * `@ (.4.0[+1Z+5 ,5,8,86@f,8,87",<$/,x0%A!#($+,8 $%5B; ` "(`C/,x0$7,8 $%5B? `!AA:U "(/,x8$<TO-STRING-SUB-MAKNAMPNGETU*Unp*APPENDTO-STRING-SUB go to string. 334p44x4 x,8@ 4BC `-,+W `4BGAF `-,0+W `4NJ(N{(! 8an+O $1 `1 $2!L 0 $2+W `(N{ 8an  b+S `+W ,W,8,8X,8g ``",8Y",<$/,x4#X P@$@,87B " zPEsVDXJ ` " @`]-,-,/,x($YMAKNAMP hRECLAIM,852 $*`5,X,xX` $_,84Bf(B{ an+h $ D `%5Bhg "/,xH$c ..,< $p ,< "p/0.U*U,x0$jNTHCDRstring too small for indeW;Tx =677889p99x9 xPUREP,8,<,8 p`&. $1,<1 $ "p6 w&.$0 ./,8,<5B ,~,8 "w -, $9-,,8,8g~,8",b<$ g $w+ [ 0? p(PH0[BH g,<,<  w(N@b0Gp,<[`:4B p-, QC` + p Ow/// ,X-,//,x#]( 0P$ oMINLSUBR-0,8,< 0Z(,8Z(,8 g1n+Z(  + ",81n+Z(+ ",8@"1n+Z(+% ,%,8 g~/g,< *p,8 g~/g,< *p,8A@",<:/,8,85 `2Og+) g}-,+3.g~ `.g,< $p  g~,< & $p g} `.. 0 Nw "w B`/+&//0 KU/+@;ARGSW*U.w;<< xFLATCt a string.%=>>p??x? xb,8,84B9 `=+= ,<@ 3,8,8>,8g,8>",<$/u*U,x?#X$5STRING-SUBSEQ-SUBnot a string orng toU;\o short@@A@ABBpCCxC x-0,<,8 Z(,8 g1n+DZ( +E ",81n+GZ(+J g1/` Np "p,8 g4BR g  `.g3.+R ` g g?0@ +Y ,Y,8 ,V,8,8Z,8g},8[",00<$,8,8g~,8g~",<//0.P,xC# ;?;C xNREVERSE,<0A@,8k,8,8,8,8 g~2O` +a g~D+j g...g~,< $p@ g g~-, g~.. Nw *wB Bg~ Jg~/+^//.T,xx$ [ MAKE-LIST-0,8 0 Z(,8 g1n+qZ(+q "D`,8 gE,8,87@`+y,8`` g~-,QC`/Z` D`+t``_/,X0/,x(;l;< xUtEXPLODENSTRING-EXPLODEN-SUB"E`$|*NCONC-0,< ,8-,,8,8 `5N gA@00+.Z8F gF `0/. Np *p Bg J`+//0.G3],x0;|SAMEPNAMEP$G`$ $ h$ LIBDOC;CHAR GJC10_2LX[`QC`,X+x; ,8@c]F $G,/"0p$ LIBDOC;CHAR GJC10_3LX[`QC`,X+ ;,8@c]F $H,/"0x$MEMQPSTRING-TRIM-SUB,8,87@`+[` gHB5B `-,+Z` D`+/0t3X+ $STRING-TRIM-MAKE-SUB5"2 $,8 ,8*F $,8 gID $Lh*gIDI $*`5,X/0,,x$ ,8,8*F $,8M0 gII $*`5,X/@0,x$*,8,8*F,8D $Lh*gIDI $*`5,X/0.@`0,x$1STRING-SEARCH-SUB-0-0,<0@,8 Z(,8Z(,8 g@(1n+AZ(+A ",81n+DZ( +F g Np "p,8 /g g~@,<,\3n+K".+^,<@ g~F,8 g~F,8 $ g~6 g/g~,< &p $ gJ Nw *w,8 (9NW".+X (.g~/4/ $ g,<5 $,X5 ,\////kT,x8;:;<J x,8,<B,8 "-,,8y,8,< g2Np `+f "K+w g-,,8`,86@` +j "+p[` 8[g @2N+p@0ZgZ` Bg D`+h "/4Bs g-,+w g.. Nw "wZ`  Bg D`+d// /0u*U,x $ `*TYI*READSYMBOLIC-CHARACTERundefined U+]jPsymbolic cterMMNN&OpOOxO xSQUID-CHARTILDE-READMACRO-01@K,8 0N+~K+Lf00N/+K .A,<AB "p/+0N.+L,8@4B (B{ an+ $L `%  + "5B ,,8,8,8g",<$`c%/+/"PO ;zU+U*SETSYNTAX-SHARP-MACRO~MACROQQRPxCOMPILER-STATETOPLEVELSQUID,87DR  2+0DS+-,+-, $H-,-, $-,-, U S-,/,x $NULLARRAYCALLU*U*UDOJ1+C=LISTSETSTOREJ-UPU*U*UJ-DOWNNOT< >-+0U+U*U=-PUTPROPTT*UUVUVWU+V5WUXVVXT*UVUUVUYYVWU+)ZZU[Z[U\YUY\U])ZZU]Z[U^Y^U]YUYUYUVT*U_VT*Y_VT*Y_VUxMAPCCARCADRALPHABETAU*U*UEPSILONBELLBACKSPACEBSTABLINEFEEDU*U*ULFVTFORMFORMFEEDFFRETURNU*U*UNEWLINECRNLALTMODE ALTBACK-NEXTU*UjwSPACESPDELETE?RUBOUT_ _``LTa<aCbbc1cdddeeffgfghhiiijijkkklklkmmnmnoo]p]pqqq xSTANDARD-INPUT))rx*rrxW:@`STANDARD-OUTPUT))rx*rrxTYI-0,8,<A@ 4n Z(+ r,81n@0+# Z(+# ",8,8P1n+& * Jg7@g+0 ,*,8,8g~ ,86",<s Np *p,8 (9N. g-,+/ "(/+5 ,3`,8,8g~",<s,< "p/@Ku//,xK`;;< xTYO -0,8 Z(,8 g1n@+x",</,xh;B;< x;