;2E (U*K#]BBOOLESUBRPACKAGELOADEDz1 ;t*PRINT"DEFUNU*U*ULETMACROFORMCONSQUOTELAMBDACADRCDDDRCADDRu0xREDUCE,8,85D(B{7 +RFIDENTITY $ gGET + "+(D{a7 + `-,+Z`5D @0[`+[`,8 g $,XEgu*u/,xDEFPROPLAND xLORW+UjU xLXOR xLCOM x&AAPPENDU+U.UBOOLECDR   xV  x_u0  xMOD,<,< p5N-,+!  w&p,<5P -, + wa4n w4n -, + .w -, + w4n.w -, @`0+ -, //,x] QUOT,<,< w5.* p5.' w &p-, +/ w/p..&p-,0@ +/ p5.. w/p/.&p-,0@`0 +/ w&p-, /,x]$("CHECKLIS,8Z5D3T "+8*A414B8Z` z'$fEQUAL4B8Ra` `A:W-,/,x00VALRET :VP xPtQCONSBIGNUM+*3iRmX9LNOT $ " *DIF$]+T`9LISTDIFFERENCE   xBLSH,8,< p5.@F "`,< $pBRSH/+B% 00 "EXPT `*TIMES//0,,x;,8,< p5.H"`,<AB $p/+P 5.N* "  1! $p $ " +P "(``0 $ `*QUO//,x]CLEFTSHIFT,8,< p5.W"`,< $pQABCRIGHTSHIFT/+Y " `A0//,x0R,8,< p5._"`,< $p/+k `0!5.e* "  $p $ "  +kHAULONG,<3nw+j/w,< $p  `HAIPART/+k " /A:U//,x8ZSWRSUBSTABCDU+U*WLSH     xSWC     !!xP`0BBOOLEAN,8,8,8,<,8,80E 5Dr5Fr " + g~5Bt " -,0-, Bg "5Bw " -, -, B` ,|,8,8g}[g~,8[g~ ,8",<Z`Zg g~ Np" *p ,8,8(B{7 + g5N "(`-,+ g-, $(-, + g "(-,/-,A://,x  mPBOOLEAN,8,8@,8(D{ an +(F{ @#an +Z`Zg"CONSBIGNUMBER#+ `3-, &Zg g"#+ (F{  an + g-,Z` $L" g"#+ , ,8,8,8g~,8g~AA:",</,x(  BOOLEA,8,8 ,8 5.G 5.5 .A5N, "  $,8 " *,X g"0+d .D " ,< $,8 " *,X "p" $ " /0@+d .A5N> .A(N 00A(PG " ,< $ "p"/+G .A(N 0A(PGB. " ,< $ "p" $!AB " /+d 5.] .A5NR .A(N 0A(PG*  " ,<* $ "p"/+d .A(N 0A(PGB.`* " ,<* $ "p" $!AB " /+d .A5N_"0!+d .D,< "p" $ " A://,x8 !BAND,<,8,85Bh " +w5Di " +w[ 8[A@ZZ Np$ *p,8B,8(B{7 +u g5Ns "(-,0@ 0+w g-, $(-,+w@`0 g "(-,///0.@0,x@eBINTERSECTP,8,8-,4B "-,4B[g 8[A@4N @ "+ZZg$/,xHyP BOR,8,85B "-,+ 5D-,+ [ 8[G@ZZ@ ,<% $p-,//h ,xPBLCOM,<,8,85B " AB+ 5D-,+ [ 8[D@`ZZ Np% *p,8,8(B{7 0@ + g5N "(-,+ g -, $(-,+ g "(-,0 ///,xX PBXOR,<,8,84B34D2[ 80[F@ZZ Np& *p,8,8 (B{7 +0 g5N- "(-,@+1 g-, $(-,+1 g 0 "(-,/+5-,+5( "-,5B5 " //h0,x`!PLAND,8,8(B{ an @+A(D{ an +>Z`Zg$@0#+HZg[8 8A`-, +H(D{ an +F gZ`[@A@-, +H gA`-, /h0,xh7PINTERSECTP,8,8(B{ an @+T(D{ an +PZ`Zg$ +\Zg[8 8A`7@g "+\(D{ an +Z gZ`[@A@ 7@g "+\ gA`7@g "t/,xpIPLOR,8,8(B{ 0`an +j(D{ an +eZ`L Zg%+rZg[8 8G`Zg 1Z-, -,+r(D{ 0an +q gZ`[@G@Z`ZF-, -,+r gG`-,0 /,xx]PLCOM,8,8(B{  an +(D{ an +{ bZ`Zg%#+Zg[8 8D`@cZgZ-, -,+(D{ an + gZ`[@D@-,0@`0 + gD`-, /,x]sPLXOR,8,8(B{ an +(D{ an +Z`Zg&#+Zg[8 8F`ZgZ-,  -,+(D{ an +0 gZ`[@F@Z`Z-, -,1D+ gF`-, /@a,x,8(B{7 +! `-,0@ +$Z`5B#[`+$ `/0,,x0,8,80B+(-,+9 5.4 5.1* "  ` 0!,8 "  $,X' $ " `+9* "  $ `(+9  15.8 "  $ g(+9&/0,,x %,8,80B+=-,+P 5.J 5.F* "  ` 0!,8 "  $,X& $ " `0!+P* "  `( $ " +P 5.O "  g( $ " L +P'/,x0:,8,8P  0B+T " +d 5._ 5.[ "  g,8 "  $,X(+d * "  `' $ " +dP` 5.c "  $ g&+d(`/,xHQ,8,80B+h-,0@ !+z 5.t 5.o* " ` `,8 "  $,X(+z*!@`C "  `( $ " +z  0!5.y "  $ g( $ "  AA:+z(/,x@eLREDUCE,8,8P"0 5N~ "+9N "-,+hc# 4nPREDUCE)+NPREDUCE*/@,x{,8,8(B{ an + !#ZgBREDUCE*+ gFREDUCE+/AT ,x-,LN+,84B "$Q-,4B &[+ ",BFREDUCE,V/+( ,<,<,8 "-,4B% w5N*Z+*+% paN+ [,8 w/. p(P0Z,< $p,< "p,,X-,/+% w/. p(PZ,<``0 $p,< "p,///0, ,xH ,<,8 p5N* "+3@aN+0[,8(NZ,< "p+ ,X-,/+3(NZ,<A@`0 "p+///,x] 0'LELEMENT,<,8 p5.8N<0-LELEMENT "-+0 5.= "  $ "p-6@`g "+D(D{ an +AZ`QDBELEMENT.+D"p `(P8aPg "A0//,xP5,<,8 "-,4BP p0.+M"`[ @(P8aPg "+P/.Z,< "p .///,x`Ex;