; QPQU@UNIONLSUBR-0,<,8 p{` `+.Z8 `BORa :p B`+/,xR.@`QINTERSECT-0,<UNIVERSEZa-, ,< p{+ ``'` 0.Z8 `BANDa:p B``@ P/,x(GATHER-0,<C,8" p{+ `+ F %.Z8OBNUM` $ "EXPT`a $ `a:p B``/ :/,x@+SETDIFF-0@a,< p5N&Z-, `gS 0#AZ-, *DIFa `g 0@i p{`] `-,0A@ +2.Z8 `BDIFF:pA@`0 B``W-,,x`ESYMDIFF-0,<} 0,8? p{`s `+=.Z8 0 `BSYMDIFF:p B`+7/K,xx5ELEMENTSSUBR ,E@@j,8Z-, ADD1` 4AKLESSP< Error in Elements` `` 1 8an +K $Z`LELEMENTS ` (``R $ `FELEMENTSa,x X 0 ,<4BV[a pˀ#`  $p@ $*APPENDa0 ,x0 N,<,<P  "`3+e[*B p,< $p@  "pa,X-,/` p,< $p "paA://,x8 ELEMENTOF  0[HAULONG "p C`+r ",xP CARDINAL an +yR %FCARDINAL Z`, $PLUS "*APPLY@``Xa+z ``,x` s,<P  p "` 3+ "p0a```  "p`A0,xh {,8  `n + -,`@  8`n `-,0# $+AsBFOR/QlCONSBIGNUMBERh!  ,85B "-,AB+--,+[ 8[G@`ZZ $p-,7`/,x ,8 @ `n `C-,+"@0 8`n +'-, $;`OAsBFAND/h!8  ,8cc[ 8[A@Z`aZ $p-,7+2  "/,x S,8 0a`n `o-,+8@@ 8`n +=-, 0c $`{AsBFDIFFa#/h!X p 3,8[ 8[D@Z `0Za# $p-,7/0,0,x ,8 `n B+L-,`@` 8`n `-, $+R(`cXAsBFSYMDIFF/h! @ ,85BW "-,+^-,+^[ 8[F@ZZ $p-,7/,x TPaBELEMENTP,<,8 "-,4Bj p #R+gX[ @(P84T "00+j#Z "pa%0 ,x( _ELEMENTP,8OLDOBNUMB,<-,4Bv ` 8@an +sZ` "pa%+v"p `(P8 4 "/,x8 Q@ SUBSETP6@ ",xH aa7 ` `-,`Z` [`` `CONSBIGNUM,x z{VALRETQUOTE :VP +-x+LmP  5BNEWNUM,<[ "pC`@0-,-, $p-,3DZ[AW/C`3-,Z[/C`-, -,,xH  1SXHASHx&.2 -,/ Z[/C` $@ASSOCa1 Z/,x@ ZZ[`J3ZZZ[ "*TIMES` -,1 `-,ZXB[ARRAYDIMS1`3 `Z[*GREAT] ],8H [,80 5*PLUS jK*REARRAYo7 `SUB1"]ap GENUNIVERSE ,4,8,8,8={K0*ARRAY< ,8,8,8,8>}AdK< "-,1 $-,`%,X-,,X-,,x2"ujW;;H aSETQ9xCARCDR=xx;