FASLPU*]*UFLUIDQUOTE*EXP*S*xGLOBALSUBFG**SUB2*NATu(0xMATSM*EXPR,8MATSM B`Z5B#
[`Z5B[`[MK*SQ2+ $I# `MAPC2MAT $XCONS@@/
, ,xH.59*@@g~ B` Dg `F5B g~/REVERSIP"[ Bg@@g~4B#[NCONS  gAPPLY	 g~CONS	 Bg~Zg Bg+Z` B` g~@  g~	 Bg~+
((h
."59*0 B`  Bg `SUBS2
 B` g Bh` `/#MK*SQ"
`.159*F@@gMATP $NSSIMP B`4B0[ZQ@#MATRIXTIMES [`[MULTSM Bg g05B- g+. gADDM
 BgZ` B`+& g/2,xX#.}59*@@@g@@g@@g~ B` "
 Bg~ `5B8i# g~+|*DIV $[EQCAR5BR[`QDARATOM5By[`[1B+LMSIMPFN $Q@ GET Bg4By[`Z	+Q g~5BD g+JZ5BI[g~Z5BI g 
[g~[+J g~ gMULTM Bg~#
Z` B`+7[`ZLCHK5BOMATRIX MISMATCH%H "REDERRXSIMP $[`Z BgQ+B[`Z[ Bg[LENGTHQ@0*S2I Bg~ Bg} g  g}EQUALi5B[NON SQUARE MATRIX "+_ g~4B` E g~5B` "+e[`ZZ5BvZg5Be[gZ4Bl  Bg@@BFQ g~5Bh g~GENERATEIDENT  gLNRSOLVE 
 Bg~ g B+K[g[[5BoZERO DENOMINATOR!@0 "[g[REVPR Bg g~5BtL  g+x  g+x g~$5BK g~ Bg~+KNOT SET &[`MATRIX%h "LIST3 "/},x00X@@2.
59* B` "
 `4B[
04B "+[` BgZ` B` 04B[5B[` g5B X `NULL/
,x~.F59*@@g &	ADDM1+ B`[ADDSQ `0 &Z[ g	 BgZ`5BL1 g/"P.(59* B` Dg Fg5B 4B' `4B 5B  L# "/("[[`LIST2  g0	 Bg~ gZgZ` g~/)#Q,x   TPTP1"X`()  " 
 [4B=  BH " BI BH H4B9[[  IXOZ BI[HZ8 H 0QOZ BH+1ZH  XO:Z 
+-Z ,x0*SCALPROD.L59*$	 B` Dg5BC 5BC $/M$	@( `4BE 5BG "/M"[[`Q@0MULTSQ BgZgZ`  g/N1$8>.`59* B`@  Bg@@g~ `+^ Bg~[ Bg}@@g} g+Z Bg[  g} g} 0	 Bg}Zg5BV g} g~	 Bg~@&]Zg~5BS g~/`"88NMULTSMG0151b
  $Pa.l59**LAMBIND*`# Dg $ "	  4Bi g
t1+k $ g*SPECRSTR*/m,xh HbLETMTR.59*@@g~ B` Dg Fg !# $ 4ByZ`REVLIS Bg~NUMLIS@tAR4Bw g~1B +{HOLD $ hh `/ERRPRI2$! &[` "(`
[g~ZgNTH!Zg~[PNTH" g]QO "/,x   hmMATPRI*0,8 4B[EVAL# Z`/QBb MATPRI$#(.59* B` " Bg Dg 5B " Bg `+ Bg~[ Bg} " Bg~ g}+ Bg}[ Bg| g~F:  g gMKQUOTE$T &$ BJ g|VARPRI% 4B "$TERPRI*% g~Q@ADD1& Bg~Zg}5B g& BgZg~@:5B
/ ,x@@8LNRSOLVEG0190Z	Ql 2CANCEL"'h .459* B` "
@  Bg~ "$ B Dg ` Bg(t0Q g `AUGMENT'NORMMAT([BAREISS(@
 gBACKSUB) B g[RHSIDE) $&@1 B` g~ B `/4,x(D(X".=59*4B< B` Dg[[Q@0APPEND* BgZgZ`' g/=b,xx5.T59*@@g@@g B` : " Bg~ g~ `DIFFERENCE*MINUSP+5BS3@@g " Bg~ g~ `*+5BO g~E0 g~4BJ " $	 g	 Bg@  g~& Bg~+E g g	 Bg g~& Bg~+A g/U,x((P>.^59*4B] B` Dg & [`" Bg gZ`) g/_,x, U._59*@@g@@g~@@g~@@g}@@g}@@g|@@g|@@g{@@g{@@gz@@gy B` "
  " Bg "  Bgy " Bgx ` Bgz+u Zgz BgzZ4B]Z4B] gy[gz!F0Q Bg $  gyPLUS2+ BgySUB1, BgxZgz Bgz gx[gz" Bg{ Bg{@[5BZgz Bgz4B^ gx[" Bg}@ Q[4B g}4B[ Bgy[g{NEGF,QCg} gyQOg{Zg} Bg}Zg{ Bg{+}Zgz@ Bgz+zZgz Bgz4B^ gx[" Bg}FZ[[g{MULTF- Bgx[g}, #Zg{[-  gxADDF- Bg5B#Zgz Bgz+ g gQUOTF*. Bg gxZgz[" Bg| Bg|Zgz4BZ4BN  gzZgz3B+# g}4B#[ Bgy[g|,QCg} gyQOg|Zg} Bg}Zg| Bg|+@Zgz4BOZ Bgz4BO gx[" Bg}`[Zg{[- BgxZg}[, @[g{-  gx- g. Bg~Zg}0[[g|- Bgx[g}, Zg|[`0-  gx- g. Bg~Zg{Z4BMZg}Z Bg}Zg|Z Bg|Zg{Z0 Bg{ g}4BM g[- Bgx g~[g|- Bgw g~[g{-  gw- @` gx- g.QCg}Zg} Bg}Zg| Bg|Zg{ Bg{+>Zgz Bgz+% g4B^Zg| Bg|Zg{Z Bgy gQOg|Zg| Bg|4Bk0[[g{- Bgx[gy, [g|-  gx- g.QCg|Zgy Bgy+S@1 `/_,x		_.59*@@g~
@@g~@@g|@@g| B` "
 Dg `5BfSINGULAR MATRIX!BF ". `REVERSE/ Bg{ g["[ Bg5Bl ". g Bg{ g{@, Bg{Zg{ Bg{5Bs g `/0$	[ Bg} g& Bgz  g}0" Bg}4Bm g{ g}" Bg~[ Bg~ g{ `" Bg|@@g|Zg| Bg|4BZg~` Bg~ gz[g|! [g~-  g|0- Bg|+~[g} g- Bgz g|,  gz- g~.QCg} gz&  BgzZg} Bg}+xhh`.,59*@@g~ B` " Bg `+) Bg~[ Bg}   " Bg g}+ Bg}[Z gLCM / BgZg}5B@@g} g}+$ Bg|[F Bg|Z gQUOTF0 [g|- g} 0	 Bg}Zg|5B g} g~	 Bg~ g g- BgZg~5B g~/ g	@*%/-$	HHSIMPDETDET $1CARXhw*u1DETQ"2-FLAGARRAY23#xARRAYFNU*]  SYMBOLICLIST$HASH 344455xGETHASH,8 &5 RF0!REMAINDER "6REVAL7  "5Q@#GETEL7  `/7ASSOC$8`/P@PUTHASH.F59* B` "
 Dg $5 `6! Bg g `	 Bg~ g "5C7 g~ Bg~ g "5 g~SETELP9[g~/F,x((7CLRHASH,8 1 "
 B` ` "5*+5BO ` "5  $9 `& B`+H "/Q, ,xG.c59* B` "
 `  Bg `+[ Bg[ g
5BZ "Zg5BV g0B+^[`M
[+b9 &
 g `DETQ1: B`9 `/d,x Q.59*@@g}@@g} B` "
[` Bg~ " Bg~ Dg# Fg2B+r g g~TWOMEM:4Bq g~%` " TIMES2; Bg~Zg~ Bg~+k[g~ + 64BuZ+ g, BgZ` B` $ "	 Bg} g~+ Bg|[ Bg| g g~:5B	[g|4B g}(`4B g|NEGSQ; Bg| g g~+ 0 g `:  g| g} Bg}@3 g} Bg} g~ " ; Bg~Zg|`5Bz g} g8 g}/,xHH]+T dPUTSIMPFN<1<0xSIMPTRACE.&59* B` "
RfTRACE $= `1 B` Bg~[`bC"  g~5B " $ "	 Bg " Bg `4B% g[!@ g BgZ` B` g& Bgw+ g/',x  P<=<=xFASLP