{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 28 "####### 3.35 (with q
--> q^2)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "op2:= annihilo
per( qfac(-q^2,q^4,j) * q^(j^2 + 3*j) / qfac(q^2,q^4,j+1) / spqfac(q^2
,q^2,j), 0, back);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op2G,*\"\"\"F
&*&,&F&F&)%\"qG,&%\"nG\"\"#F-F&F&F&%\"NG!\"\"F/*&F*F-F.!\"#F/*&,&*$F*F
-F/)F*,$F,F-F&F&F.!\"$F/" }}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}{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 98 "A:= appl
yshiftop(op2, q^(8*j^2 + 6*j) * T1(n+1, 4*j+2,1) + q^(n + 8*j^2 + 2*j)
 * T0(n+1,4*j+1,1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"AG,:*&)%\"
qG,(\"\"#\"\"\"*$%\"jGF*\"\")F-\"\"'F+-%#T1G6%,&%\"nGF+!\"#F+,&F-\"\"%
F*F+F+F+F+*&)F(,*F4F+!\"\"F+F,F.F-F*F+-%#T0G6%F3,&F-F7F+F+F+F+F+*&)F(,
(F4F*F,F.F-F/F+F0F+F;*&)F(,*F4\"\"$!\"$F+F,F.F-F*F+F<F+F;*&-F16%,&F4F+
F;F+F6F+F+F'F+F;*&)F(,(F4F+F,F.F-F*F+-F=6%FKF?F+F+F;*&)F(,&F,F.F-F/F+-
F16%F4F6F+F+F;*&F9F+-F=6%F4F?F+F+F;*&)F(,*F4F*F*F+F,F.F-F/F+FTF+F;*&)F
(,*F4FFF+F+F,F.F-F*F+FWF+F;*&FRF+-F16%,&F4F+F+F+F6F+F+F+*&FMF+-F=6%F\\
oF?F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A2:= eT1(11,A)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A2G,6*&)%\"qG,(\"\"#\"\"\"*$%
\"jGF*\"\")F-\"\"'F+-%#T1G6%,&%\"nGF+!\"#F+,&F-\"\"%F*F+F+F+F+*&)F(,*F
4F+!\"\"F+F,F.F-F*F+-%#T0G6%F3,&F-F7F+F+F+F+F+*&)F(,(F4F*F,F.F-F/F+F0F
+F;*&)F(,*F4\"\"$!\"$F+F,F.F-F*F+F<F+F;*&-F16%,&F4F+F;F+F6F+F+F'F+F;*&
)F(,(F4F+F,F.F-F*F+-F=6%FKF?F+F+F;*&)F(,*F4F*F*F+F,F.F-F/F+-F16%F4F6F+
F+F;*&)F(,*F4FFF+F+F,F.F-F*F+-F=6%F4F?F+F+F;*&)F(,*F,F.F-\"#5F4F+FFF+F
+-F=6%F4,&F-F7FFF+F+F+F+*&FMF+-F=6%,&F4F+F+F+F?F+F+F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A3:=eT1(5,A2);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#A3G,2*&)%\"qG,(%\"nG\"\"#*$%\"jGF+\"\")F-\"\"'\"\"\"
-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+
F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F*F0F<F0F0-F?6%F4,&F-F7F<
F0F0F0F8*&)F(,(F*F0F,F.F-F+F0-F?6%,&F*F0F8F0FAF0F0F8*&)F(,*F*F+F+F0F,F
.F-F/F0-F26%F*F6F0F0F8*&)F(,*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F
?6%F*FHF0F0F0*&FJF0-F?6%,&F*F0F0F0FAF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 5 "#####" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "
A4:=sym(8,A3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A4G,2*&)%\"qG,(%
\"nG\"\"#*$%\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F
0F0!\"\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,
*F,F.F-\"#5F*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F0F,F.F-F+F0-F?6%
,&F*F0F8F0FAF0F0F8*&)F(,*F*F+F+F0F,F.F-F/F0-F26%F*F6F0F0F8*&)F(,*F*F<F
0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FJF0-F?6%,&F*F0F0F0
,&F-!\"%F8F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A5:=e
T0(8,A4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A5G,6*&)%\"qG,(%\"nG\"
\"#*$%\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"
\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F
-\"#5F*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F0F,F.F-F+F0-F?6%,&F*F0
F8F0FAF0F0F8*&)F(,*F*F+F+F0F,F.F-F/F0-F26%F*F6F0F0F8*&)F(,*F*F<F0F0F,F
.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FJF0-F?6%F*,&F-!\"%F5F0F0
F0F0*&)F(,(F*F+F,F.F-F5F0-F26%F*,&F-FjnF8F0F0F0F0*&)F(,(F*F<F,F.F-!\"'
F0-F?6%F*,$F-FjnF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A
6:=sym(8,A5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A6G,6*&)%\"qG,(%\"
nG\"\"#*$%\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F
0!\"\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F
,F.F-\"#5F*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F0F,F.F-F+F0-F?6%,&
F*F0F8F0FAF0F0F8*&)F(,*F*F+F+F0F,F.F-F/F0-F26%F*F6F0F0F8*&)F(,*F*F<F0F
0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FJF0-F?FSF0F0*&)F(,(F
*F+F,F.F-F5F0-F26%F*,&F-!\"%F8F0F0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%F*,$
F-F^oF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A7:=eT0(8,A6
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A7G,6*&)%\"qG,(%\"nG\"\"#*$%
\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F
(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F
*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,*F*F+F+F0F,F.F-F/F0-F26%F*F6F0F0
F8*&)F(,*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FJF0-
F26%,&F*F0F8F0F6F0F0F0*&)F(,*F*F<F,F.F-FEF7F0F0-F?6%FYFHF0F0F0*&)F(,(F
*F+F,F.F-F5F0-F26%F*,&F-!\"%F8F0F0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%F*,$
F-F_oF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#########" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A8:=sym(4,A7);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#A8G,6*&)%\"qG,(%\"nG\"\"#*$%\"jGF+\"\")F-\"
\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F(,*F*\"\"$!\"$F
0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F*F0F<F0F0-F?6%F
4,&F-F7F<F0F0F0F8*&)F(,*F*F+F+F0F,F.F-F/F0-F26%F*,&F-!\"%F5F0F0F0F8*&)
F(,*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FJF0-F26%,
&F*F0F8F0F6F0F0F0*&)F(,*F*F<F,F.F-FEF7F0F0-F?6%FenFHF0F0F0*&)F(,(F*F+F
,F.F-F5F0-F26%F*,&F-FOF8F0F0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%F*,$F-FOF0
F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A9:=eT1(4,A8);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A9G,:*&)%\"qG,(%\"nG\"\"#*$%\"jGF+
\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F(,*F*
\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F*F0F<
F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,*F*F+F+F0F,F.F-F/F0-F26%,&F*F0F8F0,&F
-!\"%F5F0F0F0F8*&)F(,(F*F<F,F.F-F+F0-F?6%FN,&F-FPF8F0F0F0F8*&)F(,*F*F<
F,F.F-FEF7F0F0-F?6%FN,&F-FPF=F0F0F0F8*&)F(,*F*F<F0F0F,F.F-F+F0-F?6%F*F
AF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FJF0-F26%FNF6F0F0F0*&FXF0-F?6%FNFHF0F0F0
*&)F(,(F*F+F,F.F-F5F0-F26%F*FVF0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%F*,$F-
FPF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A10:= sym(4,A9)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A10G,6*&)%\"qG,(%\"nG\"\"#*$%
\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F
(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F
*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F<F,F.F-F+F0-F?6%,&F*F0F8F0,&
F-!\"%F8F0F0F0F8*&)F(,*F*F<F,F.F-FEF7F0F0-F?6%FN,&F-FPF=F0F0F0F8*&)F(,
*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F*FHF0F0F0*&FRF0-F?6%FNFH
F0F0F0*&)F(,(F*F+F,F.F-F5F0-F26%F*FOF0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%
F*,$F-FPF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A11:=sym(
5,A10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A11G,2*&)%\"qG,(%\"nG\"
\"#*$%\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"
\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F
-\"#5F*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F<F,F.F-F+F0-F?6%,&F*F0
F8F0,&F-!\"%F8F0F0F0F8*&)F(,*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F
?6%F*FHF0F0F0*&)F(,(F*F+F,F.F-F5F0-F26%F*FOF0F0F0*&)F(,(F*F<F,F.F-!\"'
F0-F?6%F*,$F-FPF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "###
#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A12:= eT0(6,A11);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A12G,6*&)%\"qG,(%\"nG\"\"#*$%\"jGF+
\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F(,*F*
\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F*F0F<
F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F<F,F.F-F+F0-F?6%,&F*F0F8F0,&F-!\"
%F8F0F0F0F8*&)F(,*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%FNF6F0F0
F0*&)F(,*F,F.F-\"#9F*F+F/F0F0-F26%FNFHF0F0F0*&)F(,*F,F.F-\"#=F*F<\"\"*
F0F0-F?6%FN,&F-F7F7F0F0F0F0*&)F(,(F*F+F,F.F-F5F0-F26%F*FOF0F0F0*&)F(,(
F*F<F,F.F-!\"'F0-F?6%F*,$F-FPF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A13:=sym(6,A12);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$A13G,6*&)%\"qG,(%\"nG\"\"#*$%\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!
\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F
-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(
F*F<F,F.F-F+F0-F?6%,&F*F0F8F0,&F-!\"%F8F0F0F0F8*&)F(,*F*F<F0F0F,F.F-F+
F0-F?6%F*FAF0F0F8*&FCF0-F?6%FN,&F-FPF5F0F0F0F0*&)F(,*F,F.F-\"#9F*F+F/F
0F0-F26%FNFHF0F0F0*&)F(,*F,F.F-\"#=F*F<\"\"*F0F0-F?6%FN,&F-F7F7F0F0F0F
0*&)F(,(F*F+F,F.F-F5F0-F26%F*FOF0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%F*,$F
-FPF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A14:=eT0(6,A13
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A14G,:*&)%\"qG,(%\"nG\"\"#*$%
\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"\"%F+F0F0F0!\"\"*&)F
(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0F8*&)F(,*F,F.F-\"#5F
*F0F<F0F0-F?6%F4,&F-F7F<F0F0F0F8*&)F(,(F*F<F,F.F-F+F0-F?6%,&F*F0F8F0,&
F-!\"%F8F0F0F0F8*&)F(,*F*F<F0F0F,F.F-F+F0-F?6%F*FAF0F0F8*&FCF0-F?6%F4,
&F-FPF=F0F0F0F0*&F'F0-F26%F4,&F-FPF5F0F0F0F0*&F:F0-F?6%F4FOF0F0F0*&)F(
,*F,F.F-\"#9F*F+F/F0F0-F26%FNFHF0F0F0*&)F(,*F,F.F-\"#=F*F<\"\"*F0F0-F?
6%FN,&F-F7F7F0F0F0F0*&)F(,(F*F+F,F.F-F5F0-F26%F*FOF0F0F0*&)F(,(F*F<F,F
.F-!\"'F0-F?6%F*,$F-FPF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "A15:=sym(3,A14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A15G,6*&)
%\"qG,(%\"nG\"\"#*$%\"jGF+\"\")F-\"\"'\"\"\"-%#T1G6%,&F*F0!\"#F0,&F-\"
\"%F+F0F0F0!\"\"*&)F(,*F*\"\"$!\"$F0F,F.F-F+F0-%#T0G6%F4,&F-F7F0F0F0F0
F8*&)F(,(F*F<F,F.F-F+F0-F?6%,&F*F0F8F0,&F-!\"%F8F0F0F0F8*&)F(,*F*F<F0F
0F,F.F-F+F0-F?6%F*FAF0F0F8*&F'F0-F26%F4,&F-FIF5F0F0F0F0*&F:F0-F?6%F4FH
F0F0F0*&)F(,*F,F.F-\"#9F*F+F/F0F0-F26%FG,&F-F7F<F0F0F0F0*&)F(,*F,F.F-
\"#=F*F<\"\"*F0F0-F?6%FG,&F-F7F7F0F0F0F0*&)F(,(F*F+F,F.F-F5F0-F26%F*FH
F0F0F0*&)F(,(F*F<F,F.F-!\"'F0-F?6%F*,$F-FIF0F0F0" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 16 "A16:=sym(1,A15);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A16G,2*&)%\"qG,*%\"nG\"\"$!\"$\"\"\"*$%\"jG\"\"#\"\"
)F/F0F--%#T0G6%,&F*F-!\"#F-,&F/\"\"%F-F-F-F-!\"\"*&)F(,(F*F+F.F1F/F0F-
-F36%,&F*F-F9F-,&F/!\"%F9F-F-F-F9*&)F(,*F*F+F-F-F.F1F/F0F--F36%F*F7F-F
-F9*&F'F--F36%F5F@F-F-F-*&)F(,*F.F1F/\"#9F*F0\"\"'F-F--%#T1G6%F?,&F/F8
F+F-F-F-F-*&)F(,*F.F1F/\"#=F*F+\"\"*F-F--F36%F?,&F/F8F8F-F-F-F-*&)F(,(
F*F0F.F1F/F6F--FP6%F*F@F-F-F-*&)F(,(F*F+F.F1F/!\"'F--F36%F*,$F/FAF-F-F
-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A17:=sym(1,A16);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A17G,.*&)%\"qG,(%\"nG\"\"$*$%\"jG\"
\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*&)F(,*F*F+F0
F0F,F/F-F.F0-F26%F*,&F-\"\"%F0F0F0F0F5*&)F(,*F,F/F-\"#9F*F.\"\"'F0F0-%
#T1G6%F4,&F-F>F+F0F0F0F0*&)F(,*F,F/F-\"#=F*F+\"\"*F0F0-F26%F4,&F-F>F>F
0F0F0F0*&)F(,(F*F.F,F/F-!\"#F0-FE6%F*F6F0F0F0*&)F(,(F*F+F,F/F-!\"'F0-F
26%F*,$F-F7F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A18:=s
hiftdown(4,A17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A18G,.*&)%\"qG,
(%\"nG\"\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F
0F0F0F5*&)F(,*F*F+F0F0F,F/F-F.F0-F26%F*,&F-\"\"%F0F0F0F0F5*&)F(,*F,F/F
-\"#9F*F.\"\"'F0F0-%#T1G6%F4,&F-F>F+F0F0F0F0*&)F(,*F,F/F-F.F5F0F*F+F0-
F26%F4,$F-F>F0F0F5*&)F(,(F*F.F,F/F-!\"#F0-FE6%F*F6F0F0F0*&)F(,(F*F+F,F
/F-!\"'F0-F26%F*,$F-F7F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 12 "############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A19:=
shiftdown(3,A18);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A19G,.*&)%\"qG
,(%\"nG\"\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5
F0F0F0F5*&)F(,*F*F+F0F0F,F/F-F.F0-F26%F*,&F-\"\"%F0F0F0F0F5*&)F(,(F*F.
F,F/F-!\"#F0-%#T1G6%F4,&F-F>F5F0F0F0F5*&)F(,*F,F/F-F.F5F0F*F+F0-F26%F4
,$F-F>F0F0F5*&F@F0-FD6%F*F6F0F0F0*&)F(,(F*F+F,F/F-!\"'F0-F26%F*,$F-F7F
0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A20:= sym(2,A19);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A20G,.*&)%\"qG,(%\"nG\"\"$*$%\"
jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*&)F(,*F*
F+F0F0F,F/F-F.F0-F26%F*F6F0F0F5*&)F(,(F*F.F,F/F-!\"#F0-%#T1G6%F4,&F-\"
\"%F5F0F0F0F5*&)F(,*F,F/F-F.F5F0F*F+F0-F26%F4,$F-FEF0F0F5*&F>F0-FBF<F0
F0*&)F(,(F*F+F,F/F-!\"'F0-F26%F*,$F-F7F0F0F0" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "A21:= eT0(2,A20);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$A21G,2*&)%\"qG,(%\"nG\"\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%
,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*&)F(,*F*F+F0F0F,F/F-F.F0-F26%F4,&F-F7!
\"#F0F0F0F5*&)F(,(F*\"\"%F,F/F-F>F0-%#T1GF3F0F5*&)F(,*F*\"\"&F5F0F,F/F
-!\"'F0-F26%F4,$F-F7F0F0F5*&)F(,(F*F.F,F/F-F>F0-FD6%F4,&F-FBF5F0F0F0F5
*&)F(,*F,F/F-F.F5F0F*F+F0-F26%F4,$F-FBF0F0F5*&FNF0-FD6%F*F6F0F0F0*&)F(
,(F*F+F,F/F-FIF0-F26%F*FLF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 6 "######" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A22:= eT1(
7,A21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A22G,2*&)%\"qG,(%\"nG\"
\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*
&)F(,(F*\"\"%F,F/F-!\"#F0-%#T1GF3F0F5*&)F(,*F*\"\"&F5F0F,F/F-!\"'F0-F2
6%F4,$F-F7F0F0F5*&)F(,(F*F.F,F/F-F<F0-F>6%F4,&F-F;F5F0F0F0F5*&)F(,*F,F
/F-F.F5F0F*F+F0-F26%F4,$F-F;F0F0F5*&FHF0F=F0F0*&)F(,*F*F+F,F/F-FCF5F0F
0FDF0F0*&)F(,(F*F+F,F/F-FCF0-F26%F*FFF0F0F0" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 6 "######" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "A23:=sym(8,A22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A23G,2*&)%
\"qG,(%\"nG\"\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!
\"%F5F0F0F0F5*&)F(,(F*\"\"%F,F/F-!\"#F0-%#T1GF3F0F5*&)F(,*F*\"\"&F5F0F
,F/F-!\"'F0-F26%F4,$F-F7F0F0F5*&)F(,(F*F.F,F/F-F<F0-F>6%F4,&F-F;F5F0F0
F0F5*&)F(,*F,F/F-F.F5F0F*F+F0-F26%F4,$F-F;F0F0F5*&FHF0F=F0F0*&)F(,*F*F
+F,F/F-FCF5F0F0FDF0F0*&)F(,(F*F+F,F/F-FCF0-F26%F*FRF0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A24:= eT0(8,A23);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$A24G,6*&)%\"qG,(%\"nG\"\"$*$%\"jG\"\"#\"\")F-F.\"
\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*&)F(,(F*\"\"%F,F/F-!\"#F0-
%#T1GF3F0F5*&)F(,*F*\"\"&F5F0F,F/F-!\"'F0-F26%F4,$F-F7F0F0F5*&)F(,(F*F
.F,F/F-F<F0-F>6%F4,&F-F;F5F0F0F0F5*&)F(,*F,F/F-F.F5F0F*F+F0-F26%F4,$F-
F;F0F0F5*&FHF0F=F0F0*&)F(,*F*F+F,F/F-FCF5F0F0FDF0F0*&)F(,(F*F+F,F/F-FC
F0-F2FKF0F0*&F9F0-F>FQF0F0*&)F(,(F*FBF,F/F-F.F0-F26%F4,&F-F;F0F0F0F0F0
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A25:=sym(2,A24);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A25G,6*&)%\"qG,(%\"nG\"\"$*$%\"jG\"
\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*&)F(,(F*\"\"
%F,F/F-!\"#F0-%#T1G6%F4,&F-F;F0F0F0F0F5*&)F(,*F*\"\"&F5F0F,F/F-!\"'F0-
F26%F4,$F-F7F0F0F5*&)F(,(F*F.F,F/F-F<F0-F>6%F4,&F-F;F5F0F0F0F5*&)F(,*F
,F/F-F.F5F0F*F+F0-F26%F4,$F-F;F0F0F5*&FJF0-F>F3F0F0*&)F(,*F*F+F,F/F-FE
F5F0F0FFF0F0*&)F(,(F*F+F,F/F-FEF0-F2FMF0F0*&F9F0-F>FSF0F0*&)F(,(F*FDF,
F/F-F.F0-F2F?F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A26:=e
0(9,A25);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A26G,2*&)%\"qG,(%\"nG
\"\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F
5*&)F(,*F*\"\"&F5F0F,F/F-!\"'F0-F26%F4,$F-F7F0F0F5*&)F(,(F*F.F,F/F-!\"
#F0-%#T1G6%F4,&F-\"\"%F5F0F0F0F5*&)F(,*F,F/F-F.F5F0F*F+F0-F26%F4,$F-FH
F0F0F5*&FAF0-FEF3F0F0*&)F(,*F*F+F,F/F-F<F5F0F0F=F0F0*&)F(,(F*F+F,F/F-F
<F0-F2FFF0F0*&F9F0FLF0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 
"A27:=sym(2,A26);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A27G,.*&)%\"qG
,(%\"nG\"\"$*$%\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5
F0F0F0F5*&)F(,(F*F.F,F/F-!\"#F0-%#T1G6%F4,&F-\"\"%F5F0F0F0F5*&)F(,*F,F
/F-F.F5F0F*F+F0-F26%F4,$F-F@F0F0F5*&F9F0-F=F3F0F0*&)F(,*F*F+F,F/F-!\"'
F5F0F0-F26%F4,$F-F7F0F0F0*&)F(,(F*F+F,F/F-FLF0-F2F>F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "#############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A28:= sym(2,A27)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A28G,.*&)%\"qG,(%\"nG\"\"$*$%
\"jG\"\"#\"\")F-F.\"\"\"-%#T0G6%,&F*F0!\"\"F0,&F-!\"%F5F0F0F0F5*&)F(,(
F*F.F,F/F-!\"#F0-%#T1G6%F4,&F-F7F0F0F0F0F5*&)F(,*F,F/F-F.F5F0F*F+F0-F2
6%F4,$F-\"\"%F0F0F5*&F9F0-F=F3F0F0*&)F(,*F*F+F,F/F-!\"'F5F0F0-F26%F4,$
F-F7F0F0F0*&)F(,(F*F+F,F/F-FLF0-F26%F4,&F-FFF5F0F0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A29:= e0(4,A28);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A29G,**&)%\"qG,(%\"nG\"\"#*$%\"jGF+\"\")F-!\"#\"\"
\"-%#T1G6%,&F*F0!\"\"F0,&F-!\"%F0F0F0F0F5*&)F(,*F,F.F-F+F5F0F*\"\"$F0-
%#T0G6%F4,$F-\"\"%F0F0F5*&F'F0-F26%F4,$F-F7F0F0F0*&)F(,(F*F;F,F.F-!\"'
F0-F=6%F4,&F-F@F5F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "A30:= e0(3,A29);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A30G,**&)%
\"qG,**$%\"jG\"\"#\"\")F+F,!\"\"\"\"\"%\"nG\"\"$F/-%#T0G6%,&F0F/F.F/,$
F+\"\"%F/F/F.*&F'F/-F36%F5,$F+!\"%F/F/F/*&)F(,(F0F1F*F-F+!\"'F/-F36%F5
,&F+F<F/F/F/F/F.*&F>F/-F36%F5,&F+F7F.F/F/F/F/" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "A31:= sym(1,A30);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$A31G,&*&)%\"qG,(%\"nG\"\"$*$%\"jG\"\"#\"\")F-!\"'\"\"\"-%#T0G
6%,&F*F1!\"\"F1,&F-!\"%F1F1F1F1F6*&F'F1-F36%F5,&F-\"\"%F6F1F1F1F1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A32:=sym(1,A31);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$A32G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "3 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }