{VERSION 2 3 "APPLE_PPC_MAC" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "######## 3.52-U" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "op2:= annihiloper( q^(2*j^2 \+
- j) / qfac(q,q^2,j)/ spqfac(q^2,q^2,j), 0, back);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%$op2G,(\"\"\"F&*&,&%\"qGF&F&F&F&%\"NG!\"\"F+*&,&F)F
+)F),&!\"$F&%\"nG\"\"#F&F&F*!\"#F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "altsign:=true;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(
altsignG%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "A1:= app
lyshiftop(op2, q^(6*j^2 + 2*j) * U(n-1, 3*j,1));" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#A1G,,*&)%\"qG,(*$%\"jG\"\"#\"\"'F+F,\"\"\"F.F.-%\"UG
6%,&%\"nGF.!\"$F.,$F+\"\"$F.F.F.*&)F(,*F*F-F+F,F4F.F3F,F.F/F.!\"\"*&F'
F.-F06%,&F3F.!\"#F.F5F.F.F:*&)F(,&F*F-F+F,F.F<F.F:*&FAF.-F06%,&F3F.F:F
.F5F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A2:= eU1(3,A1)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A2G,.*&)%\"qG,**$%\"jG\"\"#\"
\"'F+F,!\"$\"\"\"%\"nGF,F/-%\"UG6%,&F0F/F.F/,$F+\"\"$F/F/!\"\"*&)F(,*F
*F-F+F,!\"%F/F0F,F/F1F/F7*&)F(,*F*F-F+F7F7F/F0F/F/-%#T1G6%F4,&F+F6F7F/
F/F/F7*&)F(,(F*F-F+\"\"&F0F/F/-F@6%F4,&F+F6F,F/F/F/F7*&)F(,&F*F-F+F,F/
-F26%,&F0F/!\"#F/F5F/F/F7*&FKF/-F26%,&F0F/F7F/F5F/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A3:= eU1(6,A2);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#A3G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\"$\"\"\"%\"n
GF,F/-%\"UG6%,&F0F/F.F/,$F+\"\"$F/F/!\"\"*&)F(,*F*F-F+F,!\"%F/F0F,F/F1
F/F7*&)F(,*F*F-F+F7F7F/F0F/F/-%#T1G6%F4,&F+F6F7F/F/F/F7*&)F(,(F*F-F+\"
\"&F0F/F/-F@6%F4,&F+F6F,F/F/F/F7*&F'F/-F26%,&F0F/!\"#F/F5F/F/F/*&F=F/-
F@6%FMFBF/F/F/*&FDF/-F@6%FMFIF/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "A4:= eT1(6,A3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#A4G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\"$\"\"\"%\"nGF,F/-%\"UG6%,&F0F/
F.F/,$F+\"\"$F/F/!\"\"*&)F(,*F*F-F+F,!\"%F/F0F,F/F1F/F7*&)F(,(F*F-F+\"
\"&F0F/F/-%#T1G6%F4,&F+F6F,F/F/F/F7*&F'F/-F26%,&F0F/!\"#F/F5F/F/F/*&F9
F/-%#T0GF3F/F/*&)F(,*F*F-F+F;FHF/F0F,F/-FK6%F4,&F+F6FHF/F/F/F/*&F=F/-F
A6%FGFCF/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A5:= eT1(7
,A4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A5G,0*&)%\"qG,**$%\"jG\"\"
#\"\"'F+F,!\"$\"\"\"%\"nGF,F/-%\"UG6%,&F0F/F.F/,$F+\"\"$F/F/!\"\"*&)F(
,*F*F-F+F,!\"%F/F0F,F/F1F/F7*&F'F/-F26%,&F0F/!\"#F/F5F/F/F/*&F9F/-%#T0
GF3F/F/*&)F(,*F*F-F+F;F@F/F0F,F/-FC6%F4,&F+F6F@F/F/F/F/*&)F(,(F*F-F+\"
\")F0F,F/-FC6%F4,&F+F6F6F/F/F/F/*&F9F/-FC6%F4,&F+F6F/F/F/F/F/" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A6:=eU1(3,A5);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%#A6G,2*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\"%\"\"
\"%\"nGF,F/-%\"UG6%,&F0F/!\"$F/,$F+\"\"$F/F/!\"\"*&)F(,*F*F-F+F,!\")F/
F0\"\"%F/F1F/F/*&)F(,*F*F-F+F8!\"&F/F0F7F/-%#T1G6%F4,&F+F7F8F/F/F/F/*&
)F(,*F*F-F+\"\"&F.F/F0F7F/-FC6%F4,&F+F7F,F/F/F/F/*&F'F/-%#T0GF3F/F/*&)
F(,*F*F-F+F.!\"#F/F0F,F/-FO6%F4,&F+F7FSF/F/F/F/*&)F(,(F*F-F+\"\")F0F,F
/-FO6%F4,&F+F7F7F/F/F/F/*&F'F/-FO6%F4,&F+F7F/F/F/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A7:=splitU(1,A6);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%#A7G,,*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"
nG\"\"%F/-%\"UG6%,&F0F/!\"$F/,$F+\"\"$F/F/F/*&)F(,*F*F-F+!\"\"!\"&F/F0
F8F/-%#T1G6%F5,&F+F8F<F/F/F/F/*&)F(,*F*F-F+\"\"&!\"%F/F0F8F/-F?6%F5,&F
+F8F,F/F/F/F/*&)F(,*F*F-F+FF!\"#F/F0F,F/-%#T0G6%F5,&F+F8FMF/F/F/F/*&)F
(,(F*F-F+\"\")F0F,F/-FO6%F5,&F+F8F8F/F/F/F/" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 20 "A8:=shiftdown(5,A7);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#A8G,,*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%
\"UG6%,&F0F/!\"$F/,$F+\"\"$F/F/F/*&)F(,*F*F-F+!\"\"!\"&F/F0F8F/-%#T1G6
%F5,&F+F8F<F/F/F/F/*&)F(,*F*F-F+\"\"&!\"%F/F0F8F/-F?6%F5,&F+F8F,F/F/F/
F/*&)F(,*F*F-F+FF!\"#F/F0F,F/-%#T0G6%F5,&F+F8FMF/F/F/F/*&FKF/-FOF4F/F<
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A9:=splitU(1,A8);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A9G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+F
,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,$F+\"\"$F/F/F/*&F'F/-F36%F
5,&F+F8F/F/F/F/F/*&)F(,*F*F-F+!\"\"!\"&F/F0F8F/-%#T1G6%F5,&F+F8F@F/F/F
/F/*&)F(,*F*F-F+\"\"&!\"%F/F0F8F/-FC6%F5,&F+F8F,F/F/F/F/*&)F(,*F*F-F+F
J!\"#F/F0F,F/-F36%F5,&F+F8FQF/F/F/F/*&FOF/F2F/F@" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 22 "A10:= shiftdown(4,A9);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A10G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"nG
\"\"%F/-%#T0G6%,&F0F/!\"$F/,$F+\"\"$F/F/F/*&F'F/-F36%F5,&F+F8F/F/F/F/F
/*&)F(,*F*F-F+!\"\"!\"&F/F0F8F/-%#T1G6%F5,&F+F8F@F/F/F/F/*&)F(,*F*F-F+
!\"(F6F/F0F8F/FBF/F@*&)F(,*F*F-F+!\"%!\"#F/F0F,F/-F36%F5,&F+F8FNF/F/F/
F/*&FKF/F2F/F@" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A11:=e0(3
,A10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A11G,.*&)%\"qG,**$%\"jG\"
\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F
/F/*&)F(,*F*F-F+!\"%!\"(F/F0F1F/-F36%F5,&F+F8!\"\"F/F/F/F/*&)F(,*F*F-F
+FA!\"&F/F0F8F/-%#T1G6%F5,$F+F8F/F/F/*&)F(,*F*F-F+F=F6F/F0F8F/-FGF?F/F
A*&)F(,*F*F-F+F<!\"#F/F0F,F/-F36%F5,&F+F8FQF/F/F/F/*&FOF/-F3FHF/FA" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A12:=shiftup(2,A11);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A12G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+
F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/*&)F(,*
F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+FAF=F/F0
F8F/-%#T1G6%F5,$F+F8F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F/-FF6%F5,&F+F8FAF/
F/F/FA*&)F(,*F*F-F+!\"%!\"#F/F0F,F/-F36%F5,&F+F8FTF/F/F/F/*&FQF/-F3FGF
/FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A13:= sym(5,A12);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A13G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F
+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/*&)F(,
*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+FAF=F/F
0F8F/-%#T1G6%F5,$F+F8F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F/-FF6%F5,&F+F8FAF
/F/F/FA*&)F(,*F*F-F+!\"%!\"#F/F0F,F/-F36%F5,&F+F6F,F/F/F/F/*&FQF/-F3FG
F/FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A14:=eT0(5,A13);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A14G,2*&)%\"qG,**$%\"jG\"\"#\"\"'F
+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/*&)F(,
*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+FAF=F/F
0F8F/-%#T1G6%F5,$F+F8F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F/-FF6%F5,&F+F8FAF
/F/F/FA*&)F(,*F*F-F+!\"%!\"#F/F0F,F/-F36%,&F0F/FSF/,&F+F6F/F/F/F/F/*&F
JF/-FF6%FW,&F+F6F,F/F/F/F/*&)F(,*F*F-F+!#5FSF/F0F1F/-F36%FW,&F+F6F8F/F
/F/F/*&FQF/-F3FGF/FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A15
:= eT0(8,A14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A15G,6*&)%\"qG,**
$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"
$F/F/F/F/F/*&)F(,*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)
F(,*F*F-F+FAF=F/F0F8F/-%#T1G6%F5,$F+F8F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F
/-FF6%F5,&F+F8FAF/F/F/FA*&)F(,*F*F-F+!\"%!\"#F/F0F,F/-F36%,&F0F/FSF/,&
F+F6F/F/F/F/F/*&FJF/-FF6%FW,&F+F6F,F/F/F/F/*&)F(,*F*F-F+!#5FSF/F0F1F/-
F36%FW,&F+F6F8F/F/F/F/*&FQF/-F36%FWFOF/F/FA*&FCF/-FF6%FWFHF/F/FA*&F'F/
-F36%FWF7F/F/FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A16:=sym
(5,A15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A16G,2*&)%\"qG,**$%\"jG
\"\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F
/F/F/*&)F(,*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*
F-F+FAF=F/F0F8F/-%#T1G6%F5,$F+F8F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F/-FF6%
F5,&F+F8FAF/F/F/FA*&FJF/-FF6%,&F0F/!\"%F/,&F+F6F,F/F/F/F/*&)F(,*F*F-F+
!#5FTF/F0F1F/-F36%FS,&F+F6F8F/F/F/F/*&FCF/-FF6%FSFHF/F/FA*&F'F/-F36%FS
F7F/F/FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A17:= eT1(3,A16
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A17G,.*&)%\"qG,**$%\"jG\"\"#
\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/
*&)F(,*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+!
\"%F.F/F0F1F/-F36%,&F0F/FEF/,&F+F8FAF/F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F
/-%#T1G6%F5FIF/F/FA*&FKF/-FO6%FH,&F+F6F,F/F/F/F/*&)F(,*F*F-F+!#5FEF/F0
F1F/-F36%FH,&F+F6F8F/F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "A18:= eT1(4,A17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A18G,2*&)%
\"qG,**$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,
&F+\"\"$F/F/F/F/F/*&)F(,*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!
\"\"*&)F(,*F*F-F+!\"%F.F/F0F1F/-F36%,&F0F/FEF/,&F+F8FAF/F/F/F/*&)F(,*F
*F-F+!\"(F6F/F0F8F/-%#T1GFGF/FA*&)F(,*F*F-F+FEFMF/F0F1F/-F36%FH,$F+F8F
/F/FA*&)F(,*F*F-F+!#5F=F/F0F1F/-F36%FH,&F+F8!\"#F/F/F/FA*&FKF/-FO6%FH,
&F+F6F,F/F/F/F/*&)F(,*F*F-F+FYFEF/F0F1F/-F36%FH,&F+F6F8F/F/F/F/" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A19:=sym(4,A18);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A19G,2*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\")
\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/*&)F(,*F*F-F+
\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+!\"%F.F/F0F1F/
-F36%,&F0F/FEF/,&F+F8FAF/F/F/F/*&)F(,*F*F-F+!\"(F6F/F0F8F/-%#T1G6%FH,&
F+F6F/F/F/F/FA*&)F(,*F*F-F+FEFMF/F0F1F/-F36%FH,$F+F8F/F/FA*&)F(,*F*F-F
+!#5F=F/F0F1F/-F36%FH,&F+F8!\"#F/F/F/FA*&FKF/-FO6%FH,&F+F6F,F/F/F/F/*&
)F(,*F*F-F+FenFEF/F0F1F/-F36%FH,&F+F6F8F/F/F/F/" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 15 "A20:=e0(4,A19);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$A20G,2*&)%\"qG,**$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%
#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/*&)F(,*F*F-F+\"\")!\"&F/F0F1F/-F3
6%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+!\"%F.F/F0F1F/-F36%,&F0F/FEF/,&F+F
8FAF/F/F/F/*&FCF/-F36%FH,&F+F6F/F/F/F/FA*&)F(,*F*F-F+!#5F=F/F0F1F/-F36
%FH,&F+F6F,F/F/F/F/*&)F(,*F*F-F+FE!\"(F/F0F1F/-F36%FH,$F+F8F/F/FA*&FOF
/-F36%FH,&F+F8!\"#F/F/F/FA*&)F(,*F*F-F+FQFEF/F0F1F/-F36%FH,&F+F6F8F/F/
F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A21:= sym(5,A20);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A21G,.*&)%\"qG,**$%\"jG\"\"#\"\"'
F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"\"$F/F/F/F/F/*&)F(
,*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,*F*F-F+!\"%F.
F/F0F1F/-F36%,&F0F/FEF/,&F+F8FAF/F/F/F/*&FCF/-F36%FH,&F+F6F/F/F/F/FA*&
)F(,*F*F-F+FE!\"(F/F0F1F/-F36%FH,$F+F8F/F/FA*&)F(,*F*F-F+!#5FEF/F0F1F/
-F36%FH,&F+F6F8F/F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "
A22:=sym(3,A21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A22G,**&)%\"qG,
**$%\"jG\"\"#\"\"'F+F,!\")\"\"\"%\"nG\"\"%F/-%#T0G6%,&F0F/!\"$F/,&F+\"
\"$F/F/F/F/F/*&)F(,*F*F-F+\"\")!\"&F/F0F1F/-F36%F5,&F+F8F,F/F/F/!\"\"*
&)F(,*F*F-F+!\"%!\"(F/F0F1F/-F36%,&F0F/FEF/,$F+F8F/F/FA*&)F(,*F*F-F+!#
5FEF/F0F1F/-F36%FI,&F+F6F8F/F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 42 "A23:= subs(j=2*j,A22) - subs(j=2*j-1,A22);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A23G,2*&)%\"qG,**$%\"jG\"\"#\"#CF+\"\"%!
\")\"\"\"%\"nGF.F0-%#T0G6%,&F1F0!\"$F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+
\"#;!\"&F0F1F.F0-F36%F5,&F+F8F,F0F0F0!\"\"*&)F(,*F*F-F+F/!\"(F0F1F.F0-
F36%,&F1F0!\"%F0,$F+F8F0F0FA*&)F(,*F*F-F+!#?FIF0F1F.F0-F36%FH,&F+!\"'
\"\"$F0F0F0F0*&)F(,**$,&F+F,FAF0F,F8F+F.!#5F0F1F.F0-F36%F5,&F+F8!\"#F0
F0F0FA*&)F(,*FWF8F+F<!#8F0F1F.F0-F36%F5,&F+F8FAF0F0F0F0*&)F(,*FWF8F+F/
F6F0F1F.F0-F36%FH,&F+F8F6F0F0F0F0*&)F(,*FWF8F+FNF8F0F1F.F0-F36%FH,&F+F
RF8F0F0F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A24:=expanda
ll(A23);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A24G,2*&)%\"qG,**$%\"jG
\"\"#\"#CF+\"\"%!\")\"\"\"%\"nGF.F0-%#T0G6%,&F1F0!\"$F0,&F+\"\"'F0F0F0
F0F0*&)F(,*F*F-F+\"#;!\"&F0F1F.F0-F36%F5,&F+F8F,F0F0F0!\"\"*&)F(,*F*F-
F+F/!\"(F0F1F.F0-F36%,&F1F0!\"%F0,$F+F8F0F0FA*&)F(,*F*F-F+!#?FIF0F1F.F
0-F36%FH,&F+!\"'\"\"$F0F0F0F0*&FLF0-F36%F5,&F+F8!\"#F0F0F0FA*&FCF0-F36
%F5,&F+F8FAF0F0F0F0*&)F(,*F*F-F+!#KFSF0F1F.F0-F36%FH,&F+F8F6F0F0F0F0*&
)F(,*F*F-F+!#W\"#7F0F1F.F0-F36%FH,&F+FRF8F0F0F0FA" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 15 "altsign:=false;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%(altsignG%&falseG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "A25:= eT0(5,A24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$A25G,6*&)%\"qG,**$%\"jG\"\"#\"#CF+\"\"%!\")\"\"\"%\"nGF.F0-%#T0G6%,
&F1F0!\"$F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!\"&F0F1F.F0-F36%F5,&F+
F8F,F0F0F0!\"\"*&)F(,*F*F-F+F/!\"(F0F1F.F0-F36%,&F1F0!\"%F0,$F+F8F0F0F
A*&)F(,*F*F-F+!#?FIF0F1F.F0-F36%FH,&F+!\"'\"\"$F0F0F0F0*&FLF0-F36%FH,&
F+F8F6F0F0F0FA*&)F(,*F*F-F+!#9!\"*F0F1\"\"&F0-%#T1G6%FH,&F+F8!\"#F0F0F
0FA*&)F(,*F*F-F+F/FenF0F1F8F0-F36%FH,&F+F8FAF0F0F0FA*&FCF0-F36%F5FboF0
F0F0*&)F(,*F*F-F+!#KFSF0F1F.F0FUF0F0*&)F(,*F*F-F+!#W\"#7F0F1F.F0-F36%F
H,&F+FRF8F0F0F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A26:=s
ym(5,A25);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A26G,2*&)%\"qG,**$%\"
jG\"\"#\"#CF+\"\"%!\")\"\"\"%\"nGF.F0-%#T0G6%,&F1F0!\"$F0,&F+\"\"'F0F0
F0F0F0*&)F(,*F*F-F+\"#;!\"&F0F1F.F0-F36%F5,&F+F8F,F0F0F0!\"\"*&)F(,*F*
F-F+F/!\"(F0F1F.F0-F36%,&F1F0!\"%F0,$F+F8F0F0FA*&)F(,*F*F-F+!#9!\"*F0F
1\"\"&F0-%#T1G6%FH,&F+F8!\"#F0F0F0FA*&)F(,*F*F-F+F/FNF0F1F8F0-F36%FH,&
F+F8FAF0F0F0FA*&FCF0-F36%F5FenF0F0F0*&)F(,*F*F-F+!#K\"\"$F0F1F.F0-F36%
FH,&F+F8F6F0F0F0F0*&)F(,*F*F-F+!#W\"#7F0F1F.F0-F36%FH,&F+!\"'F8F0F0F0F
A" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A27:=shiftup(8,A26);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A27G,2*&)%\"qG,**$%\"jG\"\"#\"#CF
+\"\"%!\")\"\"\"%\"nGF.F0-%#T0G6%,&F1F0!\"$F0,&F+\"\"'F0F0F0F0F0*&)F(,
*F*F-F+\"#;!\"&F0F1F.F0-F36%F5,&F+F8F,F0F0F0!\"\"*&)F(,*F*F-F+F/!\"(F0
F1F.F0-F36%,&F1F0!\"%F0,$F+F8F0F0FA*&)F(,*F*F-F+!#9!\"*F0F1\"\"&F0-%#T
1G6%FH,&F+F8!\"#F0F0F0FA*&)F(,*F*F-F+F/FNF0F1F8F0-F36%FH,&F+F8FAF0F0F0
FA*&FCF0-F36%F5FenF0F0F0*&)F(,*F*F-F+!#K\"\"$F0F1F.F0-F36%FH,&F+F8F6F0
F0F0F0*&F'F0-F36%FH,$F+!\"'F0F0FA" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A28:=eT0(1,A27);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$A28G,6*&)%\"qG,**$%\"jG\"\"#\"#CF+\"\"%!\")\"\"\"%\"nGF.F0-%#T0G6%,&
F1F0!\"%F0,$F+\"\"'F0F0F0*&)F(,*F*F-F+\"#5!#5F0F1\"\"&F0-%#T1G6%F5,&F+
F8F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F8F0-F36%F5,&F+F8F,F0F0F0F0*&)F(,*
F*F-F+FF!\"&F0F1F.F0-F36%,&F1F0!\"$F0FJF0F0!\"\"*&)F(,*F*F-F+F/!\"(F0F
1F.F0F2F0FS*&)F(,*F*F-F+!#9!\"*F0F1F>F0-F@6%F5,&F+F8!\"#F0F0F0FS*&)F(,
*F*F-F+F/FenF0F1F8F0-F36%F5,&F+F8FSF0F0F0FS*&FUF0-F36%FQF`oF0F0F0*&)F(
,*F*F-F+!#K\"\"$F0F1F.F0-F36%F5,&F+F8FRF0F0F0F0*&F'F0-F36%F5,$F+!\"'F0
F0FS" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A29:=sym(1,A28);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A29G,2*&)%\"qG,**$%\"jG\"\"#\"#CF+
\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,
*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F
1\"\"%F0-F@6%,&F1F0!\"$F0FBF0F0!\"\"*&)F(,*F*F-F+!\")!\"(F0F1FGF0-F@6%
F6,$F+F9F0F0FL*&)F(,*F*F-F+!#9!\"*F0F1F2F0-F46%F6,&F+F9!\"#F0F0F0FL*&)
F(,*F*F-F+FPFXF0F1F9F0-F@6%F6,&F+F9FLF0F0F0FL*&FNF0-F@6%FJF]oF0F0F0*&)
F(,*F*F-F+!#K\"\"$F0F1FGF0-F@6%F6,&F+F9FKF0F0F0F0" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 16 "A30:=sym(7,A29);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A30G,2*&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG
\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1
F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F
0!\"$F0FBF0F0!\"\"*&)F(,*F*F-F+!\")!\"(F0F1FGF0-F@6%F6,$F+F9F0F0FL*&)F
(,*F*F-F+!#9!\"*F0F1F2F0-F46%F6,&F+F9!\"#F0F0F0FL*&)F(,*F*F-F+FPFXF0F1
F9F0-F@6%F6,&F+F9FLF0F0F0FL*&FNF0-F@6%FJ,&F+!\"'F0F0F0F0F0*&)F(,*F*F-F
+!#K\"\"$F0F1FGF0-F@6%F6,&F+F9FKF0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A31:=eT0(7,A30);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$A31G,6*&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1G6%,
&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%F6,&
F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F0!\"$F0FBF0F0!\"
\"*&)F(,*F*F-F+!\")!\"(F0F1FGF0-F@6%F6,$F+F9F0F0FL*&)F(,*F*F-F+!#9!\"*
F0F1F2F0-F46%F6,&F+F9!\"#F0F0F0FL*&)F(,*F*F-F+FPFXF0F1F9F0-F@6%F6,&F+F
9FLF0F0F0FL*&FNF0-F@6%F6,$F+!\"'F0F0F0*&FVF0-F46%F6,&F+FboF0F0F0F0F0*&
)F(,*F*F-F+!#?!#6F0F1F9F0-F@6%F6,&F+FboF,F0F0F0F0*&)F(,*F*F-F+!#K\"\"$
F0F1FGF0-F@6%F6,&F+F9FKF0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "A32:=sym(7,A31);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A32G,2*
&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1G6%,&F1F0!\"%
F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%F6,&F+F9F,F0F
0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F0!\"$F0FBF0F0!\"\"*&)F(,*
F*F-F+!#9!\"*F0F1F2F0-F46%F6,&F+F9!\"#F0F0F0FL*&)F(,*F*F-F+!\")FPF0F1F
9F0-F@6%F6,&F+F9FLF0F0F0FL*&FNF0-F46%F6,&F+!\"'F0F0F0F0F0*&)F(,*F*F-F+
!#?!#6F0F1F9F0-F@6%F6,&F+F[oF,F0F0F0F0*&)F(,*F*F-F+!#K\"\"$F0F1FGF0-F@
6%F6,&F+F9FKF0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A33
:=sym(4,A32);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A33G,2*&)%\"qG,**$
%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+\"\"'
F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*&)F(,
*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F0!\"$F0FBF0F0!\"\"*&)F(,*F*F-F+!#9!
\"*F0F1F2F0-F46%F6,&F+!\"'F,F0F0F0FL*&)F(,*F*F-F+!\")FPF0F1F9F0-F@6%F6
,&F+F9FLF0F0F0FL*&FNF0-F46%F6,&F+FUF0F0F0F0F0*&)F(,*F*F-F+!#?!#6F0F1F9
F0-F@FSF0F0*&)F(,*F*F-F+!#K\"\"$F0F1FGF0-F@6%F6,&F+F9FKF0F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A34:= e0(6,A33);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A34G,.*&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5
\"\"\"%\"nG\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+
\"#;!#7F0F1F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F
0-F@6%,&F1F0!\"$F0FBF0F0!\"\"*&)F(,*F*F-F+!\")!#9F0F1F9F0-F@6%F6,&F+F9
FLF0F0F0FL*&FNF0-F@6%F6,&F+!\"'F0F0F0F0F0*&)F(,*F*F-F+!#K\"\"$F0F1FGF0
-F@6%F6,&F+F9FKF0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "
A35:= sym(4,A34);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A35G,**&)%\"qG
,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+
\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*
&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F0!\"$F0FBF0F0!\"\"*&)F(,*F*F-F+
!#K\"\"$F0F1FGF0-F@6%F6,&F+F9FKF0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "A36:=shiftup(4,A35);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$A36G,**&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1
G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%
F6,&F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F0!\"$F0FBF0F
0!\"\"*&FDF0-F@6%F6,&F+F9\"\"$F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A37:=sym(3,A36);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$A37G,**&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%#T1G6%,
&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0G6%F6,&
F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%,&F1F0!\"$F0,&F+!\"'!
\"#F0F0F0!\"\"*&FDF0-F@6%F6,&F+F9\"\"$F0F0F0F0" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "A38:=eT0(3,A37);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$A38G,.*&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG\"\"&F0-%
#T1G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1F9F0-%#T0
G6%F6,&F+F9F,F0F0F0F0*&)F(,*F*F-F+F=!\"&F0F1\"\"%F0-F@6%F6,&F+!\"'!\"$
F0F0F0!\"\"*&F'F0-F46%F6,&F+FK!\"#F0F0F0FM*&)F(,*F*F-F+FG!#:F0F1F9F0-F
@6%F6,&F+FKFMF0F0F0FM*&FDF0-F@6%F6,&F+F9\"\"$F0F0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A39:=sym(3,A38);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A39G,**&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"
nG\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0
F1F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*&F'F0-F46%F6,&F+!\"'!\"#F0F0F0!\"\"*&
)F(,*F*F-F+\"\"%!#:F0F1F9F0-F@6%F6,&F+FGFIF0F0F0FI" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 17 "A40:= sym(3,A39);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A40G,**&)%\"qG,**$%\"jG\"\"#\"#CF+\"#5!#5\"\"\"%\"nG
\"\"&F0-%#T1G6%,&F1F0!\"%F0,&F+\"\"'F0F0F0F0F0*&)F(,*F*F-F+\"#;!#7F0F1
F9F0-%#T0G6%F6,&F+F9F,F0F0F0F0*&F'F0-F4FAF0!\"\"*&)F(,*F*F-F+\"\"%!#:F
0F1F9F0-F@6%F6,&F+!\"'FEF0F0F0FE" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "A41:=e0(1,A40);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
$A41G,&*&)%\"qG,**$%\"jG\"\"#\"#CF+\"\"%!#:\"\"\"%\"nG\"\"'F0-%#T0G6%,
&F1F0!\"%F0,&F+F2F0F0F0F0F0*&F'F0-F46%F6,&F+!\"'!\"\"F0F0F0F>" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A42:=sym(1,A41);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$A42G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }