{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 16 "########### 3.27" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "op1:= annihiloper( q^(2*j^
2+2*j) * qfac(-q,q^2,j) / qfac(q,q^2,j+1) / qfac(-q^2,q^2,j) / spqfac(
q^2,q^2,j), 0, forward);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op1G,,*
$%\"NG\"\"$\"\"\"*&,(*$%\"qG\"\"#F)F-!\"\"F/F)F)F'F.F)*&,*F-F))F-,&%\"
nGF.\"\"'F)F/*$F-F(F/F,F/F)F'F)F)F6F))F-,&\"\"&F)F4F.F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "####### n = 2*m" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 244 "a1:= asoe(op1, q^(12*j^2 + 4*j)     * gp(2*n+1, n+3*
j+1, 2) \n            +  q^(12*j^2 + 8*j + 1) * gp(2*n  , n+3*j+1, 2),
\n               q^(12*j^2 + 4*j)     * gp(2*n+1, n+3*j+1, 2) \n      \+
      +  q^(12*j^2 + 8*j + 1) * gp(2*n+2, n+3*j+2, 2));" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%#a1G,:*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"
\"$F.F.F,F.)%\"qG,(\"\"%F.*$F/F,\"#7F/\"\")F.F.*&)F2,*\"\"&F.F+F4F5F6F
/F4F.-F(6%,&F+F,F.F.F-F,F.!\"\"*&F'F.)F2,*F+F4\"\"'F.F5F6F/F7F.F?*&)F2
,(F.F.F5F6F/F4F.-F(6%,&F+F,F0F.,(F+F.F,F.F/F0F,F.F?*&)F2,(F5F6F/F7F.F.
F.-F(6%,&F+F,F,F.FJF,F.F?*&)F2,(F,F.F5F6F/F4F.FGF.F.*&FEF.F<F.F.*&)F2,
*F+F4FCF.F5F6F/F4F.F<F.F?*&FNF.)F2,*F+F4\"\"(F.F5F6F/F7F.F?*&FNF.F1F.F
?*&FRF.F<F.F?*&FLF.-F(6%,&F+F,F4F.,(F+F.F0F.F/F0F,F.F." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a2:= eG0(10,a1);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a2G,<*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F
.F,F.)%\"qG,(\"\"%F.*$F/F,\"#7F/\"\")F.F.*&)F2,*\"\"&F.F+F4F5F6F/F4F.-
F(6%,&F+F,F.F.F-F,F.!\"\"*&F'F.)F2,*F+F4\"\"'F.F5F6F/F7F.F?*&)F2,(F.F.
F5F6F/F4F.-F(6%,&F+F,F0F.,(F+F.F,F.F/F0F,F.F?*&)F2,(F5F6F/F7F.F.F.-F(6
%,&F+F,F,F.FJF,F.F?*&)F2,(F,F.F5F6F/F4F.FGF.F.*&FEF.F<F.F.*&)F2,*F+F4F
CF.F5F6F/F4F.F<F.F?*&FNF.)F2,*F+F4\"\"(F.F5F6F/F7F.F?*&F1F.-F(6%F>FJF,
F.F?*&)F2,*F4F.F5F6F/F,F+F,F.F<F.F?*&FRF.F<F.F?*&FLF.-F(6%,&F+F,F4F.,(
F+F.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a3:= \+
eG1(10,a2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,:*&)%\"qG,*\"\"&
\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F
+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,(F
+F+F.F1F/F-F+-F36%,&F,F0F7F+,(F,F+F0F+F/F7F0F+F8*&)F(,(F.F1F/F@F+F+F+-
F36%,&F,F0F0F+FGF0F+F8*&)F(,(F0F+F.F1F/F-F+FDF+F+*&FBF+F2F+F+*&)F(,*F,
F-F?F+F.F1F/F-F+F2F+F8*&FKF+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F
1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F+F8*&FOF+F2F+F
8*&FIF+-F36%,&F,F0F-F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "a4:= eG0(3,a3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%#a4G,<*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,
&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+
F.F1F/\"\")F+F8*&)F(,(F+F+F.F1F/F-F+-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+F
8*&)F(,*F7F+F.F1F/!\"#F,F0F+-F36%FFF6F0F+F8*&)F(,(F.F1F/F@F+F+F+FDF+F8
*&)F(,(F0F+F.F1F/F-F+-F36%,&F,F0F7F+FGF0F+F+*&FBF+F2F+F+*&)F(,*F,F-F?F
+F.F1F/F-F+F2F+F8*&FDF+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"
#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F+F8*&FRF+F2F+F8*&FO
F+-F36%,&F,F0F-F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a5:= eG1(3,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a5G,:*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F
,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.
F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)
F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F0F+F8*&)F(,(F.F1F/F@F+F+F+-F
36%FNFGF0F+F8*&)F(,(F0F+F.F1F/F-F+-F36%,&F,F0F7F+FGF0F+F+*&)F(,*F,F-F?
F+F.F1F/F-F+F2F+F8*&FRF+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/
\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F+F8*&FUF+F2F+F8*&
FPF+-F36%,&F,F0F-F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "a6:= eG1(12,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%#a6G,<*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&
F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F
.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&
)F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F0F+F8*&)F(,(F.F1F/F@F+F+F+-
F36%FNFGF0F+F8*&)F(,(F0F+F.F1F/F-F+-F36%,&F,F0F7F+FGF0F+F+*&)F(,*F,F-F
?F+F.F1F/F-F+F2F+F8*&FRF+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/
\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F+F8*&FUF+F2F+F8*&
FPF+FWF+F+*&)F(,*F.F1F/F^oFjnF+F,F0F+-F36%FY,(F,F+F7F+F/F7F0F+F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a7:= eG0(12,a6);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#a7G,:*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"
jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$
F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F
36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F
0F+F8*&)F(,(F0F+F.F1F/F-F+-F36%,&F,F0F7F+FGF0F+F+*&)F(,*F,F-F?F+F.F1F/
F-F+F2F+F8*&-F36%FNFGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/
\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F+F8*&FPF+F2F+F8*&
)F(,*F.F1F/F0F7F+F,F0F+FLF+F+*&)F(,*F.F1F/F[oFgnF+F,F0F+-F36%FT,(F,F+F
7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "nops(a7);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a8:= eG0(5,a7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a8G,<*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F
,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.
F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)
F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F0F+F8*&)F(,(F0F+F.F1F/F-F+-F
36%FNFGF0F+F+*&)F(,*F-F+F.F1F/FKF,F0F+FLF+F+*&)F(,*F,F-F?F+F.F1F/F-F+F
2F+F8*&FRF+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36
%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F+F8*&FPF+F2F+F8*&)F(,*F.F1F/F0F
7F+F,F0F+FLF+F+*&)F(,*F.F1F/F[oFgnF+F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F
7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a9:= eG1(5,a8);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,:*&)%\"qG,*\"\"&\"\"\"%\"mG
\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"
\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/
\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,*F7F+F.F1F/!\"#F,F0F+-F36%,
&F,F0F0F+F6F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&)F(,*F-F+F.F1F/FKF,F
0F+FLF+F+*&)F(,*F,F-F?F+F.F1F/F-F+F2F+F8*&-F36%FNFGF0F+)F(,*F,F-\"\"(F
+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1
F/F0F,F0F+F2F+F8*&)F(,*F.F1F/F0F7F+F,F0F+FLF+F+*&)F(,*F.F1F/F[oFgnF+F,
F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "a10:= gpsym(6,a9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$a10G,:*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6
%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'
F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F
8*&)F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F0F+F8*&)F(,*F?F+F.F1F/FD
F,F0F+FEF+F+*&)F(,*F-F+F.F1F/FKF,F0F+-F36%FN,(F,F+F+F+F/!\"$F0F+F+*&)F
(,*F,F-F?F+F.F1F/F-F+F2F+F8*&-F36%FNFGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8
*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F-F+F.F1F/F0F,F0F+F2F
+F8*&)F(,*F.F1F/F0F7F+F,F0F+FLF+F+*&)F(,*F.F1F/F_oF[oF+F,F0F+-F36%,&F,
F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "a11:= negate(6,a10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a11G,:*
&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+
,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"
\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,*F7
F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+
F+*&)F(,*F-F+F.F1F/F0F,F0F+FLF+F+*&)F(,*F,F-F?F+F.F1F/F-F+F2F+F8*&-F36
%FNFGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F
<FGF0F+F8*&FSF+F2F+F8*&)F(,*F.F1F/F0F7F+F,F0F+FLF+F+*&)F(,*F.F1F/F[oFg
nF+F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "a12:= eG0(6,a11);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a12G,8*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%
#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-
\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7
F0F+F8*&)F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F0F0F+F6F0F+F8*&)F(,*F?F+F.F
1F/FDF,F0F+FEF+F+*&)F(,*F?F+F.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F+F+*&)
F(,*F,F-F?F+F.F1F/F-F+F2F+F8*&-F36%FNFGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F
8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F.F1F/F0F7F+F,F0F+FL
F+F+*&)F(,*F.F1F/F_oF[oF+F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a13:= gpsym(4,a12);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a13G,8*&)%\"qG,*\"\"&\"\"\"%\"mG\"
\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*
&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5
F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,*F7F+F.F1F/!\"#F,F0F+-F36%,&F,F
0F0F+,(F,F+F+F+F/!\"$F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&)F(,*F?F+F
.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F+F+*&)F(,*F,F-F?F+F.F1F/F-F+F2F+F8*
&-F36%FNFGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-
F36%F<FGF0F+F8*&)F(,*F.F1F/F0F7F+F,F0F+-F36%FNF6F0F+F+*&)F(,*F.F1F/Fao
F]oF+F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 20 "a14:= negate(4,a13);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a14G,4*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#
7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+
)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F
+F0F+F/F7F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&)F(,*F?F+F.F1F/!\"%F,F
-F+-F36%F5,&F,F+F/F7F0F+F+*&)F(,*F,F-F?F+F.F1F/F-F+F2F+F8*&-F36%,&F,F0
F0F+FGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%
F<FGF0F+F8*&)F(,*F.F1F/FinFenF+F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+
F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a15:= gpsym(5,a14);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a15G,4*&)%\"qG,*\"\"&\"\"\"%\"mG
\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"
\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/
\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&
)F(,*F?F+F.F1F/!\"%F,F-F+-F36%F5,(F,F+F+F+F/!\"$F0F+F+*&)F(,*F,F-F?F+F
.F1F/F-F+F2F+F8*&-F36%,&F,F0F0F+FGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F
(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F.F1F/FjnFfnF+F,F0F+-F36%
,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "a16:= negate(5,a15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16
G,0*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0
F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F
/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,
*F?F+F.F1F/FDF,F0F+FEF+F+*&-F36%,&F,F0F0F+FGF0F+)F(,*F,F-\"\"(F+F.F1F/
F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F.F1F/FUFQF+F,F
0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "a17:= shiftdown(7,a16);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a17G,0*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%
#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+)F(,*F,F-
\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F+F0F+F/F7
F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&-F36%,&F,F0F0F+FGF0F+)F(,*F,F-
\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*&)F(,*F.
F1F/!#5F*F+F,F0F+-F36%,&F,F0F7F+,&F,F+F/F7F0F+F+" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 19 "a18:= gpsym(7,a17);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a18G,0*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#
7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F0F+
)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(F,F
+F0F+F/F7F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&-F36%,&F,F0F0F+FGF0F+)
F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+F8*
&)F(,*F.F1F/!#5F*F+F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/!\"$F0F+F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a19:= negate(7,a18);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a19G,0*&)%\"qG,*\"\"&\"\"\"%\"mG\"
\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*
&-F36%,$F,F0F6F0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5
F,F0F+-F36%F5,(F,F+F0F+F/F7F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&-F36
%,&F,F0F0F+FGF0F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0
F+-F36%F<FGF0F+F8*&FBF+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a20:= eG1(7,a19);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a20G,2*&)%\"qG,*\"\"&\"\"\"%\"mG\"\"%*$%\"jG\"\"#
\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,$F,F0F6F
0F+)F(,*F,F-\"\"'F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+-F36%F5,(
F,F+F0F+F/F7F0F+F8*&)F(,*F?F+F.F1F/FDF,F0F+FEF+F+*&-F36%,&F,F0F0F+FGF0
F+)F(,*F,F-\"\"(F+F.F1F/F@F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%F<FGF0F+
F8*&FBF+FLF+F+*&)F(,*\"#6F+F.F1F/\"#;F,F-F+-F36%FN,(F,F+F7F+F/F7F0F+F+
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a21:= eG0(7,a20);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a21G,,*&-%#gpG6%,$%\"mG\"\"#,(F+\"
\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&
)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&-F(6%,&F
+F,F,F.FAF,F.)F2,*F+F4\"\"(F.F6F7F/F8F.F9*&)F2,*F8F.F6F7F/\"#9F+F,F.-F
(6%F*FAF,F.F9*&)F2,*\"#6F.F6F7F/\"#;F+F4F.-F(6%FE,(F+F.F0F.F/F0F,F.F.
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a22:= eG1(3,a21);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a22G,.*&-%#gpG6%,$%\"mG\"\"#,(F+\"
\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&
)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,*F+F
4\"\"(F.F6F7F/F8F.-F(6%F@F-F,F.F9*&)F2,*F+F5\"#6F.F6F7F/\"#9F.F>F.F9*&
)F2,*F8F.F6F7F/FLF+F,F.-F(6%F*FAF,F.F9*&)F2,*FKF.F6F7F/\"#;F+F4F.-F(6%
,&F+F,F,F.,(F+F.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "a23:= eG1(6,a22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a23G,0
*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'
F.*$F/F,\"#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(
F+F.F,F.F/F0F,F.F.*&)F2,*F+F4\"\"(F.F6F7F/F8F.-F(6%F@F-F,F.F9*&)F2,*F+
F5\"#6F.F6F7F/\"#9F.F>F.F9*&)F2,*F8F.F6F7F/FLF+F,F.-F(6%F*FAF,F.F9*&)F
2,*FKF.F6F7F/\"#;F+F4F.F>F.F.*&)F2,*\"#<F.F6F7F/\"#AF+F5F.-F(6%F@,(F+F
.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a24:= sh
iftdown(6,a23);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a24G,0*&-%#gpG6%
,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"
#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/
F0F,F.F.*&)F2,*F+F4\"\"(F.F6F7F/F8F.-F(6%F@F-F,F.F9*&)F2,*F+F5\"#6F.F6
F7F/\"#9F.F>F.F9*&)F2,*F8F.F6F7F/FLF+F,F.-F(6%F*FAF,F.F9*&)F2,*FEF.F6F
7F/!\")F+F4F.-F(6%F@,(F+F.F9F.F/F0F,F.F.*&)F2,*\"#<F.F6F7F/\"#AF+F5F.-
F(6%F@,(F+F.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
19 "a25:= gpsym(6,a24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a25G,0*&
-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.
*$F/F,\"#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+
F.F,F.F/F0F,F.F.*&)F2,*F+F4\"\"(F.F6F7F/F8F.-F(6%F@F-F,F.F9*&)F2,*F+F5
\"#6F.F6F7F/\"#9F.F>F.F9*&)F2,*F8F.F6F7F/FLF+F,F.-F(6%F*FAF,F.F9*&)F2,
*FEF.F6F7F/!\")F+F4F.-F(6%F@,(F+F.F,F.F/!\"$F,F.F.*&)F2,*\"#<F.F6F7F/
\"#AF+F5F.-F(6%F@,(F+F.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a26:= negate(6,a25);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a26G,0*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*
F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%
,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,*F+F4\"\"(F.F6F7F/F8F.-F(6%F@F-F,F
.F9*&)F2,*F+F5\"#6F.F6F7F/\"#9F.F>F.F9*&)F2,*F8F.F6F7F/FLF+F,F.-F(6%F*
FAF,F.F9*&FCF.F>F.F.*&)F2,*\"#<F.F6F7F/\"#AF+F5F.-F(6%F@,(F+F.F0F.F/F0
F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a27:= eG0(3,a26);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,2*&-%#gpG6%,$%\"mG\"\"#,(F
+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"
\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,
*F+F4\"\"(F.F6F7F/F8F.F'F.F9*&)F2,*F+F5FEF.F6F7F/F,F.-F(6%F*,&F+F.F/F0
F,F.F9*&)F2,*F+F5\"#6F.F6F7F/\"#9F.F>F.F9*&)F2,*F8F.F6F7F/FPF+F,F.-F(6
%F*FAF,F.F9*&FCF.F>F.F.*&)F2,*\"#<F.F6F7F/\"#AF+F5F.-F(6%F@,(F+F.F0F.F
/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a28:=eG1(7,a27
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a28G,0*&-%#gpG6%,$%\"mG\"\"#,
(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!
\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F
2,*F+F5\"\"(F.F6F7F/F,F.-F(6%F*,&F+F.F/F0F,F.F9*&)F2,*F+F5\"#6F.F6F7F/
\"#9F.F>F.F9*&)F2,*F8F.F6F7F/FMF+F,F.-F(6%F*FAF,F.F9*&FJF.FQF.F.*&)F2,
*\"#<F.F6F7F/\"#AF+F5F.-F(6%F@,(F+F.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 17 "a29:= eG0(4,a28);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a29G,.*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.
F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#
5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,*F+F5\"\"(F.F6F7F/F,F.
-F(6%F*,&F+F.F/F0F,F.F9*&)F2,*F+F8\"\"*F.F6F7F/F8F.F'F.F9*&)F2,*F8F.F6
F7F/\"#9F+F,F.-F(6%F*FAF,F.F9*&)F2,*\"#<F.F6F7F/\"#AF+F5F.-F(6%F@,(F+F
.F0F.F/F0F,F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a30:= sh
iftdown(6,a29);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a30G,.*&-%#gpG6%
,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"
#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/
F0F,F.F.*&)F2,*F+F5\"\"(F.F6F7F/F,F.-F(6%F*,&F+F.F/F0F,F.F9*&)F2,*F+F8
\"\"*F.F6F7F/F8F.F'F.F9*&)F2,*F8F.F6F7F/\"#9F+F,F.-F(6%F*FAF,F.F9*&)F2
,*FEF.F6F7F/!\"#F+F5F.-F(6%F@FHF,F.F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "a31:= gpsym(6,a30);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a31G,.*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F
+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,
&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,*F+F5\"\"(F.F6F7F/F,F.-F(6%F*,&F+F.
F/F0F,F.F9*&)F2,*F+F8\"\"*F.F6F7F/F8F.F'F.F9*&)F2,*F8F.F6F7F/\"#9F+F,F
.-F(6%F*FAF,F.F9*&)F2,*FEF.F6F7F/!\"#F+F5F.-F(6%F@,(F+F.F.F.F/!\"$F,F.
F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a32:= negate(6,a31);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a32G,.*&-%#gpG6%,$%\"mG\"\"#,(F
+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"
\"*&)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,
*F+F5\"\"(F.F6F7F/F,F.-F(6%F*,&F+F.F/F0F,F.F9*&)F2,*F+F8\"\"*F.F6F7F/F
8F.F'F.F9*&)F2,*F8F.F6F7F/\"#9F+F,F.-F(6%F*FAF,F.F9*&FCF.-F(6%F@F-F,F.
F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a33:= eG1(6,a32);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a33G,(*&-%#gpG6%,$%\"mG\"\"#,(F+\"
\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&
)F2,*F5F.F6F7F/\"#5F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&)F2,*F8F
.F6F7F/\"#9F+F,F.-F(6%F*FAF,F.F9" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "a34:= shiftdown(2,a33);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a34G,(*&-%#gpG6%,$%\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"q
G,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&)F2,*F8F.F6F7F/!#9F+F,F.-F(
6%,&F+F,F.F.,(F+F.F9F.F/F0F,F.F.*&)F2,*F8F.F6F7F/\"#9F+F,F.-F(6%F*,(F+
F.F,F.F/F0F,F.F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a35:= g
psym(2,a34);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a35G,(*&-%#gpG6%,$%
\"mG\"\"#,(F+\"\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F
/\"\")F.!\"\"*&)F2,*F8F.F6F7F/!#9F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/!\"$
F,F.F.*&)F2,*F8F.F6F7F/\"#9F+F,F.-F(6%F*,(F+F.F,F.F/F0F,F.F9" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a36:= negate(2,a35);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a36G,(*&-%#gpG6%,$%\"mG\"\"#,(F+\"
\"\"%\"jG\"\"$F.F.F,F.)%\"qG,*F+\"\"%\"\"'F.*$F/F,\"#7F/\"\")F.!\"\"*&
)F2,*F8F.F6F7F/\"#9F+F,F.-F(6%,&F+F,F.F.,(F+F.F,F.F/F0F,F.F.*&F;F.-F(6
%F*FAF,F.F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a37:= eG0(2,
a36);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a37G\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "#######
#### n = 2*m + 1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 244 "b1:= a
soo(op1, q^(12*j^2 + 4*j)     * gp(2*n+1, n+3*j+1, 2) \n            + \+
 q^(12*j^2 + 8*j + 1) * gp(2*n  , n+3*j+1, 2),\n               q^(12*j
^2 + 4*j)     * gp(2*n+1, n+3*j+1, 2) \n            +  q^(12*j^2 + 8*j
 + 1) * gp(2*n+2, n+3*j+2, 2));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#
b1G,:*&)%\"qG,(\"\"$\"\"\"*$%\"jG\"\"#\"#7F-\"\"%F+-%#gpG6%,&%\"mGF.F+
F+,(F5F+F-F*F+F+F.F+F+*&)F(,*\"\"(F+F5F0F,F/F-F0F+F1F+!\"\"*&-F26%,&F5
F.F.F+,(F5F+F.F+F-F*F.F+)F(,*F5F0\"\")F+F,F/F-FCF+F;*&)F(,(F,F/F-FCF.F
+F+-F26%,&F5F.F0F+,(F5F+F*F+F-F*F.F+F;*&)F(,&F,F/F-F0F+-F26%,&F5F.F*F+
F@F.F+F;*&)F(,(F*F+F,F/F-FCF+FGF+F+*&F=F+FEF+F+*&)F(,*F5F0FCF+F,F/F-F0
F+FNF+F;*&F=F+)F(,*F5F0\"\"*F+F,F/F-FCF+F;*&F'F+FNF+F;*&F=F+FRF+F;*&FL
F+-F26%,&F5F.\"\"&F+FJF.F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "b2:= eG1(10,b1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b2G,<*&)%
\"qG,(\"\"$\"\"\"*$%\"jG\"\"#\"#7F-\"\"%F+-%#gpG6%,&%\"mGF.F+F+,(F5F+F
-F*F+F+F.F+F+*&)F(,*\"\"(F+F5F0F,F/F-F0F+F1F+!\"\"*&-F26%,&F5F.F.F+,(F
5F+F.F+F-F*F.F+)F(,*F5F0\"\")F+F,F/F-FCF+F;*&)F(,(F,F/F-FCF.F+F+-F26%,
&F5F.F0F+,(F5F+F*F+F-F*F.F+F;*&)F(,&F,F/F-F0F+-F26%,&F5F.F*F+F@F.F+F;*
&)F(,(F*F+F,F/F-FCF+FGF+F+*&F=F+FEF+F+*&)F(,*F5F0FCF+F,F/F-F0F+FNF+F;*
&F=F+)F(,*F5F0\"\"*F+F,F/F-FCF+F;*&F'F+-F26%F?F6F.F+F;*&)F(,*F:F+F,F/F
-\"#5F5F.F+F=F+F;*&F=F+FRF+F;*&FLF+-F26%,&F5F.\"\"&F+FJF.F+F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "b3:= eG0(10,b2);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#b3G,:*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"
jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&
F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,(F.F1F/F@F
0F+F+-F36%,&F,F0F-F+,(F,F+F7F+F/F7F0F+F8*&)F(,&F.F1F/F-F+-F36%,&F,F0F7
F+F=F0F+F8*&)F(,(F7F+F.F1F/F@F+FDF+F+*&F:F+FBF+F+*&)F(,*F,F-F@F+F.F1F/
F-F+FKF+F8*&F:F+)F(,*F,F-\"\"*F+F.F1F/F@F+F8*&)F(,*\"\"&F+F.F1F/!\"#F,
F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&F:F+FOF+
F8*&FIF+-F36%,&F,F0FfnF+FGF0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "b4:= eG1(12,b3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%#b4G,<*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&
F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)
F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,(F.F1F/F@F0F+F+-F36%,&F,F0F-F+,(F,F+F
7F+F/F7F0F+F8*&)F(,&F.F1F/F-F+-F36%,&F,F0F7F+F=F0F+F8*&)F(,(F7F+F.F1F/
F@F+FDF+F+*&F:F+FBF+F+*&)F(,*F,F-F@F+F.F1F/F-F+FKF+F8*&F:F+)F(,*F,F-\"
\"*F+F.F1F/F@F+F8*&)F(,*\"\"&F+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8
*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&F:F+FOF+F8*&FIF+-F36%FFF=F0F+F+*&)F
(,*\"\"'F+F.F1F/F^oF,F0F+FDF+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "b5:= eG0(12,b4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b5G,:*&
)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,
(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-
\"\")F+F.F1F/F@F+F8*&)F(,(F.F1F/F@F0F+F+-F36%,&F,F0F-F+,(F,F+F7F+F/F7F
0F+F8*&)F(,(F7F+F.F1F/F@F+FDF+F+*&F:F+FBF+F+*&)F(,*F,F-F@F+F.F1F/F-F+-
F36%,&F,F0F7F+F=F0F+F8*&F:F+)F(,*F,F-\"\"*F+F.F1F/F@F+F8*&)F(,*\"\"&F+
F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+
F8*&F:F+FIF+F8*&)F(,*F-F+F.F1F/FZF,F0F+-F36%FQF6F0F+F+*&)F(,*\"\"'F+F.
F1F/F[oF,F0F+FDF+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b6:=
 eG1(3,b5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b6G,<*&)%\"qG,*\"\"(
\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F
+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F
@F+F8*&)F(,(F.F1F/F@F0F+F+-F36%,&F,F0F7F+F=F0F+F8*&)F(,*F@F+F.F1F/\"#9
F,F0F+-F36%FF,(F,F+F7F+F/F7F0F+F8*&)F(,(F7F+F.F1F/F@F+-F36%,&F,F0F-F+F
MF0F+F+*&F:F+FBF+F+*&)F(,*F,F-F@F+F.F1F/F-F+FDF+F8*&F:F+)F(,*F,F-\"\"*
F+F.F1F/F@F+F8*&)F(,*\"\"&F+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)
F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&F:F+FOF+F8*&)F(,*F-F+F.F1F/FjnF,F0F+-F
36%FFF6F0F+F+*&)F(,*\"\"'F+F.F1F/FaoF,F0F+FQF+F+" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 15 "b7:= eG0(3,b6);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#b7G,:*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#
gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/
F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F1F/F0F,F0F+-F36%F<F6F0
F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F8*&)F
(,(F7F+F.F1F/F@F+-F36%,&F,F0F-F+FMF0F+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%
FLF=F0F+F8*&F:F+)F(,*F,F-\"\"*F+F.F1F/F@F+F8*&)F(,*\"\"&F+F.F1F/!\"#F,
F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&F:F+FOF+
F8*&)F(,*F-F+F.F1F/F[oF,F0F+-F36%FLF6F0F+F+*&)F(,*\"\"'F+F.F1F/FboF,F0
F+FQF+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b8:= eG1(5,b7);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b8G,<*&)%\"qG,*\"\"(\"\"\"%\"mG
\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"
\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(
,*F-F+F.F1F/F0F,F0F+-F36%F<F6F0F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%,&F
,F0F7F+,(F,F+F7F+F/F7F0F+F8*&)F(,(F7F+F.F1F/F@F+-F36%FLF=F0F+F+*&)F(,*
\"\"*F+F.F1F/FIF,F0F+FJF+F+*&)F(,*F,F-F@F+F.F1F/F-F+FQF+F8*&F:F+)F(,*F
,F-FVF+F.F1F/F@F+F8*&)F(,*\"\"&F+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+
F8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&F:F+FOF+F8*&)F(,*F-F+F.F1F/F[oF,F
0F+-F36%FLF6F0F+F+*&)F(,*\"\"'F+F.F1F/FboF,F0F+-F36%,&F,F0F-F+FMF0F+F+
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b9:= eG0(5,b8);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#b9G,:*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"
%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-
F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F
+F.F1F/F0F,F0F+-F36%F<F6F0F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7
F+,(F,F+F7F+F/F7F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+
F.F1F/FIF,F0F+FJF+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%FLF=F0F+F8*&F:F+)F(,
*F,F-FUF+F.F1F/F@F+F8*&)F(,*FQF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F
8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/F[oF,F0F+-F36%FLF6F
0F+F+*&)F(,*\"\"'F+F.F1F/FboF,F0F+-F36%,&F,F0F-F+FMF0F+F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b10:= shiftdown(12,b9);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b10G,:*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%
\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%
,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F
1F/F0F,F0F+-F36%F<F6F0F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(
F,F+F7F+F/F7F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+F.F1
F/FIF,F0F+FJF+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%FLF=F0F+F8*&F:F+)F(,*F,F
-FUF+F.F1F/F@F+F8*&)F(,*FQF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)
F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/F[oF,F0F+-F36%FLF6F0F+F
+*&)F(,*F@F+F.F1F/!#9F,F0F+-F36%,&F,F0F-F+F^oF0F+F+" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 20 "b11:= gpsym(12,b10);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$b11G,:*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#
7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(
F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F1F/F0F,F0F+-
F36%F<F6F0F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7
F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+F.F1F/FIF,F0F+FJ
F+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%FLF=F0F+F8*&F:F+)F(,*F,F-FUF+F.F1F/F
@F+F8*&)F(,*FQF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F.F1
F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/F[oF,F0F+-F36%FLF6F0F+F+*&)F(,*F@F+
F.F1F/!#9F,F0F+-F36%,&F,F0F-F+,(F,F+F-F+F/!\"$F0F+F+" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 21 "b12:= negate(12,b11);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$b12G,:*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#
\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F
+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F1F/F0F,F0
F+-F36%F<F6F0F+F8*&)F(,*F@F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F
/F7F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+F.F1F/FIF,F0F
+FJF+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%FLF=F0F+F8*&F:F+)F(,*F,F-FUF+F.F1
F/F@F+F8*&)F(,*FQF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F
.F1F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/F[oF,F0F+-F36%FLF6F0F+F+*&FGF+-F
36%,&F,F0F-F+,(F,F+F-F+F/F7F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "b13:= eG1(12,b12);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$b13G,8*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6
%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0
F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F1F/F0F,F0F+-F36%F<F6F0F+F8
*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,
&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%FQF=F0F+F8*
&F:F+)F(,*F,F-FMF+F.F1F/F@F+F8*&)F(,*FIF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+
F/F7F0F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/FhnF,F0F+-
F36%FQF6F0F+F+*&)F(,*\"#;F+F.F1F/\"#?F,F-F+-F36%FQ,(F,F+F-F+F/F7F0F+F+
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "b14:= shiftdown(11,b13)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b14G,8*&)%\"qG,*\"\"(\"\"\"%\"
mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!
\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)
F(,*F-F+F.F1F/F0F,F0F+-F36%F<F6F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F
+*&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&)F
(,*F,F-F@F+F.F1F/F-F+-F36%FQF=F0F+F8*&F:F+)F(,*F,F-FMF+F.F1F/F@F+F8*&)
F(,*FIF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F.F1F/\"#5F,
F0F+F:F+F8*&)F(,*F-F+F.F1F/FhnF,F0F+-F36%FQF6F0F+F+*&)F(,*F@F+F.F1F/!
\"%F,F-F+FcoF+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "b15:= g
psym(11,b14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b15G,8*&)%\"qG,*\"
\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"
\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F
1F/F@F+F8*&)F(,*F-F+F.F1F/F0F,F0F+-F36%F<F6F0F+F8*&)F(,*\"\"&F+F.F1F/F
0F,F0F+FDF+F+*&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/
F7F0F+F+*&)F(,*F,F-F@F+F.F1F/F-F+-F36%FQF=F0F+F8*&F:F+)F(,*F,F-FMF+F.F
1F/F@F+F8*&)F(,*FIF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+
F.F1F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/FhnF,F0F+-F36%FQF6F0F+F+*&)F(,*
F@F+F.F1F/!\"%F,F-F+-F36%FQ,(F,F+F0F+F/!\"$F0F+F+" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 21 "b16:= negate(11,b15);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$b16G,4*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#
7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0F0F+,(
F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F1F/F0F,F0F+-
F36%F<F6F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+F.F1F/\"
#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&F:F+)F(,*F,F-FMF+F.F1F/F@
F+F8*&)F(,*FIF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F+F.F1F
/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/FYF,F0F+-F36%FQF6F0F+F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "b17:= gpsym(9,b16);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$b17G,4*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"
\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&-F36%,&F,F0
F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*&)F(,*F-F+F.F1F/F0F
,F0F+-F36%F<F6F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF+F+*&)F(,*\"\"*F+F.
F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&F:F+)F(,*F,F-FMF+F.
F1F/F@F+F8*&)F(,*FIF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0F+F8*&)F(,*F*F
+F.F1F/\"#5F,F0F+F:F+F8*&)F(,*F-F+F.F1F/FYF,F0F+-F36%FQ,(F,F+F0F+F/!\"
$F0F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "b18:= negate(9,b
17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b18G,4*&)%\"qG,*\"\"(\"\"\"
%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F
+!\"\"*&-F36%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\")F+F.F1F/F@F+F8*
&)F(,*F-F+F.F1F/F0F,F0F+-F36%F<F6F0F+F8*&)F(,*\"\"&F+F.F1F/F0F,F0F+FDF
+F+*&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&
F:F+)F(,*F,F-FMF+F.F1F/F@F+F8*&)F(,*FIF+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F
/F7F0F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+F:F+F8*&FBF+-F36%FQF=F0F+F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "b19:= eG1(9,b18);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b19G,.*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%
\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&)F(,*
\"\"&F+F.F1F/F0F,F0F+-F36%,&F,F0F0F+F6F0F+F+*&)F(,*\"\"*F+F.F1F/\"#9F,
F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&-F36%F?,(F,F+F0F+F/F7F0F+)F(,
*F,F-FCF+F.F1F/\"\")F+F8*&)F(,*F<F+F.F1F/!\"#F,F0F+-F36%F5,&F,F+F/F7F0
F+F8*&)F(,*F*F+F.F1F/\"#5F,F0F+FJF+F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "b20:= gpsym(5,b19);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$b20G,.*&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG
6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&)F(,*\"\"&F+F.F1F/F0F,F0F+-F36
%,&F,F0F0F+F6F0F+F+*&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+
F7F+F/F7F0F+F+*&-F36%F?,(F,F+F0F+F/F7F0F+)F(,*F,F-FCF+F.F1F/\"\")F+F8*
&)F(,*F<F+F.F1F/!\"#F,F0F+-F36%F5,(F,F+F+F+F/!\"$F0F+F8*&)F(,*F*F+F.F1
F/\"#5F,F0F+FJF+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "b21:=
 negate(5,b20);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b21G,.*&)%\"qG,*
\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/
\"\"$F+F+F0F+!\"\"*&)F(,*\"\"&F+F.F1F/F0F,F0F+-F36%,&F,F0F0F+F6F0F+F+*
&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&-F36
%F?,(F,F+F0F+F/F7F0F+)F(,*F,F-FCF+F.F1F/\"\")F+F8*&F:F+F2F+F8*&)F(,*F*
F+F.F1F/\"#5F,F0F+FJF+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 
"b22:= eG0(2,b21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b22G,,*&)%\"q
G,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+
F/\"\"$F+F+F0F+!\"\"*&)F(,*F*F+F.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F+F+
*&)F(,*\"\"*F+F.F1F/\"#9F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&-F3
6%,&F,F0F0F+,(F,F+F0F+F/F7F0F+)F(,*F,F-FCF+F.F1F/\"\")F+F8*&)F(,*F*F+F
.F1F/\"#5F,F0F+FJF+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b2
3:= shiftdown(3,b22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b23G,,*&)%
\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F
,F+F/\"\"$F+F+F0F+!\"\"*&)F(,*F*F+F.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F
+F+*&)F(,*F*F+F.F1F/!#5F,F0F+-F36%,&F,F0F7F+F?F0F+F+*&-F36%,&F,F0F0F+,
(F,F+F0F+F/F7F0F+)F(,*F,F-\"\"*F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5F
,F0F+FHF+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "b24:= gpsym(
3,b23);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b24G,,*&)%\"qG,*\"\"(\"
\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F
+F0F+!\"\"*&)F(,*F*F+F.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F+F+*&)F(,*F*F
+F.F1F/!#5F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/!\"$F0F+F+*&-F36%,&F,F0F0F+
,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\"*F+F.F1F/\"\")F+F8*&)F(,*F*F+F.F1F/\"#5
F,F0F+FJF+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "b25:= negat
e(3,b24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b25G,,*&)%\"qG,*\"\"(
\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F
+F+F0F+!\"\"*&)F(,*F*F+F.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F+F+*&)F(,*F
*F+F.F1F/\"#5F,F0F+-F36%,&F,F0F7F+,(F,F+F7F+F/F7F0F+F+*&-F36%,&F,F0F0F
+,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\"*F+F.F1F/\"\")F+F8*&FAF+FIF+F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "b26:= eG1(3,b25);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b26G,**&)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%
\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,(F,F+F/\"\"$F+F+F0F+!\"\"*&)F(,*
F*F+F.F1F/!\"%F,F-F+-F36%F5,&F,F+F/F7F0F+F+*&)F(,*\"#8F+F.F1F/\"#;F,F-
F+-F36%,&F,F0F0F+,(F,F+F7F+F/F7F0F+F+*&-F36%FG,(F,F+F0F+F/F7F0F+)F(,*F
,F-\"\"*F+F.F1F/\"\")F+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
19 "b27:= gpsym(2,b26);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b27G,**&
)%\"qG,*\"\"(\"\"\"%\"mG\"\"%*$%\"jG\"\"#\"#7F/F-F+-%#gpG6%,&F,F0F+F+,
(F,F+F/\"\"$F+F+F0F+!\"\"*&)F(,*F*F+F.F1F/!\"%F,F-F+-F36%F5,(F,F+F+F+F
/!\"$F0F+F+*&)F(,*\"#8F+F.F1F/\"#;F,F-F+-F36%,&F,F0F0F+,(F,F+F7F+F/F7F
0F+F+*&-F36%FH,(F,F+F0F+F/F7F0F+)F(,*F,F-\"\"*F+F.F1F/\"\")F+F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "b28:= negate(2,b27);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$b28G,&*&)%\"qG,*\"#8\"\"\"*$%\"jG\"
\"#\"#7F-\"#;%\"mG\"\"%F+-%#gpG6%,&F1F.F.F+,(F1F+\"\"$F+F-F8F.F+F+*&-F
46%F6,(F1F+F.F+F-F8F.F+)F(,*F1F2\"\"*F+F,F/F-\"\")F+!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b29:= shiftdown(1,b28);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$b29G,&*&)%\"qG,*\"\"*\"\"\"*$%\"jG\"\"#\"
#7F-!\")%\"mG\"\"%F+-%#gpG6%,&F1F.F.F+,&F1F+F-\"\"$F.F+F+*&-F46%F6,(F1
F+F.F+F-F8F.F+)F(,*F1F2F*F+F,F/F-\"\")F+!\"\"" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 19 "b30:= gpsym(1,b29);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$b30G,&*&)%\"qG,*\"\"*\"\"\"*$%\"jG\"\"#\"#7F-!\")%\"
mG\"\"%F+-%#gpG6%,&F1F.F.F+,(F1F+F.F+F-!\"$F.F+F+*&-F46%F6,(F1F+F.F+F-
\"\"$F.F+)F(,*F1F2F*F+F,F/F-\"\")F+!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "b31:= negate(1,b30);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$b31G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }