; RHQU*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!#%') +-/13579799+ 99999993;=xGETCHARNcan't go TO-CHARACTER A!C"Ep##x# xWRNG-TYPE-ARGERRORSUBR`#B 4B `-,`+ ``) $1 ` `+ ` 8an `D0 ``%`+ ` 8an ``# ? `  "p`%3`+ ,,8-,8g,8K<$`D,x#GIGET5@1 an`9 $ `%5BA:U,xI/is not a character. -- K&M'Op((x( xCHAR-ERROR,8 I@`,8-, $(-,,8g,8&@ XK<$p/,xGDI =!D00 $%5B* ` "aQ,x]*]*WIMANDSPECIALCODE-CHAR-ARRAY)S*xBOUNDP*ARRAY@U**+WxU*U*Wfixnum out of range to be a char-code ,Y-[.]/_pw00x0 x 0.@`cc * ` a`+1@`k ,5,8m@f,87K<$`%,x0CCGI+ $%5B; ` "aQ`C,xIo '% `!AA:U'aQ,xI<TO-STRING-SUB-MAKNAMPNGETU*Unp*APPENDTO-STRING-SUB go to string. A3g4piixi x1`) `-,` ``#AF `-,1`a` ``C 8an+O $1 `ac $2!L 0 $a `e` ` 8an  b` ``%` ,W,8,8g ``",8YK<$,xiGX PI " zPEsVDXJ ` " @`]-,-,,xIMAKNAMP hRECLAIM5`e $*`ak,xX` I_4Bf an+h $ 1 `%,xIc ˀ $p  "p`%/0.U*U,xXIjNTHCDRstring too small for indeW;Tx = m7o8q9pssxs xPUREP,< p`ˀ $1ac $ "p6ˀ /5B ,~,8 "w -, s-,,8g~,8Kb<$ $w`[  p(PH0[BH,<  w(N@b0Gp[`:4B p-,QC` + p Ow/ -,,xG]( 0I oMINLSUBR-0,< 0@Z( g1n+@  `/ ";+Z(`5 "@"1n+@`K ,%,8 g~+/g *p g~+/g *p0`",ou/,85 `S`S -,+3 `.g,< $p  g~ & $p `ˀ 0 Nw "w B`/`M/0 KU+ @;!ARGSW*U.ww<yxFLATCt a string. K{>}p??x? x`1,8`)4B9 `=+= y@ 3,8,8>,8g}K<$+u*U,x?GIkSTRING-SUBSEQ-SUBnot a string orng toU;\o short @ABpCCxC x-0,< @;`Z(@+E "1n`@+J+1/` Np "p g`)4BR g+3 `s3.+R `3 ga`a@ +Y ,Y,8 ,83,8[K00<$33K</0.P,xCG ;?w?xNREVERSE,<0A@,8,8 g~2O` `D+jˀ.g~ $p@ g 3-, g~ˀ B Jg~`.T,xI MAKE-LIST-0 0 @;+qZ(``E7@``,8``-,QC`Z` D````_`a,x(;lw5?<xUtEXPLODENSTRING-EXPLODEN-SUBh0I|*NCONC-0,< -,,8 `5NA@0`a+.Z8F3a `0 Np *p J``0.G3],x0;SAMEPNAMEP$GI iI LIBDOC;CHAR GJC10_2LX[``%QC`+ x;@c]F haILIBDOC;CHAR GJC10_3LX[``%`'QC`+ ;!@c]F $HhaI'MEMQSTRING-TRIM-SUB,87@`+[``%3aB9 `-,+Z` D``//0t3X+ HI -STRING-TRIM-MAKE-SUB5heLI ,8*F $ gID $Lh*gID` $*`ak/0,,xI ,8*F $M0 gI` $*`ak/@0,xI*,8*FD $Lh*gID` $*`ak/0.@`0,xI cSTRING-SEARCH-SUB-0,<0@ @Z( g@(1n+A@` ";+DZ( +F+ Np "p @+,\3n`K`,<0FF $6 g &p $J  (3K` (.g~d4 $ak $ak kT,x8;:w7<x,8,<B "-,,<2Np `` "K+w g-,,8`6@`A``[` 8ds @2N+p@a@Z` D`` "/4Bs -,+wˀZ`  D`+d 0u*U,xPI `*TYI*READSYMBOLIC-CHARACTERundefined U+]jPsymbolic cter MNMOpx xSQUID-CHARTILDE-READMACRO-001` /```%+Lf00N/+``% ?AAB "p`%+0N.`!L` an` `%A+ " ,8,8,8g",<$a0cK+`%"P ;zU+U*SETSYNTAX-SHARP-MACRO~MACROQRxCOMPILER-STATETOPLEVELSQUID  2+0DS+-,`5-, $H-,-,1 $-,-,1 U-,,xI%NULLARRAYCALLU*U*UDOJ1+C=LISTSETSTOREJ-UPU*U*UJ-DOWNNOT<A>-+aU+U*U=-PUTPROPT*UVWW5X*UVYWW)Z[Z\Y])ZZ^Y]Y*_*Y_*'_xMAPCCARCADRALPHABETAU*U*UEPSILONBELLBACKSPACEBSTAB LINEFEEDU*U*ULFVT FORMFORMFEEDFFRETURNU*U*U NEWLINECRNLALTMODEALTBACK-NEXTU*UjwSPACESPDELETERUBOUT_`%Ta<bc1ddefghiijikklkkmno]p]qqxSTANDARD-INPUT)SrxUrrxW:@`STANDARD-OUTPUT)SxUxTYI-0,<A@ ? @+ r;@0+# Z(`G ",8P;`M 3`a U,83 m",<s Np *p (3]a-,`_ "(`%+5 ,3`,83K<s "p`%@Ku/,xK`;7w<xTYO -0 @; +x",<,xh;Bw=?<x;