; @U*U*UCONDSTATUSFEATURECOMPLRSPECIAL!VAR-LIST!MAIN-VARLIST!DECLARATIONS!DEP-VARLISTU*U*U!INITIALIZATION!PRE-LOOP-TEST!SET-VARLIST!LOOP-TEST!EACH-TIME!SELECTION!BODY!POST-TEST!FINALLYU*U*u!RETURN!FORM!FULL-FORM!RESULT-NAME*EXPR!SCANNOTYPE         xDEFUNU*U*U!PUSHMACROFORMLISTQUOTESETQCADRCONSCADDRu+Uju!#!xFOR!ITERATION-PROCESSOR%xAS%xCOLLECT'%xJOINu:].W%xADJOIN)%xSUM%xCOUNT+%xFIRST-TIME%xW+UjuDOING-%xBIND%xWHILE/%xUNTIL%xREPEAT-WHILEu:].W1%xREPEAT-UNTIL%xWHEN3%xUNLESS%xFIRST5%xW+U*uEACH-TIME%xFINALLY7%xTERMINATE-ITERATIONGO!EXIT9xPRINTINGu:U*u;%xRESULT%xORANDBOUNDPATOM=?   xSUBR F-,!MACRO-FETCH!5B-,D"    D 1 ,86B (d#` NREVERSE`C B `C d#`C`C `C "2#`C B`C ,8 `Cj@`!-,1LET $"-,7D`=:@`a*`CDECLARE E-,-,1+  " ,8 "-,1 $-,5 DO $#-, `M*1@!!!ADD-SETQ`G+' "6D`S +,1@#7F+,@`G`Y " `C@0 `mZm=-,(`29zAI|5-,1,X-,-,1 B-,-,1+<w9zAI|5-,1 @0a@ -,-,1 -,-,0P@01+< "!LOOP "$-,116D`р `7H`*`G+C   " `Z=-,A@9zAI|5-,1,X-,-,1  ( -,-,1+Q9zAI|5-,1@d1a@ -,-,1 -,#-,1+Q " `Cb`Z "-, -,d-,1 -,-,1`4D^@d `-,-,1 -,a !-,1` +gZ4Fg  =-,9zAI|5-,1,X-,@`a-,1 -,-,1` AD4Dl9zAI|5-,1a@-,-,1   -,-,1` " 1@!`*!ADD-PARALLEL-SETQ`I+p "6D`H 1 +u7F+u@`G` "P`# "-,19$z AKYst-,  `CF",NCONC<%-,1KT0<% $ B`!MACRO-STOWaK `+!FUNCTION (`0 $&[GETaM@+ ,0u$+ALIBDOC;FOR PSZ7_1LSUBR $*APPENDAj $(8O  $',DESETQ Q-,0 P-,1,xALIBDOC;FOR PSZ7_25t0!NEWSYMhSHO LIBDOC;FOR PSZ7_3-,[```-,,xPO Z7  $), ),8=3`0KMAPCANoU $-,-,1,X)` -,LAMBDA $+-, !  ,,X-,+[ "-,0 ]-,1,x*$ADEFPROPW8DC!DO-FUNCTIONW#,&xW-,&xZ B " -,  B,x`A!COLLECT-FUNCTIONW'Y&x`S`S@bZ D  -,1 -,D B `-,1 -, B $-,1 -, B " -,5 1NCONS $--,-,1 `-,2D $-, -, B `R@ VAL[-,3TAIL ".-,1`0   "-,-,1,X*--,,X-,RPLACDT].[.[/.[z FcyVSUBLISD 5a_ -, B  -,1RETURN @b $0-,-, "/0.\0,xdA#!JOIN-FUNCTIONWa&x`S`SDZ D -,1 -, B "-,1 -, B  -,1@@0 -, B `[-,3D ".-,   "-,H " BODY $1-,-,1`,X-,,X-,,X-,U)& 1PROGNNULLLASTc[12[].[.e[/[.e[z 69yqa_ -, Bb  -,1 $0-,-,@` "/,xA!ADJOIN-FUNCTIONW)3&x`S@D`SZ D -,1 -,1 1 B-,1 -, B@b  -,1 -, B `[-,3 ".-,   4 "-, " $1-, 0-,1,X-,,X-,,X)& 1-,APPENDc[g12[].[.e[/[.e[z }uxON!VAR-IS-ONW?uxBEING!VAR-IS-PATHu:UjuW@uxALONGWAuxTRAILING!VAR-IS-TRAILINGWBuxTRAILSWBuxSET-TOW+D !VAR-IS-SET-TOWCux=WDuxZ B Z D [``a,8,87 +fH[1F6+UFLONUM1+U+WZ H [1B6`+] ` 1-,13-, -, B! A u[ aM Bg4Bd0B:`3 `1Eg` `Cg`3 `:`Q@4!GENSYM-UNIQUEE!ATOMS` $-, H# *NCONCF B u[ aM@C`-,1 g-, -, d  B/ ",xALa-,4B| `7 8+x0 `-,+|[``@` $F,x,As,8   "6 B`-, $6-,1D -, B-,}[  P( 0s+ 1B;+ 0w+ 0B<+Z LA D s;w<zaW/fu B`s` ` `+0B;+ ` Jg~`+w`' ``+0B<`+ ` Jg+5BH g}0-,13-,1D7 -, B7@g+% g}0B6(`?+ "G+!07L "5`a-,1 g|-,7,X-,`gA$ 3+- g}0B6`Q1-+*0SUB1 "H g|-,,X-,AAA`g g}0B6`_m+107MR`ADD1 g|-,,X-, 1-,13-,7-,AA7@g~` g}1B6+:`uGREATERP 0 "I-,1 g|-,7,Xb!-, -, +J3+J g}1B6+D`7NLESSP` g~-,1 g|-,7,X-,H -, "/,x 0%I$RJ+$1-$K1+$>LKbA<A}[ y+T` Z D y{z41h(i Bg`{+YZ M D y{z41h(i */ J`` g-,0D13-,7 -, B7@`@+a-,13-,7-,1  "/,xAZ D  1 " -,1 `-,7 j -, B `-,CDR $M-,0b-,1 `-,7-,H-, $2-, -,1`0 ,xA`SZ D !A@ " -,1 `-, -,1 1 B-, -, B`0 `-,1 $M-,-,1 ` -,-, `-,1 @b $2-, -, `-,5 1CAR -,-,13-,1D@07 -, B "/,xX@`0AqZ D ,8,8[@! an`E!PATH-FUNCTION $N[ HDRaMEZ ,8 D [`EACH`$ `+OFOz;& Bg[ 0BO+Z ` D $NaM g`=UNDERSaUNDER-OR-EQPzx\k: -,13-,`?0@aPzx\k: & $ g~G`/+?)@H =zKLw [ 1D`M=`OZ )" F [ ITS+*Z D [ B``#[ an+< $N[ aM H4B