; PQU:U*USETQPRIN1xCONDNULLSTATUSFEATURENEWIOTYOU*U*uTDEFUNCHARPOSXDIFFERENCELINELCHRCT   xDEFPROPU+T@0PRINTEOLPRINTEOL NUDNUD xSUBR-,1,x]*U*U DEPTH*TIMES*LESS*TERPRI*DIF*GREATU( *TYO ,,8,8K  " a $p `C " a ,,8,8K 0@1 $p  `4B!P   ` B`` "0*u,x QUERIFY1QUERIFY1 NUD!xR @0PARSE "`#-,1 $-,,x 9aLESSP=?4B*`[@,X-, B` $1[ 5B' I,8,8+[gWD1Ko'5B'[` " 4B) `)`0-,3+* `-,,x".Ud% QUERIFYQUERIFY NUD+x "`#-,2A:U1 $-,,xX ,LENGTH!U((MEMBER/+3-/)z 3] `@b0i `+5 `-,4B= u,8,8?`Ko' 4B= `)-,3+> `-, :W/,x1/P /LCPRINCLCPRINC NUD3x0d `#-,1 $-,,x @U*T [*PLUSPRATT;CGPRIN 178_1.LSUBR ,8,8K,8g (Ko'4BI  `+J `@D]-,,x58CEXPLODENU`MAKNAM*PRINC anb` `c` ``9 7,1nUdh; LCGOLPRIN1CGOLPRIN1 NUD=x`#-,2A:U1 $-,,xh *NOPOINTTERPRICGOLPRIN2D$" -, ?   :W +` CGOLPRINTCGOLPRINT NUDA!x0d `#-,1 A-,,x \@b0]``bh _PARENTHESIZEW`dPARENTHESIZE NUDC"x "`#-,1 C-,D1,x 8  E `j * ,x EQUALPRATT;CGPRIN 178_2.-,d ,X-,7 $#-,,x8U*U*ULBDRBDFSUBRLEDLBPGETLLAST*PRIN1EXTU*U*UGETIT*APPLYLAMBDAMAPCAR, CGLIST; NAIVED-,$I7  (` ` 8`nb+w %K&z {75i `DaM4Bw8; ``9 `' 1 7 +}` ``O`9 $([`!`#aQ B)4BZ`-,1 $ )aS `9[`[0D*`7 @ & ``C`9`8= E J$ @ I ,,8?[gZ[@CKoU   $+bW` [`2-, 5B ` @1  $,[`ZZbW`9 ``Y@+ |3p_JGB16 (n $II ``C +I[`7 +/[` 0 1(`nb`[Kz N H[`aM[ %z a5i[`#aM[`J[`+3  ( & $[` Z`k8 +IZ5D;[` `nb+;(  %z a5i[`aM5BDZ`Z4BB -,1 @ $I   $+Z`bW,0@!+IZ`[`C+I`K   (I $Z`[ *,x $H Aand or ,8F",8 I $-,"$I,8 g~;` $ "  3@8"@I B$ J`7@g~`Zg~"AI $[g~ `0B,`@5` g $[g~ -[zP[][(00AZ (R3```;0B,`"`Zg~Z`I g[`Q +{ g[` -[zP[]&[(Z (2Hg~`` g~`; g~0B,0``Z` B``7@`+~ `0` ` +j\C8 CGVLISTCGVLIST NUD.]x "`#-,1  $.-,,xh [0` Z`8.,x` U+UdPUTPROPQUOTECONDPRIN1/__*0_(xCONDPRIN1 NUD0ax "`#-,2A:1 $0-,,x  [@ Z4D"[[1 +"`8i@1  $ [`[ ``5Z`- ""I * -, $I  0` $,[`ZbW,Z`C` D`6 * -, $Z`0,A!`gZ[[[1 `[ @  ( &1 $[`[ `7 *1-, $Z`0,`g["[ +1[Z`c[  !A@ $,bW,x`|8ϓC|x@  PAIROFFPAIROFF NUDc2x "`#d -,1 c-,,x 8@Z[-,1[`-,@0 Z`c,X-,,x ;U*U*UCARCADRPRINC exists := FUNCTIONYCONSu:UjW/__*#e_) 3$g4_i# W_5  WUk*6m_6c_,_(xSTORE/_7Q__(_(xLISTCADDR/_/_* o_o_Qe83$I_(xRPLACACGSETQ/_q_*9_e_(xU:UjWRPLACDCDR/_s_*9_:_(xSETPLISTPLIST/_u_*9_;_(xSETARGARG/_w_*9_<_(x 0[,8-,13-,7@ @[-,1,X-, -,1@c]I $/(  PROG2U*UjUORGREATERPPLUSCDDR & /_y_*={${ICm_y e e$>$4_, 3} I>}4_?$W}_,_(xPROGNANDCOMPILEu*U*U/__*@#e__#UkA: W_,_(xPROGCAARRETURNNREVERSECADARnew REVERSEprog u+UjW/_A_**#'_B*6mC6:64_D 4_.e4_,$W:_,>_(x+ /_>_*W_E_(x +# /_E_*W_F_(x+$ +$ /__*W_G_(xW+U.W-/_ _*W__(x -# /__*W_H_(x-$ -$ /__*W_I_(xMINUS/__*4_ eI_(xU:UjWADD1+1/_J_* e$4__(xSUB1-1/_K_* e$4__(x1+ +# 1/_L_* e$4__(xU:U.W1- -# 1/_M_* e$4__(xTIMES*/_N_*W_OO_(x *# /__*W__(xU:U*U*$ *$ /_P_*W__(xQUOTIENTNOTATOMCAADRFLOATCADADRU:]*u//:/_Q_*W@R3#_Soe @R3#_S_T _OO_(x /# /_T_*W_U_(x/$ /? /__*W_V_(x . U:UjU /_m_*W_W_(xAPPEND @ /_X_*W_W_(xTO to  W*]*W by /_Y_**IWoe3_ZZ#8I Z#84_ 8ZI>_(x[]/_o_*4_[$IW_+4__(xGATHER{}/_\_*4_$IW_+4_]_(xC ofq  of /_Q_*#__Woe_^ WD_^_(xSTRINGIFYSTRINGIFY NUD_x "`# U-,1 $_-,,x x L@0[@_,X-,@b B``z 3[ `)-,3 b` $[`# ` "-,3@`]` `-,,x p OCATU*].W"APPLY!''/___*Re4a__9e_=:'ebk@UkRe4_e 4_c e4_c_(x\/_*_**4_.e4_,$W:_,>_(x = /_#_*W_dgg_(xW+U.U > /_{_*W_gg_(x < /_'_*W_egg_(xZEROP = 0/__* e$g4_f_(xEQ eq u+U.U/__*W_ggg_(x= =# /__*W_hgg_(x> ># /__*W_igg_(x< <# u:U.u/__*W_jgg_(x isin /__*W_gg_(xODDP /_@_*k 4_ Q  W_-ll_(x/_=_*k 4_ Q  W_[11_(xnot W*U.U /__*4_ emI_(xEXPRFEXPRMACROCDADR/__*@8_n#_* m_me#8_o m8o$I Ym__(xdefine (U+Uj)FLATSIZE/__**4_3_nm3me}e_ne4_:4a_e_4_p.34_4_,{q}$W}_, >_(xnewline/_?_*4_r_(xINCR[c@[3Zg# #J4BnZg-, >EzPF{4`4Ji[(Z (0H@`Zg [+oJLz@DW 4Hm[ 2Z 0F`+o` $@` -,1,X-,,X-, Q,x( PRATT;CGPRIN 178_3.`{zP7$k051[(Z (0H`[`@[# @Z[`` /h,x0LIMTEST,8 ,,8,8[ @ `0F=`Z+-,3K :oU/,xs8 MKTO-,0@ ,8-,1,X-,7Z`[d -, $Y-,,x@  U*U*UDOCADDDRCDDDDRCATCHXIYIMAPCiter IU*U*ufor  step CAAADR while until do return /__*@eRe m_mooe38mou$I =vAwB@Ukew m_mo_km_*mUke}Uktw$I4_x*k*4_ye:4_5 3 >}4_ 8 >e #z_4_3 4_{ =}o I>}4_*$IW}_, o Io4_|*$Wo_, >_(xCGMAPU+U.U in  do mapc/__*_}__~_(x collect mapcar/_U_*_}___(xMAPCAN coalesce W*UjWmapcan/__*_}___(xMAP on map/__*____(xMAPLISTmaplist/__*____(xU8MAPCONmapcon/__*____(x,8,8[Q6 +`[_kzPZ4J[(Z (a0H`#`Z[7 +AA `1B`C+`-, 1B*`CP "" ``; -, $I    $+bW,``Z[ A7 +1 `0B1I $`Z[ 8  E-,"D@1$I   $+@bW`L&, ``8`#  $@,87@``3`,8` B,8g` g}`;  ("`  $ [` @8/@Z` D`+5/`;! #" -,`   F $,` bW,/ x,xvz|qH ( ;