; Y (U:U*USETQPRIN1xCONDNULLSTATUSFEATURENEWIOTYOU*U*uTDEFUNCHARPOSXDIFFERENCELINELCHRCTxDEFPROPU+T@0PRINTEOLPRINTEOL NUDNUD xSUBR "-,,x]*U*U DEPTH*TIMES*LESS*TERPRI*DIF*GREATU( *TYO ,,8,8",<   " ,< $p /4B    "  ,8 , ,8,8",<`@,< $p,X ,8 $ `4B!P " $ ` B`+ "/0*u/,x QUERIFY1QUERIFY1 NUD x R @0PARSE "-, $-,,x]*U* 0LESSP=,84B*`[,8Zg,X-, B` $D [ 5B' ,$,8,8+[g,8,8+D1",<5B'[` " 4B) ` "`0-,+* `-,/,x".Ud QUERIFYQUERIFY NUD x "-,2A:U $-,,xX ,LENGTHU((MEMBER,80n+3z '$f. `@b04B4 `+5 `-,,8@ 4B= ,:,8,8?[g~,8,8?",< 4B= ` "-,+> `-, :W/,xP /LCPRINCLCPRINC NUD x!AH "-, $-,,x @U*T -*PLUSPRATT;CGPRIN 178_1.LSUBR ,F,8,8K,8g (,8K",<4BI $ `+J `@D]-,/,x8CEXPLODENU`MAKNAM*PRINC,8(B{ anb+O ` c+R ` $,/1nUd" LCGOLPRIN1CGOLPRIN1 NUD x "-,2A:U $-,,xh S*NOPOINTTERPRICGOLPRIN2D$",8 *-,   ( & $  :W /+` VCGOLPRINTCGOLPRINT NUD ! x!AH "-, $ -,,x \@b0],8 ,X`b  _PARENTHESIZEW`dPARENTHESIZE NUD!" x "-, $!-,h$D,x b`i  & $" `j * ",x eEQUALPRATT;CGPRIN 178_2.,X-,0H,X-, $#-,,x8jU*U*ULBDRBDFSUBRLEDLBPGETLLAST*PRIN1EXTU*U*UGETIT*APPLYLAMBDAMAPCAR, CGLIST; NAIVED-,$$ ,8(B{7  (+x `(N{ 8`nb+w % %&z {75i `D&4Bw` `+ `'(B{ 1 7 +}` `'+ $([``( B)4BZ`-, $ )) @ "+[`[0D*+ $ * &4B `!+` *" J$ ( @ H$ ,,8,8[gZ[,8Zg~ C,8",<* ( & $++` [`2-, 5B $   B  ( "1 & $,[`ZZ++ `,@/+ |3p_J#A16 (n,8 $ $4B$ `! +I[`(D{7 +/[`(D{ 0 1(`nb+- %z N H[`&4B- %z a5i[`D&5B-`J[`+3 $   ( & $[` Z`5B5`J "+IZ5D;[`(B{ `nb+;(  %z a5i[`&5BDZ`Z4BB * -,1 @ $ $ ( & $+Z`+,0@!+IZ`[!+I`K $    ( $ $Z`[ /*,x $H  and or ,8,8F",8,8 $   $ $-, $ $ ,8 g~1n+[  $ "  4BX g*4B[`!  " B$ B$ * J`7@g~+{Zg~5B`  $ $[g~ +{ g~0B,+b@5  g $[g~ --zP[]4Jh[(`0 Z (2Hg~+e g~ g~0B,+k"Zg~,8Z`5Bp  $ g[`H( +{  g~ g[` --zP[]4Jv&[(Z (2Hg~+s g~ g~0B, @+yZ` B`+l/7@`+~ `0` "+~ "/+j\C8 (KCGVLISTCGVLIST NUD.. x "-,  $.-,,xh ,84B[D``Z`4B`./,x` U+UdPUTPROPQUOTECONDPRIN1///*0/(xCONDPRIN1 NUD00 x "-,2A: $0-,,x  ,8[@ Z4D"[[1F+"`4  "1 & $ [`[ `5Z`5B ""7$ " * -, $$ ( & `` $,[`Z+,Z`4B! D`6 * -, $Z`0,A!+3Z4D-[[1F+- $  @  ( &1 $[`[ `7 *1-, $Z`0,+3["[0D+1[Z+1[ ( &!A@ $,+/,x|'p`|SqB|8|qOIu.!|xd@  PAIROFFPAIROFF NUD12 x " -, $1-,,x 8,84BA@Z[-,[`-,,8Zg@ Z1,X-,/,x ;U*U*UCARCADRPRINC exists := FUNCTIONYCONSu:UjW///*#2/) 3$3 4/4# +/5  +*5*66/61/,/(xSTORE//7(//(/(xLISTCADDR////* 7/7/(283$$ /(xRPLACACGSETQ//8/*9/2/(xU:UjWRPLACDCDR//9/*9/:/(xSETPLISTPLIST//:/*9/;/(xSETARGARG//;/*9/</(x 0,8[,8-, g-,,8@ Zg[-,,X-, $-,1@c]  $ $/(  BPROG2U*UjUORGREATERPPLUSCDDR & //</*==$ =$ !6/<2 2$> $ 4/, 3 >$> >4/?$ +>/, /(xPROGNANDCOMPILEu*U*U//?/*@#2//@# *5 :+/,/(xPROGCAARRETURNNREVERSECADARnew REVERSEprog u+UjW//A/** #A'/B*6B6C6:64/CD4/D.24/,$ +:/, > /(x+ //>/*+/EEE/(x +# //E/*+/FEE/(x+$ +$ //F/*+/GEE/(xW+U.W-///*+/GEE/(x -# //G/*+/HEE/(x-$ -$ //H/*+/IEE/(xMINUS//I/*4/G 2E$ /(xU:UjWADD1+1//J/* 2$E 4/J/(xSUB1-1//K/* 2$E 4/K/(x1+ +# 1//L/* 2$E 4/L/(xU:U.W1- -# 1//M/* 2$E 4/M/(xTIMES* //N/*+/NOO/(x *# //N/*+/OEE/(xU:U*U*$ *$ //P/*+/PEE/(xQUOTIENTNOTATOMCAADRFLOATCADADRU:]*u//://Q/*+@QR3#R/S72S@QR3#R/S/T/TOO/(x /# //T/*+/UEE/(x/$ /? //U/*+/VEE/(x . U:UjU//6/*+/VWW/(xAPPEND @ //X/*+/XWW/(xTO to  W*]*W by //Y/**$+723/YZZ#8$ZQ#84/Z 8Z$> /(x[]//7/*4/[$I$ +/+ 4/[/(xGATHER{}//\/*4/\$I$ +/+ 4/]/(xU+U.! ofq  of //(/*#R//+7S2/]^+D/^^/(xSTRINGIFYSTRINGIFY NUD__ x " U-, $_-,,x x L @0,84B\[,8Zg_,X-,@b B```z g$f[4BW ` "-, b+\ $[`#4B[ ` "-,@`]+\ `-,/,x p OCATU*].W"APPLY!''////*R24a/a_2/a=:'2b5@*5R24/b24/c 2 4/c/(x\//*/** 4/c.24/,$ +:/, > /(x = //#/*+/d33/(xW+U.U > //=/*+/d33/(x < ///*+/e33/(xZEROP = 0//e/* 2$3 4/f/(xEQ eq u+U.U//f/*+/g33/(x= =# //g/*+/h33/(x> ># //h/*+/i33/(x< <# u:U.u//i/*+/j33/(x isin ///*+/j33/(xODDP //@/*k4/k Q +/-ll/(x//=/*k4/k Q +/-11/(xnot W*U.U//Q/*4/l 2m$ /(xEXPRFEXPRMACROCDADR///*@8/mnn#R/* 6/62#8/mo68o$$ ,6//(xdefine (U+Uj)FLATSIZE///** 4/o3/mnn6362>2/mnn24/k:4a/a2/a4/p.34/p4/,=q>q$ +>/, > /(xnewline///*4/r/(xINCR,8[1,8Zg[,8 gZg-, #J4BnZg-, >EzPF{4`4Ji[(Z (0H@+dZg-, [+oJLz@DW 4Hm[ 2Z 0F+i "+o@d+ $@+ -,,X-,,X-,0 (/,x( ]PRATT;CGPRIN 178_3.[g=hzP7$k054Jz [(Z (0H+s[`Zg[#4Bz ZgZ[+{@d+ /h,x0rLIMTEST,8,8 ,,8,8[ @ `0F=+Z+-,,8,8g~", :<*/,xs8 |MKTO,8-,0@ ,8-,,X-,Z`[ -, $Y-,/,x@ U*U*UDOCADDDRCDDDDRCATCHXIYIMAPCiter IU*U*ufor  step CAAADR while until do return //t/*@2R2 6/t67723867uu$$ =vAvwB@v*5r2wsRv 6/w67/56/*6*52v>*5tvw$$ ?4/x* w5*x?4/y2x:x4/5 3x > >x4/y 8x > 2R #z/Q4/z3R4/{R =>o $> >4/{*$$+>/,  o $o4/|*$+o/,  > /(xCGMAPU+U.U in do mapc//w/*|/}/}/~/(x collect mapcar//*/*|/}/~//(xMAPCAN coalesce W*UjWmapcan///*|/}///(xMAP on map///*|//}//(xMAPLISTmaplist///*|//~//(xU8MAPCONmapcon///*|////(x,8,8,8,8[(B{Q6 +[g~[/5zP@Z4J[(Z (@00H+[g~Z[(B{7 +  `1B+!+[g~-, 1B*+!P "" ` * -, $ $ ( &  $+ g~+,+J[g~Z[ A(B{7 +1 `0B+1  $ $[g~Z[ `K * ("-,1 @$ $ ( & $+Zg~+`L&, "+J`L[g~-,  $Zg~,8,87@`+B7@g+B,8` B,8g[g g} $   ("` & $ [` Zg4B?`M/ZgZ` Bg D`+5/ g! #" $  -,  ( & F $,[g~-, +,/ x,xvz|qIH ( ;