{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.54" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "op1:= annihiloper( qfac(-q^
2,q^2,j-1) * q^(j^2) / qfac(q,q^2,j) / qfac(-q,q,j-1) / spqfac(q,q,j),
 1, forward);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$op1G,0*$%\"NG\"\"&
\"\"\"*$F'\"\"%!\"\"*&,(%\"qGF,*$F/\"\"#F,)F/,&%\"nGF)F+F)F,F)F'\"\"$F
)*&,(F/F)F0F)F2F)F)F'F1F)*&,&*$F/F5F)F2F,F)F'F)F)F:F,F2F)" }}}{EXCHG 
{PARA 12 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "altsign:=true;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(altsignG%%t
rueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "##### n even = 2*m
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "a1:= asoe(op1,q^(6*j^2
 + j) * gp(2*n  ,n+3*j  ,1),\n              q^(6*j^2 + j) * gp(2*n+1,n
+3*j+1,1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,:*&)%\"qG,(*$%\"
jG\"\"#\"\"'F+\"\"\"\"\"$F.F.-%#gpG6%,$%\"mGF,,&F4F.F+F/F.F.!\"\"*&)F(
,*F*F-F+F.F4F,\"\"%F.F.F0F.F.*&-F16%,&F4F,F,F.,(F4F.F+F/F.F.F.F.)F(,(F
*F-F+F.F.F.F.F.*&F<F.)F(,(F*F-F+F.F,F.F.F.*&F<F.F8F.F.*&)F(,&F*F-F+F.F
.-F16%,&F4F,F:F.,(F4F.F,F.F+F/F.F.F6*&F'F.-F16%,&F4F,F.F.F?F.F.F.*&F8F
.FNF.F6*&F@F.-F16%,&F4F,F/F.FLF.F.F6*&FCF.FSF.F6*&F8F.FSF.F6*&FGF.-F16
%,&F4F,\"\"&F.,(F4F.F/F.F+F/F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "nops(a2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#6" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eG1(7,a1);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a2G,8*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"%\"m
GF,\"\"%F.F.-%#gpG6%,$F/F,,&F/F.F+\"\"$F.F.F.*&-F26%,&F/F,F,F.,(F/F.F+
F6F.F.F.F.)F(,(F*F-F+F.F.F.F.F.*&F8F.)F(,(F*F-F+F.F,F.F.F.*&F8F.F'F.F.
*&)F(,&F*F-F+F.F.-F26%,&F/F,F0F.,(F/F.F,F.F+F6F.F.!\"\"*&)F(,*F*F-F+F0
F0F.F/F.F.-F26%F4F;F.F.F.*&F'F.-F26%,&F/F,F.F.F;F.F.FI*&F<F.-F26%,&F/F
,F6F.FHF.F.FI*&F?F.FTF.FI*&F'F.FTF.FI*&FCF.-F26%,&F/F,\"\"&F.,(F/F.F6F
.F+F6F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG1(7,a
2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,6*&-%#gpG6%,&%\"mG\"\"#F
,\"\"\",(F+F-%\"jG\"\"$F-F-F-F-)%\"qG,(*$F/F,\"\"'F/F-F-F-F-F-*&F'F-)F
2,(F4F5F/F-F,F-F-F-*&F'F-)F2,*F4F5F/F-F+F,\"\"%F-F-F-*&)F2,&F4F5F/F-F-
-F(6%,&F+F,F<F-,(F+F-F,F-F/F0F-F-!\"\"*&)F2,*F4F5F/F<F<F-F+F-F--F(6%,$
F+F,F.F-F-F-*&)F2,*F4F5F/F<F+F0\"\"&F-F-FHF-FD*&F1F--F(6%,&F+F,F0F-FCF
-F-FD*&F7F-FPF-FD*&F:F-FPF-FD*&F>F--F(6%,&F+F,FNF-,(F+F-F0F-F/F0F-F-F-
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a4:= eG1(7,a3);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a4G,4*&-%#gpG6%,&%\"mG\"\"#F,\"\"\"
,(F+F-%\"jG\"\"$F-F-F-F-)%\"qG,(*$F/F,\"\"'F/F-F,F-F-F-*&F'F-)F2,*F4F5
F/F-F+F,\"\"%F-F-F-*&)F2,&F4F5F/F-F--F(6%,&F+F,F9F-,(F+F-F,F-F/F0F-F-!
\"\"*&)F2,*F4F5F/F9F9F-F+F-F--F(6%,$F+F,F.F-F-F-*&)F2,*F4F5F/F9F+F0\"
\"&F-F-FEF-FA*&)F2,*F4F5F/F9F0F-F+F-F--F(6%F*F@F-F-FA*&F1F--F(6%,&F+F,
F0F-F@F-F-FA*&F7F-FRF-FA*&F;F--F(6%,&F+F,FKF-,(F+F-F0F-F/F0F-F-F-" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a5:= eG1(7,a4);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a5G,2*&-%#gpG6%,&%\"mG\"\"#F,\"\"\",(F+F-%\"
jG\"\"$F-F-F-F-)%\"qG,**$F/F,\"\"'F/F-F+F,\"\"%F-F-F-*&)F2,&F4F5F/F-F-
-F(6%,&F+F,F6F-,(F+F-F,F-F/F0F-F-!\"\"*&)F2,*F4F5F/F6F6F-F+F-F--F(6%,$
F+F,F.F-F-F-*&)F2,*F4F5F/F6F+F0\"\"&F-F-FBF-F>*&)F2,*F4F5F/F6F0F-F+F-F
--F(6%F*F=F-F-F>*&F@F-FLF-F>*&F1F--F(6%,&F+F,F0F-F=F-F-F>*&F8F--F(6%,&
F+F,FHF-,(F+F-F0F-F/F0F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 15 "a6:= eG1(8,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a6G,0*&-%#
gpG6%,&%\"mG\"\"#F,\"\"\",(F+F-%\"jG\"\"$F-F-F-F-)%\"qG,**$F/F,\"\"'F/
F-F+F,\"\"%F-F-F-*&)F2,*F4F5F/F6F6F-F+F-F--F(6%,$F+F,F.F-F-F-*&)F2,*F4
F5F/F6F+F0\"\"&F-F-F:F-!\"\"*&)F2,*F4F5F/F6F0F-F+F-F--F(6%F*,(F+F-F,F-
F/F0F-F-FA*&F8F-FEF-FA*&F1F--F(6%,&F+F,F0F-FGF-F-FA*&FCF--F(6%,&F+F,F6
F-,(F+F-F0F-F/F0F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a
7:= eG1(6,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a7G,.*&)%\"qG,**$
%\"jG\"\"#\"\"'F+\"\"%F.\"\"\"%\"mGF/F/-%#gpG6%,$F0F,,(F0F/F+\"\"$F/F/
F/F/F/*&)F(,*F*F-F+F.F0F6\"\"&F/F/F1F/!\"\"*&)F(,*F*F-F+F.F6F/F0F/F/-F
26%,&F0F,F,F/,(F0F/F,F/F+F6F/F/F;*&F'F/F?F/F;*&)F(,*F*F-F+F.F0F6F-F/F/
F?F/F;*&F=F/-F26%,&F0F,F.F/,(F0F/F6F/F+F6F/F/F/" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 15 "a8:= eG1(6,a7);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#a8G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%F.\"\"\"%\"mGF/F/-%#gp
G6%,$F0F,,(F0F/F+\"\"$F/F/F/F/F/*&)F(,*F*F-F+F.F0F6\"\"&F/F/F1F/!\"\"*
&)F(,*F*F-F+F.F6F/F0F/F/-F26%,&F0F,F,F/,(F0F/F,F/F+F6F/F/F;*&F'F/F?F/F
;*&)F(,*F*F-F+F.F0F6F-F/F/F?F/F;*&F=F/-F26%,&F0F,F6F/FBF/F/F/*&)F(,*F*
F-F+\"\"(F-F/F0F,F/-F26%FJ,(F0F/F6F/F+F6F/F/F/" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 15 "a9:= eG0(6,a8);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#a9G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%F.\"\"\"%\"mGF/F/-%#gp
G6%,$F0F,,(F0F/F+\"\"$F/F/F/F/F/*&)F(,*F*F-F+F.F0F6\"\"&F/F/F1F/!\"\"*
&F'F/-F26%,&F0F,F,F/,(F0F/F,F/F+F6F/F/F;*&)F(,*F*F-F+F.F0F6F-F/F/F=F/F
;*&-F26%F?F5F/F/)F(,*F*F-F+F/F0F,F.F/F/F/*&)F(,*F*F-F+\"\"(F-F/F0F,F/-
F26%,&F0F,F6F/,(F0F/F6F/F+F6F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "a10:= eG0(3,a9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$a10G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%F.\"\"\"%\"mGF/F/-%#gpG6%,$F
0F,,(F0F/F+\"\"$F/F/F/F/F/*&)F(,*F*F-F+F.F0F6\"\"&F/F/F1F/!\"\"*&F'F/-
F26%,&F0F,F/F/,(F0F/F,F/F+F6F/F/F;*&)F(,*F*F-F+F/F0F,F.F/F/-F26%F?F5F/
F/F;*&)F(,*F*F-F+F.F0F6F-F/F/-F26%,&F0F,F,F/F@F/F/F;*&-F26%FKF5F/F/FBF
/F/*&)F(,*F*F-F+\"\"(F-F/F0F,F/-F26%,&F0F,F6F/,(F0F/F6F/F+F6F/F/F/" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a11:= eG1(3,a10);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a11G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%%
\"mG\"\"$\"\"&\"\"\"F2-%#gpG6%,$F/F,,(F/F2F+F0F2F2F2F2!\"\"*&)F(,*F*F-
F+\"\"(F-F2F/F,F2-F46%F6,(F/F2F,F2F+F0F2F2F8*&)F(,*F*F-F+F2F/F,F.F2F2-
F46%,&F/F,F2F2F7F2F2F8*&)F(,*F*F-F+F.F/F0F-F2F2-F46%,&F/F,F,F2F?F2F2F8
*&-F46%FKF7F2F2FAF2F2*&F:F2-F46%,&F/F,F0F2,(F/F2F0F2F+F0F2F2F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a12:= eG0(6,a11);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a12G,,*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%%
\"mG\"\"$\"\"&\"\"\"F2-%#gpG6%,$F/F,,(F/F2F+F0F2F2F2F2!\"\"*&)F(,*F*F-
F+\"\"(F-F2F/F,F2-F46%F6,(F/F2F,F2F+F0F2F2F8*&)F(,*F*F-F+F2F/F,F.F2F2-
F46%,&F/F,F2F2F7F2F2F8*&-F46%,&F/F,F,F2F7F2F2FAF2F2*&F:F2-F46%FI,(F/F2
F0F2F+F0F2F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a13:= eG0
(5,a12);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a13G,.*&)%\"qG,**$%\"jG
\"\"#\"\"'F+\"\"%%\"mG\"\"$\"\"&\"\"\"F2-%#gpG6%,$F/F,,(F/F2F+F0F2F2F2
F2!\"\"*&)F(,*F*F-F+\"\"(F-F2F/F,F2-F46%F6,(F/F2F,F2F+F0F2F2F8*&)F(,*F
*F-F+F2F/F,F.F2F2-F46%,&F/F,F2F2F7F2F2F8*&-F46%,&F/F,F,F2F7F2F2FAF2F2*
&F:F2-F46%FE,(F/F2F0F2F+F0F2F2F2*&F'F2-F46%FEF?F2F2F2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a14:= eG1(5,a13);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a14G,,*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%%\"mG\"\"
$\"\"&\"\"\"F2-%#gpG6%,$F/F,,(F/F2F+F0F2F2F2F2!\"\"*&)F(,*F*F-F+F2F/F,
F.F2F2-F46%,&F/F,F2F2F7F2F2F8*&-F46%,&F/F,F,F2F7F2F2F:F2F2*&)F(,*F*F-F
+\"#5\"\"*F2F/F0F2-F46%F6,(F/F2F0F2F+F0F2F2F2*&F'F2-F46%F>,(F/F2F,F2F+
F0F2F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a15:= eG1(5,a14
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a15G,**&)%\"qG,**$%\"jG\"\"#
\"\"'F+\"\"\"%\"mGF,\"\"%F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.!
\"\"*&-F26%,&F/F,F,F.F5F.F.F'F.F.*&)F(,*F*F-F+\"#5\"\"*F.F/F6F.-F26%,$
F/F,,(F/F.F6F.F+F6F.F.F.*&)F(,*F*F-F+\"\"(F/F0FHF.F.-F26%FC,(F/F.F,F.F
+F6F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a16:= eG0(2,a1
5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16G,(*&)%\"qG,**$%\"jG\"\"#
\"\"'F+!\"#%\"mG\"\"$\"\"&\"\"\"F2-%#gpG6%,&F/F,F2F2,&F/F2F+F0F2F2F2*&
)F(,*F*F-F+\"#5\"\"*F2F/F0F2-F46%,$F/F,,(F/F2F0F2F+F0F2F2F2*&)F(,*F*F-
F+\"\"(F/\"\"%FDF2F2-F46%F?,(F/F2F,F2F+F0F2F2F2" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 23 "a17:= shiftdown(2,a16);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a17G,(*&)%\"qG,**$%\"jG\"\"#\"\"'F+!\"#%\"mG\"\"$\"
\"&\"\"\"F2-%#gpG6%,&F/F,F2F2,&F/F2F+F0F2F2F2*&F'F2-F46%,$F/F,F7F2F2!
\"\"*&)F(,*F*F-F+\"\"(F/\"\"%F@F2F2-F46%F;,(F/F2F,F2F+F0F2F2F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a18:= eG0(1,a17);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$a18G,&*&)%\"qG,**$%\"jG\"\"#\"\"'F+!\"&%
\"mG\"\"%F-\"\"\"F1-%#gpG6%,$F/F,,(F/F1F+\"\"$!\"\"F1F1F1F1*&)F(,*F*F-
F+\"\"(F/F0F<F1F1-F36%F5,(F/F1F,F1F+F7F1F1F1" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 23 "a19:= shiftdown(2,a18);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$a19G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "####################
##" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "# n odd = 2*m + 1" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "b1:= asoo(op1,q^(6*j^2 + j
) * gp(2*n  ,n+3*j  ,1),\n              q^(6*j^2 + j) * gp(2*n+1,n+3*j
+1,1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b1G,:*&)%\"qG,(*$%\"jG\"
\"#\"\"'F+\"\"\"\"\"$F.F.-%#gpG6%,&%\"mGF,F.F.,(F4F.F+F/F.F.F.F.!\"\"*
&)F(,*F*F-F+F.F4F,\"\"&F.F.F0F.F.*&)F(,(F*F-F+F.F.F.F.-F16%,&F4F,F/F.,
(F4F.F,F.F+F/F.F.F.*&)F(,(F*F-F+F.F,F.F.F>F.F.*&F8F.F>F.F.*&)F(,&F*F-F
+F.F.-F16%,&F4F,F:F.,(F4F.F/F.F+F/F.F.F6*&-F16%,&F4F,F,F.F5F.F.F'F.F.*
&FNF.F8F.F6*&F<F.-F16%,&F4F,\"\"%F.FAF.F.F6*&FCF.FSF.F6*&F8F.FSF.F6*&F
GF.-F16%,&F4F,F-F.FLF.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "b2:= eG0(7,b1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b2G,8*&)%\"q
G,**$%\"jG\"\"#\"\"'F+\"\"\"%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+
\"\"$F.F.F.F.F.*&)F(,(F*F-F+F.F.F.F.-F26%,&F/F,F6F.,(F/F.F,F.F+F6F.F.F
.*&)F(,(F*F-F+F.F,F.F.F:F.F.*&F'F.F:F.F.*&)F(,&F*F-F+F.F.-F26%,&F/F,F0
F.,(F/F.F6F.F+F6F.F.!\"\"*&)F(,*F*F-F+!\"#\"\"%F.F/F.F.-F26%F4,&F/F.F+
F6F.F.F.*&-F26%,&F/F,F,F.F5F.F.F'F.FI*&F8F.-F26%,&F/F,FNF.F=F.F.FI*&F?
F.FWF.FI*&F'F.FWF.FI*&FCF.-F26%,&F/F,F-F.FHF.F.F." }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 15 "b3:= eG0(8,b2);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#b3G,6*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"%\"mGF,\"\"&
F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.F.*&)F(,(F*F-F+F.F,F.F.-F26
%,&F/F,F6F.,(F/F.F,F.F+F6F.F.F.*&F'F.F:F.F.*&)F(,&F*F-F+F.F.-F26%,&F/F
,F0F.,(F/F.F6F.F+F6F.F.!\"\"*&)F(,*F*F-F+!\"#\"\"%F.F/F.F.-F26%F4,&F/F
.F+F6F.F.F.*&-F26%,&F/F,F,F.F5F.F.F'F.FF*&)F(,*F*F-F+FJF6F.F/F.F.-F26%
F<F5F.F.FF*&F8F.-F26%,&F/F,FKF.F=F.F.FF*&F'F.FYF.FF*&F@F.-F26%,&F/F,F-
F.FEF.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "b4:= eG0(10,b
3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b4G,4*&)%\"qG,**$%\"jG\"\"#
\"\"'F+\"\"\"%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.F.
*&)F(,(F*F-F+F.F,F.F.-F26%,&F/F,F6F.,(F/F.F,F.F+F6F.F.F.*&F'F.F:F.F.*&
)F(,*F*F-F+!\"#\"\"%F.F/F.F.-F26%F4,&F/F.F+F6F.F.F.*&-F26%,&F/F,F,F.F5
F.F.F'F.!\"\"*&)F(,*F*F-F+FBF6F.F/F.F.-F26%F<F5F.F.FK*&F8F.-F26%,&F/F,
FCF.F=F.F.FK*&F'F.FRF.FK*&FMF.-F26%,&F/F,F0F.F=F.F.F." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b5:= eG0(7,b4);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#b5G,2*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"%\"mGF,\"
\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.F.*&F'F.-F26%,&F/F,F6F.,
(F/F.F,F.F+F6F.F.F.*&)F(,*F*F-F+!\"#\"\"%F.F/F.F.-F26%F4,&F/F.F+F6F.F.
F.*&-F26%,&F/F,F,F.F5F.F.F'F.!\"\"*&)F(,*F*F-F+F?F6F.F/F.F.-F26%F:F5F.
F.FH*&F=F.FLF.FH*&F'F.-F26%,&F/F,F@F.F;F.F.FH*&FJF.-F26%,&F/F,F0F.F;F.
F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b6:= eG0(7,b5);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b6G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+
\"\"\"%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.F.*&)F(,*
F*F-F+!\"#\"\"%F.F/F.F.-F26%F4,&F/F.F+F6F.F.F.*&-F26%,&F/F,F,F.F5F.F.F
'F.!\"\"*&)F(,*F*F-F+F:F6F.F/F.F.-F26%,&F/F,F6F.F5F.F.FC*&F8F.FGF.FC*&
)F(,*F*F-F+F:F/F6\"\"(F.F.FGF.FC*&FEF.-F26%,&F/F,F0F.,(F/F.F,F.F+F6F.F
.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b7:= eG0(3,b6);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b7G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+!
\"#\"\"%\"\"\"%\"mGF0F0-%#gpG6%,&F1F,F0F0,&F1F0F+\"\"$F0F0F0*&)F(,*F*F
-F+F.F1F7F-F0F0F2F0!\"\"*&)F(,*F*F-F+F.F7F0F1F0F0-F36%,&F1F,F7F0,(F1F0
F+F7F0F0F0F0F;*&F'F0F?F0F;*&)F(,*F*F-F+F.F1F7\"\"(F0F0F?F0F;*&F=F0-F36
%,&F1F,\"\"&F0,(F1F0F,F0F+F7F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "b8:= eG1(6,b7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#b8G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+!\"#\"\"%\"\"\"%\"mGF0F0-%#gpG6%,&F
1F,F0F0,&F1F0F+\"\"$F0F0F0*&)F(,*F*F-F+F.F1F7F-F0F0F2F0!\"\"*&)F(,*F*F
-F+F.F7F0F1F0F0-F36%,&F1F,F7F0,(F1F0F+F7F0F0F0F0F;*&F'F0F?F0F;*&)F(,*F
*F-F+F.F1F7\"\"(F0F0F?F0F;*&F=F0-F36%,&F1F,F/F0FBF0F0F0*&)F(,*F*F-F+F0
F1F,\"\"&F0F0-F36%FK,(F1F0F,F0F+F7F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "b9:= eG0(6,b8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#b9G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+!\"#\"\"%\"\"\"%\"mGF0F0-%#gpG6%,&F
1F,F0F0,&F1F0F+\"\"$F0F0F0*&)F(,*F*F-F+F.F1F7F-F0F0F2F0!\"\"*&F'F0-F36
%,&F1F,F7F0,(F1F0F+F7F0F0F0F0F;*&)F(,*F*F-F+F.F1F7\"\"(F0F0F=F0F;*&)F(
,*F*F-F+!\"&F-F0F1F,F0-F36%F?F6F0F0F0*&)F(,*F*F-F+F0F1F,\"\"&F0F0-F36%
,&F1F,F/F0,(F1F0F,F0F+F7F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "b10:= eG0(3,b9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b10G,0*
&)%\"qG,**$%\"jG\"\"#\"\"'F+!\"#\"\"%\"\"\"%\"mGF0F0-%#gpG6%,&F1F,F0F0
,&F1F0F+\"\"$F0F0F0*&)F(,*F*F-F+F.F1F7F-F0F0F2F0!\"\"*&F'F0-F36%,&F1F,
F,F0,(F1F0F+F7F0F0F0F0F;*&)F(,*F*F-F+!\"&F-F0F1F,F0-F36%F?F6F0F0F;*&)F
(,*F*F-F+F.F1F7\"\"(F0F0-F36%,&F1F,F7F0F@F0F0F;*&FBF0-F36%FMF6F0F0F0*&
)F(,*F*F-F+F0F1F,\"\"&F0F0-F36%,&F1F,F/F0,(F1F0F,F0F+F7F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "b11:= eG1(3,b10);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b11G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"
%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.!\"\"*&)F(,*F*F
-F+!\"#F/F6F-F.F.-F26%F4,&F/F.F+F6F.F.F7*&)F(,*F*F-F+!\"&F-F.F/F,F.-F2
6%,&F/F,F,F.F>F.F.F7*&)F(,*F*F-F+F;F/F6\"\"(F.F.-F26%,&F/F,F6F.F5F.F.F
7*&F@F.-F26%FLF>F.F.F.*&F'F.-F26%,&F/F,\"\"%F.,(F/F.F,F.F+F6F.F.F." }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "b12:= eG0(5,b11);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b12G,,*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"
%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.!\"\"*&)F(,*F*F
-F+!\"#F/F6F-F.F.-F26%F4,&F/F.F+F6F.F.F7*&)F(,*F*F-F+F;F/F6\"\"(F.F.-F
26%,&F/F,F6F.F5F.F.F7*&)F(,*F*F-F+!\")\"\"*F.F/F6F.-F26%,&F/F,F,F.,(F/
F.F+F6F7F.F.F.F.*&F'F.-F26%,&F/F,\"\"%F.,(F/F.F,F.F+F6F.F.F." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "b13:= eG0(5,b12);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b13G,**&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"
%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.!\"\"*&)F(,*F*F
-F+!\"#F/F6F-F.F.-F26%F4,&F/F.F+F6F.F.F7*&)F(,*F*F-F+!\")\"\"*F.F/F6F.
-F26%,&F/F,F,F.,(F/F.F+F6F7F.F.F.F.*&F'F.-F26%,&F/F,F6F.,(F/F.F,F.F+F6
F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "b14:= eG0(4,b13);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b14G,,*&)%\"qG,**$%\"jG\"\"#\"
\"'F+\"\"\"%\"mGF,\"\"&F.F.-%#gpG6%,&F/F,F.F.,(F/F.F+\"\"$F.F.F.F.!\"
\"*&)F(,*F*F-F+!\"#F/F6F-F.F.-F26%F4,&F/F.F+F6F.F.F7*&)F(,*F*F-F+!\")
\"\"*F.F/F6F.-F26%,&F/F,F,F.,(F/F.F+F6F7F.F.F.F.*&F'F.-F26%FF,(F/F.F,F
.F+F6F.F.F.*&F9F.-F26%FFF5F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "b15:= eG1(4,b14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$b15G,**&)%\"qG,**$%\"jG\"\"#\"\"'F+!\"#%\"mG\"\"$F-\"\"\"F1-%#gpG6%
,&F/F,F1F1,&F/F1F+F0F1F1!\"\"*&)F(,*F*F-F+!\")\"\"*F1F/F0F1-F36%,&F/F,
F,F1,(F/F1F+F0F7F1F1F1F1*&)F(,*F*F-F+\"\"%F/F0\"\"(F1F1-F36%F5,(F/F1F,
F1F+F0F1F1F1*&F'F1-F36%F?,(F/F1F+F0F1F1F1F1F1" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "b16:= eG1(4,b15);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$b16G,(*&)%\"qG,**$%\"jG\"\"#\"\"'F+!\")\"\"*\"\"\"%\"mG\"\"$F
0-%#gpG6%,&F1F,F,F0,(F1F0F+F2!\"\"F0F0F0F0*&)F(,*F*F-F+\"\"%F1F2\"\"(F
0F0-F46%,&F1F,F0F0,(F1F0F,F0F+F2F0F0F0*&)F(,*F*F-F+F0F1F<F=F0F0-F46%F@
,(F1F0F+F2F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b17
:= shiftdown(2,b16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b17G,(*&)%
\"qG,**$%\"jG\"\"#\"\"'F+!\")\"\"*\"\"\"%\"mG\"\"$F0-%#gpG6%,&F1F,F,F0
,(F1F0F+F2!\"\"F0F0F0F0*&F'F0-F46%,&F1F,F0F0F7F0F0F8*&)F(,*F*F-F+F0F1
\"\"%\"\"(F0F0-F46%F<,(F1F0F+F2F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 16 "b18:=eG0(1,b17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$b18G,&*&)%\"qG,**$%\"jG\"\"#\"\"'F+!#6\"#7\"\"\"%\"mG\"\"%F0-%#gpG
6%,&F1F,F0F0,(F1F0F+\"\"$!\"#F0F0F0F0*&)F(,*F*F-F+F0F1F2\"\"(F0F0-F46%
F6,(F1F0F+F8F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b
19:= shiftdown(2,b18);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$b19G\"\"!
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }