;0QU*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:].W xREPEAT-UNTIL xWHEN xUNLESS xFIRST xW+U*uEACH-TIME xFINALLY xTERMINATE-ITERATIONGO!EXIT xPRINTINGu:U*u xRESULT xORANDBOUNDPATOM   xSUBR F-, !MACRO-FETCH!5B -,D" D 1 ,86B (d#+ NREVERSE! B ! B d#! B ! B ! B d! B ! B ,},8 !)`-,LET $"-,,87D+i`0*!DECLARE $"-,-,+  ",8 ,{,8 "-, $-,5 DO $#-,,87D+&*QE!!ADD-SETQ#+' ",86D+)7F+,@b@7F+,*#+, ",8 !@0,87D+6Z4F6 "-,,8(`2zAI|5-,,X-,-, $B-,-,+<4D;zAI|5-, @0[-,-, $-,-,0P@0+< ",8!LOOP "$-,,8H$6D+B6F+B7H+B*#+C   ",87D+KZ4FK "-,A@,8zAI|5-,,X-,-,  ( $-,-,+Q4DPzAI|5-,1@d[-,-, $-,#-,+Q ",8 !,87Db+YZ4FY "-, -, -, $-,-,+^4D^@d [-,-, $-,@!-,+^ ,87D+gZ4Fg   "-,,8zAI|5-,,X-,0`0-, $-,-,+l AD4DlzAI|5-,[-,-,   $-,-,+l ",87D(b@+o*!ADD-PARALLEL-SETQ$+p ",86D+rH 1 7F+u7F+u*#+u ",8  ` "-,$z AKYst-,,8  !F,8,8 ",NCONC<%-,,8",T0 <% $ B`  !MACRO-STOW% `+!FUNCTION (`0 $&[GET&@+ ,/0u$+( LIBDOC;FOR PSZ7_1LSUBR $,X*APPENDAj $(p',8 $',DESETQ $(-,0 P-,/,x8 LIBDOC;FOR PSZ7_2/5t0!NEWSYM )' LIBDOC;FOR PSZ7_3,X-,[`A0-,/,x ' ,8Z4D  $),,8 ,,8,8,8g~,8 `0",MAPCAN<* $-,-,,X)` -,LAMBDA $+-,,8 $ g  ,,X-,+[ "-,0 ]-,/,x*H DEFPROPW8DC!DO-FUNCTION+#,&x+,&xZ B " -,1uc B,x@ !COLLECT-FUNCTION+,&x),8)@b,8Z D  -, -,D B `-, -, B g $-, -, B " -,5 NCONS $--,-, `-,2D $-, -, B `R@ VAL "--, g,8TAIL ".-,1`0  ,8 "-,-,,X *--,,X-,RPLACDT..-.-/.-z FcyVSUBLISD 5/ -, B  -,RETURN @b $0-,  -, B "/0.\0,xH #!JOIN-FUNCTION+0&x),8),8DZ D -, -, B g "-, -, B  -,@@0 -, B ` "--, gD,8 ".-,  ,8 "-,H,8 " BODY $1-,-,`,X-,,X-,,X-,U)& 1PROGNNULLLAST1-12-..-.2-/-.2-z Xry8/ -, Bb  -, $0-,  -,A:q B "/,x C!ADJOIN-FUNCTION+3&x)@D,8),8Z D -, -,1 1 B g-, -, B@b  -, -, B ` "--, g,8 ".-,  ,8 4 "-,,8 " $1-, 0-,,X-,,X-,,X)& 1-,APPEND1-312-..-.2-/-.2-z >:xON!VAR-IS-ON+??:xBEING!VAR-IS-PATHu:Uju+@@:xALONG+A@:xTRAILING!VAR-IS-TRAILING+AB:xTRAILS+BB:xSET-TOW+D !VAR-IS-SET-TO+CC:x=+DC:xZ B Z D [@0,8,8,8(F{7 +fH[1F6+UFLONUM1FD+U0F +WZ H [ Fg g1B6+Y0BD+] ` 1-, g-, -, B! A $:[ & Bg4Bd0B:+b g `@Eg+q `Cg+q g `:+qQ@4!GENSYM-UNIQUEE,8 g!ATOMSE $-, H# *NCONCF B $:[ &,8 g@C` g-, g-, -,1H B/ "/,x L 0,8-,4B| `(N{7 8+x 0 `-,+|[`E,8ZgE $,XF/,xX s,8,8  5D "6 B`4B g-, $6-,1D -, B-,} [ Bg P( 1B9+ 1B;+ 1B;+ 0B<+Z LA D 9;;<zaW/fu B` g0B9+ ` Jg} +0B;+ ` Jg~+0B;+ `P  Jg~+0B<+ ` Jg+ g}5BH g}1BD7K "F-, g|-,1D -, B7@g+% g}0B6 (++ "G+!1BD7L "5,8 g~ 0-, g|-,,X-,+3A$ 7@g~+- g}0B6+(1- "G+*1BD 7LSUB1 "H,8 g|-,,X-,0AA +3 g}0B6+/ "6+11BD7MR`ADD1 "H,8 g|-,,X-, 1-, g|-, -, BAA 7@g~+@ g}1B6+:0BD+:7MGREATERP 0 "I,8 g}-, g|-,,X !-, -, B+J7@g~+J g}1B6+D0BD+D7NLESSP "I,8` g~-, g|-,,X-,H -, B "/,x 0%I$RJ+$J1-$K1+$K>LR,b <L },8-,~ [ 0B<+T` Z D <=z41h(i Bg+O0B=+YZ M D <=z41h(i */ Bg J`+O g-,0D g~-, -, B7@`@+a g-, g~-, -,1  B "/,xP NZ D  1,8 " -, `-, j -, B `-,CDR $M-,0b-, `-, -,H B,X-, $2-, -,1`0 B,xx b,8),8Z D !A@ " -, `-, -,1 1 B g-, -, B`0 `-, $M-,-, ` -, -, B `-, @b $2-, -, B `-,5 CAR $M-,-, g-,1D@0 -, B "/,xX@`0h q,8Z D ,8,8[@!4F(F{ an+"!PATH-FUNCTION $N[ HDR&4B"Z ,8 D [` FgEACH0FN `$ +OFOz;& Bg[ 0BO+Z ` D $N g&,8 g0BN+UNDERRL 0UNDER-OR-EQOPzx\k: -, g~-,+)A0OPzx\k: & $ g~G`/+?)@H zKLw Bg[ 1D+&0D+'Z )" F [ ITS0BP+*Z D [ B`@4B-(B{ an+< $N[ & H4B