{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 14 "######## 3.118" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "op1:= annihiloper( q^(j^2+2*
j) / qfac(q,q^2,j) / qfac(-q^2,q^2,j)/ spqfac(q^2,q^2,j), 0, back);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op1G,*\"\"\"F&*&,**$%\"qG\"\"#!\"
\"F*F&F&F&)F*,&%\"nGF+F&F&F&F&%\"NGF,F,*&,(*$F*\"\"$F&F)F&F*F,F&F0!\"#
F,*&F*F4F0!\"$F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "a1:= a
pplyshiftop(op1,  q^(21*j^2 +  4*j    ) * U(n+1,7*j   ,1) \n          \+
            - q^(21*j^2 + 10*j + 1) * U(n+1,7*j + 1,1));" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%#a1G,F*&-%\"UG6%,&%\"nG\"\"\"!\"#F,,$%\"jG\"\"
(F,F,)%\"qG,(\"\"$F,*$F/\"\"#\"#@F/\"\"%F,F,*&)F2,(F8F,F5F7F/\"#5F,-F(
6%F*,&F/F0F,F,F,F,!\"\"*&F1F,-F(6%,&F+F,F@F,F.F,F,F@*&F:F,-F(6%FDF?F,F
,F,*&)F2,(F6F,F5F7F/F8F,FBF,F@*&)F2,(F4F,F5F7F/F<F,FFF,F,*&)F2,(F,F,F5
F7F/F8F,FBF,F,*&)F2,(F5F7F/F<F6F,F,FFF,F@*&FIF,-F(6%F+F.F,F,F,*&-F(6%F
+F?F,F,FLF,F@*&FOF,FUF,F@*&FXF,FRF,F,*&)F2,&F5F7F/F8F,FUF,F@*&)F2,(F5F
7F/F<F,F,F,FXF,F,*&)F2,*F+F6F,F,F5F7F/F8F,FUF,F@*&FXF,)F2,*F+F6F6F,F5F
7F/F<F,F,*&FgnF,-F(6%,&F+F,F,F,F.F,F,F,*&FjnF,-F(6%FeoF?F,F,F@" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eU1(3,a1);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a2G,H*&)%\"qG,(\"\"%\"\"\"*$%\"jG\"\"#\"#@F-
\"#5F+-%\"UG6%,&%\"nGF+!\"#F+,&F-\"\"(F+F+F+F+!\"\"*&)F(,(F,F/F-F*F5F.
F+-F26%F4,$F-F8F+F+F9*&)F(,*F.F+F,F/F-!\"$F5F+F+-%#T1G6%F4,&F-F8F9F+F+
F+F9*&)F(,*\"\"$F+F,F/F-\"#6F5F+F+-FE6%F4,&F-F8F.F+F+F+F9*&F'F+-F26%,&
F5F+F9F+F7F+F+F+*&)F(,(F.F+F,F/F-F*F+-F26%FSF?F+F+F9*&)F(,(FKF+F,F/F-F
0F+FQF+F+*&)F(,(F+F+F,F/F-F*F+FWF+F+*&)F(,(F,F/F-F0F.F+F+FQF+F9*&FUF+-
F26%F5F?F+F+F+*&-F26%F5F7F+F+FZF+F9*&FgnF+F]oF+F9*&F`oF+FjnF+F+*&)F(,&
F,F/F-F*F+F]oF+F9*&)F(,(F,F/F-F0F+F+F+F`oF+F+*&)F(,*F5F.F+F+F,F/F-F*F+
F]oF+F9*&F`oF+)F(,*F5F.F.F+F,F/F-F0F+F+*&FeoF+-F26%,&F5F+F+F+F?F+F+F+*
&FhoF+-F26%FcpF7F+F+F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a
3:= eU1(5,a2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,J*&)%\"qG,(*$
%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"
\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F
*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%
F4,&F+F7F0F0F0F0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-
F+\"#<F/F0F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F,F0F*F-F+F.F0-F26%,&F/F0F8F
0F6F0F0F8*&)F(,(FDF0F*F-F+FLF0-F26%F[oFOF0F0F0*&)F(,(F0F0F*F-F+F.F0Fin
F0F0*&)F(,(F*F-F+FLF,F0F0F_oF0F8*&FgnF0-F26%F/F6F0F0F0*&-F26%F/FOF0F0F
]oF0F8*&FboF0FhoF0F8*&F[pF0FeoF0F0*&)F(,&F*F-F+F.F0FhoF0F8*&)F(,(F*F-F
+FLF0F0F0F[pF0F0*&)F(,*F/F,F0F0F*F-F+F.F0FhoF0F8*&F[pF0)F(,*F/F,F,F0F*
F-F+FLF0F0*&F`pF0-F26%,&F/F0F0F0F6F0F0F0*&FcpF0-F26%F^qFOF0F0F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a4:= eU1(12,a3);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#a4G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"
nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F+!\"$F
/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>6%F4,&
F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F+F7F0F0F0F0F0*&)F(,
*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6%F4,&F+F
7FDF0F0F0F0*&)F(,(F,F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F8*&)F(,(F0F0F*F-
F+F.F0FinF0F0*&)F(,(F*F-F+FLF,F0F0-F26%F[oFOF0F0F8*&FgnF0-F26%F/F6F0F0
F0*&)F(,*F/F,F,F0F*F-F+FLF0FboF0F8*&FQF0-F>FjnF0F8*&FUF0-F>6%F[oFenF0F
0F8*&F]oF0FeoF0F8*&-F26%F/FOF0F0F`oF0F0*&)F(,&F*F-F+F.F0FeoF0F8*&)F(,(
F*F-F+FLF0F0F0FapF0F0*&)F(,*F/F,F0F0F*F-F+F.F0FeoF0F8*&FapF0FhoF0F0*&F
dpF0-F26%,&F/F0F0F0F6F0F0F0*&FgpF0-F26%F`qFOF0F0F8" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 16 "a5:= eU1(15,a4);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#a5G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-
%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1G
6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0F0F
0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F+F7F0F0F0F0F0*&)F(,*F,F0F*F-F+
FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6%F4,&F+F7FDF0F0F0F0
*&)F(,(F,F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F8*&)F(,(F0F0F*F-F+F.F0FinF0
F0*&FgnF0-F26%F/F6F0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F26%F[oFOF0F0F8*&FQF
0-F>FjnF0F8*&FUF0-F>6%F[oFenF0F0F8*&F]oF0F`oF0F8*&FJF0FeoF0F0*&)F(,*F*
F-F+FDF0F0F/F0F0FhoF0F0*&)F(,*F*F-F+FXF.F0F/F0F0FjoF0F0*&)F(,&F*F-F+F.
F0F`oF0F8*&)F(,(F*F-F+FLF0F0F0-F26%F/FOF0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0
F`oF0F8*&FjpF0FcoF0F0*&FepF0-F26%,&F/F0F0F0F6F0F0F0*&FhpF0-F26%FcqFOF0
F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a6:= eU1(21,a5);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a6G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+
\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F
-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-
F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F+F7F0F0F0F0
F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6
%F4,&F+F7FDF0F0F0F0*&)F(,(F,F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F8*&)F(,(
F0F0F*F-F+F.F0FinF0F0*&FgnF0-F26%F/F6F0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F
26%F[oFOF0F0F8*&FQF0-F>FjnF0F8*&FUF0-F>6%F[oFenF0F0F8*&F]oF0F`oF0F8*&F
JF0FeoF0F0*&)F(,*F*F-F+FDF0F0F/F0F0FhoF0F0*&)F(,*F*F-F+FXF.F0F/F0F0Fjo
F0F0*&)F(,(F*F-F+FLF0F0F0-F26%F/FOF0F0F0*&FgpF0FcoF0F0*&)F(,*F*F-F+F<F
/F0F0F0F0-F>6%F/F@F0F0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%F/FHF0F0F0*&FepF
0-F26%,&F/F0F0F0FOF0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 
"a7:= eU1(21,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a7G,J*&)%\"qG,
(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0
!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$
F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F
26%F4,&F+F7F0F0F0F0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F
*F-F+\"#<F/F0F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F,F0F*F-F+F.F0-F26%,&F/F0
F8F0F6F0F0F8*&)F(,(F0F0F*F-F+F.F0FinF0F0*&FgnF0-F26%F/F6F0F0F0*&)F(,*F
/F,F,F0F*F-F+FLF0-F26%F[oFOF0F0F8*&FQF0-F>FjnF0F8*&FUF0-F>6%F[oFenF0F0
F8*&F]oF0F`oF0F8*&FJF0FeoF0F0*&)F(,*F*F-F+FDF0F0F/F0F0FhoF0F0*&)F(,*F*
F-F+FXF.F0F/F0F0FjoF0F0*&)F(,*F*F-F+F<F/F0F0F0F0-F>6%F/F@F0F0F0*&)F(,*
F*F-F+FEF/F0F,F0F0-F>6%F/FHF0F0F0*&F_pF0-F>FaoF0F8*&FbpF0-F>6%F/FenF0F
0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a8:= eU1(9,a7);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a8G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"
\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F
+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>
6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F+F7F0F0F0F0F0
*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6%F
4,&F+F7FDF0F0F0F0*&)F(,(F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&)F(,*F/
F,F0F0F*F-F+F.F0FinF0F0*&F:F0-F>6%F[oF@F0F0F0*&FBF0-F>6%F[oFHF0F0F0*&)
F(,*F/F,F,F0F*F-F+FLF0-F26%F[oFOF0F0F8*&FQF0-F>FjnF0F8*&FUF0-F>6%F[oFe
nF0F0F8*&FgnF0-F26%F/F6F0F0F8*&FJF0FhoF0F0*&)F(,*F*F-F+FDF0F0F/F0F0F[p
F0F0*&)F(,*F*F-F+FXF.F0F/F0F0F]pF0F0*&)F(,*F*F-F+F<F/F0F0F0F0-F>6%F/F@
F0F0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%F/FHF0F0F0*&FdpF0-F>FapF0F8*&FgpF0
-F>6%F/FenF0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a9:= eT
1(21,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,L*&)%\"qG,(*$%\"jG
\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)
F(,*F,F0F*F-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+
\"#6F/F0F0-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F
+F7F0F0F0F0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#
<F/F0F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0
F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FinF0F0*&F:F0-F>6%F[oF@F0F0F0*&FBF0-F>6%F
[oFHF0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F26%F[oFOF0F0F8*&FQF0-F>FjnF0F8*&F
UF0-F>6%F[oFenF0F0F8*&FgnF0-F26%F/F6F0F0F8*&FJF0FhoF0F0*&)F(,*F*F-F+FD
F0F0F/F0F0F[pF0F0*&)F(,*F*F-F+F<F/F0F0F0F0-F>6%F/F@F0F0F0*&)F(,*F*F-F+
FEF/F0F,F0F0-F>6%F/FHF0F0F0*&FdpF0-F>FapF0F8*&)F(,*F*F-F+\"#CF7F0F/F,F
0-%#T0G6%F[o,&F+F7F.F0F0F0F8*&FJF0-FgqFdoF0F8" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 20 "a10:= negate(17,a9);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a10G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"
-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1
G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0F0
F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F+F7F0F0F0F0F0*&)F(,*F,F0F*F-F
+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6%F4,&F+F7FDF0F0F0F
0*&)F(,(F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0
FinF0F0*&F:F0-F>6%F[oF@F0F0F0*&FBF0-F>6%F[oFHF0F0F0*&)F(,*F/F,F,F0F*F-
F+FLF0-F26%F[oFOF0F0F8*&FQF0-F>FjnF0F8*&FUF0-F>6%F[oFenF0F0F8*&FgnF0-F
26%F/F6F0F0F8*&FJF0FhoF0F0*&)F(,*F*F-F+FDF0F0F/F0F0F[pF0F0*&FdpF0-F>6%
F/,&F+!\"(F8F0F0F0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%F/FHF0F0F0*&FdpF0-F>
FapF0F8*&)F(,*F*F-F+\"#CF7F0F/F,F0-%#T0G6%F[o,&F+F7F.F0F0F0F8*&FJF0-Fg
qFdoF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a11:= sym(17,a1
0);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a11G,L*&)%\"qG,(*$%\"jG\"\"#
\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F
,F0F*F-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F
/F0F0-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F26%F4,&F+F7F0
F0F0F0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0
F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*
&)F(,*F/F,F0F0F*F-F+F.F0FinF0F0*&F:F0-F>6%F[oF@F0F0F0*&FBF0-F>6%F[oFHF
0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F26%F[oFOF0F0F8*&FQF0-F>FjnF0F8*&FUF0-F
>6%F[oFenF0F0F8*&FgnF0-F26%F/F6F0F0F8*&FJF0FhoF0F0*&)F(,*F*F-F+FDF0F0F
/F0F0F[pF0F0*&FdpF0-F>6%F/FOF0F0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%F/FHF0
F0F0*&FdpF0-F>FapF0F8*&)F(,*F*F-F+\"#CF7F0F/F,F0-%#T0G6%F[o,&F+F7F.F0F
0F0F8*&FJF0-FeqFdoF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a
12:= e0(19,a11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a12G,L*&)%\"qG,
(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0
!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$
F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F
26%F4,&F+F7F0F0F0F0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F
*F-F+\"#<F/F0F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F0F0F*F-F+F.F0-F26%,&F/F0
F8F0F6F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FinF0F0*&F:F0-F>6%F[oF@F0F0F0*&FB
F0-F>6%F[oFHF0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F26%F[oFOF0F0F8*&FQF0-F>Fj
nF0F8*&FUF0-F>6%F[oFenF0F0F8*&FgnF0-F26%F/F6F0F0F8*&FJF0FhoF0F0*&)F(,*
F*F-F+FDF0F0F/F0F0F[pF0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%F/FHF0F0F0*&)F(
,*F*F-F+!\"%F0F0F/F,F0-%#T0GFapF0F8*&FfoF0-F`q6%F/FOF0F0F0*&)F(,*F*F-F
+\"#CF7F0F/F,F0-F`q6%F[o,&F+F7F.F0F0F0F8*&FJF0-F`qFdoF0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a13:= splitU(4,a12);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%$a13G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF
,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0
F0-%#T1G6%F4,&F+F7F8F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F
7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-%#T0G6%F4,&F+F7F0F0F0F0F0*&FJF0
-FNFGF0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F
0F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0
*&)F(,*F/F,F0F0F*F-F+F.F0F\\oF0F0*&F:F0-F>6%F^oF@F0F0F0*&FBF0-F>6%F^oF
HF0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F26%F^oFPF0F0F8*&FTF0-F>F]oF0F8*&FXF0
-F>6%F^oFhnF0F0F8*&FjnF0-F26%F/F6F0F0F8*&FJF0F[pF0F0*&)F(,*F*F-F+FDF0F
0F/F0F0F^pF0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%F/FHF0F0F0*&)F(,*F*F-F+!\"
%F0F0F/F,F0-FNFdpF0F8*&FioF0-FN6%F/FPF0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0
-FN6%F^o,&F+F7F.F0F0F0F8*&FJF0-FNFgoF0F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "a14:= eT0(22,a13);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$a14G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0
!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1G6%F4,&F+F7F8F
0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F
0F*F-F+\"#5F/F,F0-%#T0GFGF0F0*&)F(,*F,F0F*F-F+FDF/F0F0-F>F3F0F0*&)F(,*
\"\"&F0F*F-F+\"#<F/F0F0-F>6%F4,&F+F7FDF0F0F0F0*&)F(,(F0F0F*F-F+F.F0-F2
6%,&F/F0F8F0F6F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FhnF0F0*&F:F0-F>6%FjnF@F0
F0F0*&FBF0-F>6%FjnFHF0F0F0*&)F(,*F/F,F,F0F*F-F+FLF0-F26%Fjn,&F+F7F0F0F
0F0F8*&FPF0-F>FinF0F8*&FTF0-F>6%FjnFZF0F0F8*&FfnF0-F26%F/F6F0F0F8*&FJF
0FgoF0F0*&)F(,*F*F-F+FDF0F0F/F0F0F[pF0F0*&)F(,*F*F-F+FEF/F0F,F0F0-F>6%
F/FHF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-FNFapF0F8*&FeoF0-FN6%F/FioF0F0F0
*&)F(,*F*F-F+\"#CF7F0F/F,F0-FN6%Fjn,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FW
F/FDF0FFF0F8*&)F(,*FDF0F*F-F+FfqF/F.F0-FNFYF0F8" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "a15:= sym(2,a14);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a15G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"
-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0F*F-F+!\"$F/F0F0-%#T1
G6%F4,&F+!\"(F0F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-F>6%F4,&F+F7F,F0
F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-%#T0GFHF0F0*&)F(,*F,F0F*F-F+FEF/F0F0
-F>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6%F4,&F+F7FEF0F0F0F0*&)F(,(F
0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FinF0F0*&
F:F0-F>6%F[o,&F+F7F8F0F0F0F0*&FCF0-F>6%F[oFIF0F0F0*&)F(,*F/F,F,F0F*F-F
+FMF0-F26%F[o,&F+F7F0F0F0F0F8*&FQF0-F>FjnF0F8*&FUF0-F>6%F[oFenF0F0F8*&
FgnF0-F26%F/F6F0F0F8*&FKF0FioF0F0*&)F(,*F*F-F+FEF0F0F/F0F0F]pF0F0*&)F(
,*F*F-F+FFF/F0F,F0F0-F>6%F/FIF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-FOFcpF0
F8*&FgoF0-FO6%F/F[pF0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-FO6%F[o,&F+F7F.F0
F0F0F8*&)F(,*F,F0F*F-F+FXF/FEF0FGF0F8*&)F(,*FEF0F*F-F+FhqF/F.F0-FOFZF0
F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a16:= negate(2,a15);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16G,N*&)%\"qG,(*$%\"jG\"\"#\"#
@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*F,F0
F*F-F+\"\"$F/F0F0-%#T1G6%F4,&F+F7F0F0F0F0F8*&)F(,*F<F0F*F-F+\"#6F/F0F0
-F>6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-%#T0GFFF0F0*&F:F0-F
>F3F0F0*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F>6%F4,&F+F7F<F0F0F0F0*&)F(,(F0F
0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FenF0F0*&)F
(,*F,F0F*F-F+!\"$F/F0F0-F>6%Fgn,&F+F7F8F0F0F0F0*&FBF0-F>6%FgnFGF0F0F0*
&)F(,*F/F,F,F0F*F-F+FKF0-F26%FgnF@F0F0F8*&F:F0-F>FfnF0F8*&FQF0-F>6%Fgn
FWF0F0F8*&FYF0-F26%F/F6F0F0F8*&FIF0FhoF0F0*&)F(,*F*F-F+F<F0F0F/F0F0F[p
F0F0*&)F(,*F*F-F+FDF/F0F,F0F0-F>6%F/FGF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F
0-FMFapF0F8*&FfoF0-FM6%F/F@F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-FM6%Fgn,&
F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FTF/F<F0FEF0F8*&)F(,*F<F0F*F-F+FfqF/F.F
0-FMFVF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a17:= e0(5,a1
6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a17G,N*&)%\"qG,(*$%\"jG\"\"#
\"#@F+\"\"%%\"nGF,\"\"\"-%\"UG6%,&F/F0!\"#F0,$F+\"\"(F0F0!\"\"*&)F(,*
\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5
F/F,F0-%#T0GF@F0F0*&)F(,(F*F-F+!\"%F/F,F0-FGF3F0F0*&FCF0-FG6%F4,&F+F7F
0F0F0F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,(F
0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FfnF0F0*&
)F(,*F,F0F*F-F+!\"$F/F0F0-F?6%Fhn,&F+F7F8F0F0F0F0*&F:F0-F?6%FhnFAF0F0F
0*&)F(,*F/F,F,F0F*F-F+FEF0-F26%FhnFPF0F0F8*&)F(,*F,F0F*F-F+F<F/F0F0-F?
FgnF0F8*&FRF0-F?6%FhnFXF0F0F8*&FZF0-F26%F/F6F0F0F8*&FCF0FioF0F0*&)F(,*
F*F-F+F<F0F0F/F0F0F^pF0F0*&)F(,*F*F-F+F=F/F0F,F0F0-F?6%F/FAF0F0F0*&)F(
,*F*F-F+FKF0F0F/F,F0-FGFdpF0F8*&FgoF0-FG6%F/FPF0F0F0*&)F(,*F*F-F+\"#CF
7F0F/F,F0-FG6%Fhn,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FUF/F<F0F>F0F8*&)F(,
*F<F0F*F-F+FhqF/F.F0-FGFWF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 20 "a18:= splitU(1,a17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a18G,
P*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,$F
+\"\"(F0F0!\"\"*&F'F0-F26%F4,&F+F7F0F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/
F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2FDF0F0*&)F
(,(F*F-F+!\"%F/F,F0F1F0F0*&FGF0F:F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-FC
6%F4,&F+F7F@F0F0F0F0*&)F(,(F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0F6F0F0F0*&)
F(,*F/F,F0F0F*F-F+F.F0FenF0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-FC6%Fhn,&F+F7
F8F0F0F0F0*&F>F0-FC6%FhnFEF0F0F0*&)F(,*F/F,F,F0F*F-F+FIF0-Ffn6%FhnF<F0
F0F8*&)F(,*F,F0F*F-F+F@F/F0F0-FCFgnF0F8*&FQF0-FC6%FhnFWF0F0F8*&FYF0-Ff
n6%F/F6F0F0F8*&FGF0FioF0F0*&)F(,*F*F-F+F@F0F0F/F0F0F^pF0F0*&)F(,*F*F-F
+FAF/F0F,F0F0-FC6%F/FEF0F0F0*&)F(,*F*F-F+FNF0F0F/F,F0-F2FdpF0F8*&FgoF0
-F26%F/F<F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%Fhn,&F+F7F.F0F0F0F8*&)F
(,*F,F0F*F-F+FTF/F@F0FBF0F8*&)F(,*F@F0F*F-F+FhqF/F.F0-F2FVF0F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a19:=negate(1,a18);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a19G,P*&)%\"qG,(*$%\"jG\"\"#\"#@F+!
\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,$F+!\"(F0F0!\"\"*&)F(,(F*F-F+\"\"
%F/F,F0-F26%F4,&F+\"\"(F0F0F0F0F8*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6
%F4,&F+F@F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2FHF0F0*&F'F0-F26%F4,$
F+F@F0F0F0*&FKF0F=F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-FG6%F4,&F+F@FDF0F
0F0F0*&)F(,(F0F0F*F-F+F<F0-%\"UG6%,&F/F0F8F0FRF0F0F0*&)F(,*F/F,F0F0F*F
-F+F<F0FinF0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-FG6%F\\o,&F+F@F8F0F0F0F0*&FB
F0-FG6%F\\oFIF0F0F0*&)F(,*F/F,F,F0F*F-F+FMF0-Fjn6%F\\oF?F0F0F8*&)F(,*F
,F0F*F-F+FDF/F0F0-FGF[oF0F8*&FUF0-FG6%F\\oFenF0F0F8*&FgnF0-Fjn6%F/FRF0
F0F8*&FKF0F]pF0F0*&)F(,*F*F-F+FDF0F0F/F0F0FbpF0F0*&)F(,*F*F-F+FEF/F0F,
F0F0-FG6%F/FIF0F0F0*&)F(,*F*F-F+F.F0F0F/F,F0-F2FhpF0F8*&F[pF0-F26%F/F?
F0F0F0*&)F(,*F*F-F+\"#CF@F0F/F,F0-F26%F\\o,&F+F@F<F0F0F0F8*&)F(,*F,F0F
*F-F+FXF/FDF0FFF0F8*&)F(,*FDF0F*F-F+F\\rF/F<F0-F2FZF0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a20:=sym(1,a19);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$a20G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"
\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/
F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FC
F0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,(F0
F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0,$F+F7F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0FSF
0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-F?6%FV,&F+F7F8F0F0F0F0*&F:F0-F?6%FVFAF0
F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&)F(,*F,F0F*F-F+F<F/F0F0-
F?FUF0F8*&FIF0-F?6%FVFOF0F0F8*&FQF0-FT6%F/FWF0F0F8*&FCF0FboF0F0*&)F(,*
F*F-F+F<F0F0F/F0F0FgoF0F0*&)F(,*F*F-F+F=F/F0F,F0F0-F?6%F/FAF0F0F0*&)F(
,*F*F-F+!\"%F0F0F/F,F0-F2F]pF0F8*&F`oF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#
CF7F0F/F,F0-F26%FV,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(
,*F<F0F*F-F+FbqF/F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 18 "a21:= eU1(13,a20);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a21G,
N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F
+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F
0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F
-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG6%,
&F/F0F8F0,$F+F7F0F0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-F?6%FV,&F+F7F8F0F0F0F
0*&F:F0-F?6%FVFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&)F(,*F
,F0F*F-F+F<F/F0F0-F?FUF0F8*&FIF0-F?6%FVFOF0F0F8*&F'F0FSF0F8*&)F(,*F*F-
F+FenF/F0F0F0F0FfnF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FjnF0F8*&FCF0F_oF0F0*&)
F(,*F*F-F+F<F0F0F/F0F0FdoF0F0*&F]pF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+!\"%F0
F0F/F,F0-F26%F/FWF0F0F8*&F]oF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,
F0-F26%FV,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F
-F+FbqF/F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a2
2:= negate(13,a21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a22G,N*&)%\"
qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F
0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&
)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<
F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8
F0,$F+F7F0F0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-F?6%FV,&F+F7F8F0F0F0F0*&F:F0
-F?6%FVFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&)F(,*F,F0F*F-
F+F<F/F0F0-F?FUF0F8*&FIF0-F?6%FVFOF0F0F8*&F'F0FSF0F8*&)F(,*F*F-F+F<F0F
0F/F0F0-F?6%FV,&F+!\"(F8F0F0F0F8*&)F(,*F*F-F+F=F/F0F,F0F0FjnF0F8*&FCF0
F_oF0F0*&FjoF0FdoF0F0*&FapF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0
-F26%F/FWF0F0F8*&F]oF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%F
V,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FdqF/
F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a23:= sym(
13,a22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a23G,N*&)%\"qG,(*$%\"jG
\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"
\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F
*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6
%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0,$F+F7F0
F0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-F?6%FV,&F+F7F8F0F0F0F0*&F:F0-F?6%FVFAF
0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&)F(,*F,F0F*F-F+F<F/F0F0
-F?FUF0F8*&FIF0-F?6%FVFOF0F0F8*&F'F0FSF0F8*&)F(,*F*F-F+F<F0F0F/F0F0-F?
F`oF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FjnF0F8*&FCF0F_oF0F0*&FjoF0FdoF0F0*&F^
pF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-F26%F/FWF0F0F8*&F]oF0-F2
6%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FV,&F+F7F.F0F0F0F8*&)F(,*F
,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FaqF/F.F0-F2FNF0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a24:= e0(16,a23);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a24G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"
\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6
F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&
FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*
F/F,F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0,$F+F7F0F0F0*&)F(,*F,F0F*F-F+!\"$F
/F0F0-F?6%FV,&F+F7F8F0F0F0F0*&F:F0-F?6%FVFAF0F0F0*&)F(,*F/F,F,F0F*F-F+
FEF0-FT6%FVF6F0F0F8*&)F(,*F,F0F*F-F+F<F/F0F0-F?FUF0F8*&FIF0-F?6%FVFOF0
F0F8*&F'F0FSF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FjnF0F8*&FCF0F_oF0F0*&)F(,(F*
F-F+!\"%F/F,F0-F2FUF0F0*&FCF0-F2F`oF0F8*&FjoF0-F?6%F/FAF0F0F0*&)F(,*F*
F-F+F`pF0F0F/F,F0-F26%F/FWF0F0F8*&F]oF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#
CF7F0F/F,F0-F26%FV,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(
,*F<F0F*F-F+FbqF/F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "a25:= splitU(14,a24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a2
5G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0
,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,
F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0
F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG
6%,&F/F0F8F0,$F+F7F0F0F0*&)F(,*F,F0F*F-F+!\"$F/F0F0-F?6%FV,&F+F7F8F0F0
F0F0*&F:F0-F?6%FVFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&)F(
,*F,F0F*F-F+F<F/F0F0-F?FUF0F8*&FIF0-F?6%FVFOF0F0F8*&F'F0FSF0F8*&)F(,*F
*F-F+F=F/F0F,F0F0FjnF0F8*&FCF0-F2F[oF0F0*&)F(,(F*F-F+!\"%F/F,F0-F2FUF0
F0*&FjoF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+FapF0F0F/F,F0-F26%F/FWF0F0F8*&F]o
F0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FV,&F+F7F.F0F0F0F8*&)
F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FaqF/F.F0-F2FNF0F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a26:= negate(7,a25);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a26G,L*&)%\"qG,(*$%\"jG\"\"#\"#@F+
\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"
\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/
F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<
F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0,$F+F7F0F0F0*&)F(,*
F,F0F*F-F+F<F/F0F0-F?6%FV,&F+!\"(F8F0F0F0F0*&F:F0-F?6%FVFAF0F0F0*&)F(,
*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&FYF0-F?FUF0F8*&FIF0-F?6%FVFOF0F0F8
*&F'F0FSF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FjnF0F8*&FCF0-F2F[oF0F0*&)F(,(F*F
-F+!\"%F/F,F0-F2FUF0F0*&FhoF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+F_pF0F0F/F,F0
-F26%F/FWF0F0F8*&F]oF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%F
V,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+F_qF/
F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a27:= sym(
7,a26);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,L*&)%\"qG,(*$%\"jG
\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"
\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F
*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6
%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0,$F+F7F0
F0F0*&)F(,*F,F0F*F-F+F<F/F0F0-F?6%FVF6F0F0F0*&F:F0-F?6%FVFAF0F0F0*&)F(
,*F/F,F,F0F*F-F+FEF0-FTFfnF0F8*&FYF0-F?FUF0F8*&FIF0-F?6%FVFOF0F0F8*&F'
F0FSF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FhnF0F8*&FCF0-F2FinF0F0*&)F(,(F*F-F+!
\"%F/F,F0-F2FUF0F0*&FeoF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+F\\pF0F0F/F,F0-F2
6%F/FWF0F0F8*&F[oF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FV,&
F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+F\\qF/F.
F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a28:= e0(10,
a27);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a28G,L*&)%\"qG,(*$%\"jG\"
\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*
&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-
F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4
,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-%\"UG6%,&F/F0F8F0,$F+F7F0F0F
0*&F:F0-F?6%FVFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-FT6%FVF6F0F0F8*&)F(,*F
*F-F+!\"%F0F0F/F,F0-F2FUF0F8*&FfnF0-F2FinF0F0*&FIF0-F?6%FVFOF0F0F8*&F'
F0FSF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FYF0F8*&FCF0-F2FZF0F0*&)F(,(F*F-F+F]o
F/F,F0F^oF0F0*&FfoF0-F?6%F/FAF0F0F0*&F[oF0-F26%F/FWF0F0F8*&FfnF0-F26%F
/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FV,&F+F7F.F0F0F0F8*&)F(,*F,F0
F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FipF/F.F0-F2FNF0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a29:= splitU(6,a28);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%$a29G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF
,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+
\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0
F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)
F(,*F/F,F0F0F*F-F+F.F0-F26%,&F/F0F8F0,$F+F7F0F0F0*&FQF0-F26%FUF6F0F0F0
*&F:F0-F?6%FUFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-%\"UGFYF0F8*&)F(,*F*F-F
+!\"%F0F0F/F,F0FSF0F8*&FhnF0FXF0F0*&FIF0-F?6%FUFOF0F0F8*&F'F0-F[oFTF0F
8*&)F(,*F*F-F+F=F/F0F,F0F0FenF0F8*&FCF0-F2FfnF0F0*&)F(,(F*F-F+F_oF/F,F
0FSF0F0*&FgoF0-F?6%F/FAF0F0F0*&F]oF0-F26%F/FVF0F0F8*&FhnF0-F26%F/F6F0F
0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FU,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+
FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FjpF/F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 20 "a30:= negate(6,a29);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a30G,N*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"
-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0
F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0
F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*F*F-
F+!\"%F0F0F/F,F0-F26%,&F/F0F8F0,$F+!\"(F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0
-F26%FVF6F0F0F0*&F:F0-F?6%FVFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-%\"UGFgn
F0F8*&FQF0-F26%FV,$F+F7F0F0F8*&F\\oF0FfnF0F0*&FIF0-F?6%FVFOF0F0F8*&F'F
0-F_oFboF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FinF0F8*&FCF0-F2FjnF0F0*&)F(,(F*F
-F+FSF/F,F0FaoF0F0*&F[pF0-F?6%F/FAF0F0F0*&FQF0-F26%F/FcoF0F0F8*&F\\oF0
-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FV,&F+F7F.F0F0F0F8*&)F(
,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+F^qF/F.F0-F2FNF0F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a31:= sym(6,a30);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a31G,J*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%
\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*
F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2
F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F
0*&)F(,*F/F,F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&F:F0-F?6%FUFAF0F0F0
*&)F(,*F/F,F,F0F*F-F+FEF0-%\"UGFTF0F8*&FZF0FSF0F0*&FIF0-F?6%FUFOF0F0F8
*&F'F0-Fgn6%FU,$F+F7F0F0F8*&)F(,*F*F-F+F=F/F0F,F0F0FWF0F8*&FCF0-F2FXF0
F0*&)F(,(F*F-F+!\"%F/F,F0-F2F^oF0F0*&FaoF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+
FhoF0F0F/F,F0-F26%F/F_oF0F0F8*&FZF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F
0F/F,F0-F26%FU,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<
F0F*F-F+FhpF/F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
21 "a32:= negate(14,a31);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a32G,J
*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+
\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0
F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-
F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-F26%,&F/F
0F8F0F6F0F0F0*&F:F0-F?6%FUFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-%\"UGFTF0F
8*&FZF0FSF0F0*&FIF0-F?6%FUFOF0F0F8*&F'F0-Fgn6%FU,$F+F7F0F0F8*&)F(,*F*F
-F+F=F/F0F,F0F0FWF0F8*&FCF0-F2FXF0F0*&F'F0-F26%FU,$F+!\"(F0F0F0*&FaoF0
-F?6%F/FAF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-F26%F/F_oF0F0F8*&FZF0-F26%F
/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FU,&F+F7F.F0F0F0F8*&)F(,*F,F0
F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FipF/F.F0-F2FNF0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a33:= sym(14,a32);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$a33G,J*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,
\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"
#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0
*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(
,*F/F,F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&F:F0-F?6%FUFAF0F0F0*&)F(,
*F/F,F,F0F*F-F+FEF0-%\"UGFTF0F8*&FZF0FSF0F0*&FIF0-F?6%FUFOF0F0F8*&F'F0
-Fgn6%FU,$F+F7F0F0F8*&)F(,*F*F-F+F=F/F0F,F0F0FWF0F8*&FCF0-F2FXF0F0*&F'
F0-F2F^oF0F0*&FaoF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-F26%F/F_
oF0F0F8*&FZF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FU,&F+F7F.
F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FfpF/F.F0-F2FN
F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a34:= splitU(11,a33
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a34G,H*&)%\"qG,(*$%\"jG\"\"#
\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F
(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+
\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&
F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&F:F0-F
?6%FUFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-%\"UGFTF0F8*&FZF0FSF0F0*&FIF0-F
?6%FUFOF0F0F8*&F'F0FSF0F8*&)F(,*F*F-F+F=F/F0F,F0F0FWF0F8*&FCF0-F2FXF0F
0*&F^oF0-F?6%F/FAF0F0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-F26%F/,$F+F7F0F0F8*
&FZF0-F26%F/F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FU,&F+F7F.F0F0F0F8
*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+FbpF/F.F0-F2FNF0F8" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a35:= eT1(14,a34);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a35G,D*&)%\"qG,(*$%\"jG\"\"#\"#@F+
\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"
\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/
F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<
F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.F0-F26%,&F/F0F8F0F6F0F0F0*&F:F0-F?6%FUF
AF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF0-%\"UGFTF0F8*&FZF0FSF0F0*&FIF0-F?6%FUF
OF0F0F8*&FCF0-F2FXF0F0*&)F(,*F*F-F+\"#=F/F,F.F0F0-F2F[oF0F0*&)F(,*F*F-
F+!\"%F0F0F/F,F0-F26%F/,$F+F7F0F0F8*&FZF0-F26%F/F6F0F0F0*&)F(,*F*F-F+
\"#CF7F0F/F,F0-F26%FU,&F+F7F.F0F0F0F8*&)F(,*F,F0F*F-F+FLF/F<F0F>F0F8*&
)F(,*F<F0F*F-F+F`pF/F.F0-F2FNF0F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a36:= splitU(8,a35);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a36G,B*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"\"%%\"nGF,\"\"\"-%#T0G6%,&F/
F0!\"#F0,&F+\"\"(F0F0F0F0!\"\"*&)F(,*\"\"$F0F*F-F+\"#6F/F0F0-%#T1G6%F4
,&F+F7F,F0F0F0F8*&)F(,*F0F0F*F-F+\"#5F/F,F0-F2F@F0F0*&FCF0F1F0F8*&)F(,
*\"\"&F0F*F-F+\"#<F/F0F0-F?6%F4,&F+F7F<F0F0F0F0*&)F(,*F/F,F0F0F*F-F+F.
F0-F26%,&F/F0F8F0F6F0F0F0*&F:F0-F?6%FUFAF0F0F0*&)F(,*F/F,F,F0F*F-F+FEF
0-F2FXF0F8*&FIF0-F?6%FUFOF0F0F8*&FCF0FfnF0F0*&)F(,*F*F-F+\"#=F/F,F.F0F
0-F2FinF0F0*&)F(,*F*F-F+!\"%F0F0F/F,F0-F26%F/,$F+F7F0F0F8*&FZF0-F26%F/
F6F0F0F0*&)F(,*F*F-F+\"#CF7F0F/F,F0-F26%FU,&F+F7F.F0F0F0F8*&)F(,*F,F0F
*F-F+FLF/F<F0F>F0F8*&)F(,*F<F0F*F-F+F]pF/F.F0-F2FNF0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a37:= eT1(7,a36);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a37G,>*&)%\"qG,*\"\"\"F**$%\"jG\"\"#\"#@F,\"#5%\"
nGF-F*-%#T0G6%,&F0F*!\"#F*,&F,\"\"(F-F*F*F*F**&F'F*-F26%F4,&F,F7F*F*F*
F*!\"\"*&)F(,*\"\"&F*F+F.F,\"#<F0F*F*-%#T1G6%F4,&F,F7\"\"$F*F*F*F**&)F
(,*F0F-F*F*F+F.F,\"\"%F*-F26%,&F0F*F<F*F;F*F*F**&)F(,*F+F.F,\"#=F0F-FJ
F*F*-F2FDF*F**&)F(,*F0F-F-F*F+F.F,F/F*-F26%FMF6F*F*F<*&F>F*-FC6%FMFEF*
F*F<*&F'F*FVF*F**&FOF*-F2FZF*F**&)F(,*F+F.F,!\"%F*F*F0F-F*-F26%F0,$F,F
7F*F*F<*&FTF*-F26%F0F;F*F*F**&)F(,*F+F.F,\"#CF7F*F0F-F*-F26%FM,&F,F7FJ
F*F*F*F<*&)F(,*F-F*F+F.F,FAF0FFF*-FCF3F*F<*&)F(,*FFF*F+F.F,FeoF0FJF*FR
F*F<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a38:= sym(11,a37);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a38G,>*&)%\"qG,*\"\"\"F**$%\"jG
\"\"#\"#@F,\"#5%\"nGF-F*-%#T0G6%,&F0F*!\"#F*,&F,\"\"(F-F*F*F*F**&F'F*-
F26%F4,&F,F7F*F*F*F*!\"\"*&)F(,*\"\"&F*F+F.F,\"#<F0F*F*-%#T1G6%F4,&F,F
7\"\"$F*F*F*F**&)F(,*F0F-F*F*F+F.F,\"\"%F*-F26%,&F0F*F<F*F;F*F*F**&)F(
,*F+F.F,\"#=F0F-FJF*F*-F2FDF*F**&)F(,*F0F-F-F*F+F.F,F/F*-F26%FMF6F*F*F
<*&F>F*-FC6%FMFEF*F*F<*&F'F*FVF*F**&FOF*-F2FZF*F**&)F(,*F+F.F,!\"%F*F*
F0F-F*-F26%F0,$F,F7F*F*F<*&FTF*-F26%F0,&F,!\"(F<F*F*F*F**&)F(,*F+F.F,
\"#CF7F*F0F-F*-F26%FM,&F,F7FJF*F*F*F<*&)F(,*F-F*F+F.F,FAF0FFF*-FCF3F*F
<*&)F(,*FFF*F+F.F,FgoF0FJF*FRF*F<" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "a39:= eT0(11,a38);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$a39G,B*&)%\"qG,*\"\"\"F**$%\"jG\"\"#\"#@F,\"#5%\"nGF-F*-%#T0G6%,&F
0F*!\"#F*,&F,\"\"(F-F*F*F*F**&F'F*-F26%F4,&F,F7F*F*F*F*!\"\"*&)F(,*\"
\"&F*F+F.F,\"#<F0F*F*-%#T1G6%F4,&F,F7\"\"$F*F*F*F**&)F(,*F0F-F*F*F+F.F
,\"\"%F*-F26%,&F0F*F<F*F;F*F*F**&)F(,*F+F.F,\"#=F0F-FJF*F*-F2FDF*F**&)
F(,*F0F-F-F*F+F.F,F/F*-F26%FMF6F*F*F<*&F>F*-FC6%FMFEF*F*F<*&F'F*FVF*F*
*&FOF*-F2FZF*F**&)F(,*F+F.F,!\"%F*F*F0F-F*-F26%F0,$F,F7F*F*F<*&FTF*-F2
6%FM,&F,!\"(F5F*F*F*F**&)F(,*F0FFF*F*F+F.F,FFF*-FC6%FM,&F,FcoF<F*F*F*F
**&)F(,(F0FJF+F.F,F[oF*-F26%FM,$F,FcoF*F*F**&)F(,*F+F.F,\"#CF7F*F0F-F*
-F26%FM,&F,F7FJF*F*F*F<*&)F(,*F-F*F+F.F,FAF0FFF*-FCF3F*F<*&)F(,*FFF*F+
F.F,FcpF0FJF*FRF*F<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a40:
=sym(11,a39);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a40G,>*&)%\"qG,*\"
\"\"F**$%\"jG\"\"#\"#@F,\"#5%\"nGF-F*-%#T0G6%,&F0F*!\"#F*,&F,\"\"(F-F*
F*F*F**&F'F*-F26%F4,&F,F7F*F*F*F*!\"\"*&)F(,*\"\"&F*F+F.F,\"#<F0F*F*-%
#T1G6%F4,&F,F7\"\"$F*F*F*F**&)F(,*F0F-F*F*F+F.F,\"\"%F*-F26%,&F0F*F<F*
F;F*F*F**&)F(,*F+F.F,\"#=F0F-FJF*F*-F2FDF*F**&F>F*-FC6%FMFEF*F*F<*&F'F
*-F26%FMF6F*F*F**&FOF*-F2FUF*F**&)F(,*F+F.F,!\"%F*F*F0F-F*-F26%F0,$F,F
7F*F*F<*&)F(,*F0FFF*F*F+F.F,FFF*-FC6%FM,&F,!\"(F<F*F*F*F**&)F(,(F0FJF+
F.F,FhnF*-F26%FM,$F,FboF*F*F**&)F(,*F+F.F,\"#CF7F*F0F-F*-F26%FM,&F,F7F
JF*F*F*F<*&)F(,*F-F*F+F.F,FAF0FFF*-FCF3F*F<*&)F(,*FFF*F+F.F,F\\pF0FJF*
FRF*F<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a41:= eT1(6,a40);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a41G,:*&)%\"qG,*\"\"\"F**$%\"jG
\"\"#\"#@F,\"#5%\"nGF-F*-%#T0G6%,&F0F*!\"#F*,&F,\"\"(F*F*F*F*!\"\"*&)F
(,*F0F-F*F*F+F.F,\"\"%F*-F26%,&F0F*F8F*F6F*F*F**&)F(,*F+F.F,\"#=F0F-F<
F*F*-F26%F4,&F,F7\"\"$F*F*F*F**&)F(,*F+F.F,\"#CF7F*F0F-F*-F26%F4,&F,F7
F<F*F*F*F8*&F'F*-F26%F?,&F,F7F-F*F*F*F**&FAF*-F26%F?FFF*F*F**&)F(,*F+F
.F,!\"%F*F*F0F-F*-F26%F0,$F,F7F*F*F8*&)F(,*F0FGF*F*F+F.F,FGF*-%#T1G6%F
?,&F,!\"(F8F*F*F*F**&)F(,(F0F<F+F.F,FYF*-F26%F?,$F,F^oF*F*F**&FIF*-F26
%F?FNF*F*F8*&)F(,*F-F*F+F.F,\"#<F0FGF*-F[o6%F4FRF*F*F8*&)F(,*FGF*F+F.F
,FKF0F<F*FDF*F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a42:= eT
0(5,a41);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a42G,2*&)%\"qG,*%\"nG
\"\"#\"\"\"F,*$%\"jGF+\"#@F.\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F
,F,F,*&)F(,*F-F/F.\"#=F*F+F0F,F,-F26%,&F*F,!\"#F,,&F.F7\"\"$F,F,F,F,*&
)F(,*F-F/F.\"#CF7F,F*F+F,-F26%F>,&F.F7F0F,F,F,F5*&F9F,-F26%F4F@F,F,F,*
&)F(,*F-F/F.!\"%F,F,F*F+F,-F26%F*,$F.F7F,F,F5*&)F(,*F*FAF,F,F-F/F.FAF,
-%#T1G6%F4,&F.!\"(F5F,F,F,F,*&)F(,(F*F0F-F/F.FOF,-F26%F4,$F.FZF,F,F,*&
FCF,-F26%F4FHF,F,F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#####
####" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a43:= eT0(5,a42);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a43G,6*&)%\"qG,*%\"nG\"\"#\"\"\"F
,*$%\"jGF+\"#@F.\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*
F-F/F.\"#=F*F+F0F,F,-F26%,&F*F,!\"#F,,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.
\"#CF7F,F*F+F,-F26%F>,&F.F7F0F,F,F,F5*&F9F,-F26%F4F@F,F,F,*&)F(,*F-F/F
.!\"%F,F,F*F+F,-F26%F4,&F.F7F5F,F,F,F5*&)F(,*F*FAF,F,F-F/F.FAF,-%#T1G6
%F4,$F.F7F,F,F5*&)F(,*F-F/F.\"#5F,F,F*F0F,F1F,F5*&FTF,-FW6%F4,&F.!\"(F
5F,F,F,F,*&)F(,(F*F0F-F/F.FOF,-F26%F4,$F.F\\oF,F,F,*&FCF,-F26%F4FHF,F,
F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a44:= sym(8,a43);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a44G,6*&)%\"qG,*%\"nG\"\"#\"\"\"F,*
$%\"jGF+\"#@F.\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-
F/F.\"#=F*F+F0F,F,-F26%,&F*F,!\"#F,,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.\"#
CF7F,F*F+F,-F26%F>,&F.F7F0F,F,F,F5*&F9F,-F26%F4F@F,F,F,*&)F(,*F-F/F.!
\"%F,F,F*F+F,-F26%F4,&F.F7F5F,F,F,F5*&)F(,*F*FAF,F,F-F/F.FAF,-%#T1G6%F
4,$F.F7F,F,F5*&)F(,*F-F/F.\"#5F,F,F*F0F,F1F,F5*&FTF,-FWF3F,F,*&)F(,(F*
F0F-F/F.FOF,-F26%F4,$F.!\"(F,F,F,*&FCF,-F26%F4FHF,F,F5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a45:= e0(6,a44);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$a45G,2*&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jGF+\"#@F.
\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.\"#=F*F+F0
F,F,-F26%,&F*F,!\"#F,,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.\"#CF7F,F*F+F,-F2
6%F>,&F.F7F0F,F,F,F5*&F9F,-F26%F4F@F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+F,-F
26%F4,&F.F7F5F,F,F,F5*&)F(,(F*F0F-F/F.FOF,-F26%F4,$F.F7F,F,F5*&FTF,-F2
6%F4,$F.!\"(F,F,F,*&FCF,-F26%F4FHF,F,F5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a46:= sym(7,a45);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a46G,.*&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jGF+\"#@F.\"\"%F,-%#T0G6%,&F
*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.\"#=F*F+F0F,F,-F26%,&F*F,!\"
#F,,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.\"#CF7F,F*F+F,-F26%F>,&F.F7F0F,F,F,
F5*&F9F,-F26%F4F@F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+F,-F26%F4,&F.F7F5F,F,F
,F5*&FCF,-F26%F4FHF,F,F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 
"a47:= shiftdown(3,a46);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a47G,.*
&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jGF+\"#@F.\"\"%F,-%#T0G6%,&F*F,!\"\"F,
,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.\"#=F*F+F0F,F,-F26%,&F*F,!\"#F,,&F.F7
\"\"$F,F,F,F,*&)F(,*F-F/F.!#=F0F,F*F+F,-F26%F>,&F.F7!\"$F,F,F,F5*&F9F,
-F26%F4F@F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+F,-F26%F4,&F.F7F5F,F,F,F5*&)F(
,*F-F/F.\"#CF7F,F*F+F,-F26%F4,&F.F7F0F,F,F,F5" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 20 "a48:= negate(3,a47);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a48G,.*&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jGF+\"#@F.\"
\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.\"#=F*F+F0F,
F,-F26%,&F*F,!\"#F,,&F.F7\"\"$F,F,F,F,*&F9F,-F26%F>,&F.!\"(!\"$F,F,F,F
5*&F9F,-F26%F4F@F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+F,-F26%F4,&F.F7F5F,F,F,
F5*&)F(,*F-F/F.\"#CF7F,F*F+F,-F26%F4,&F.F7F0F,F,F,F5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "a49:=sym(3,a48);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a49G,**&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jGF+\"#@F.\"
\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.\"#=F*F+F0F,
F,-F26%F4,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+F,-F26%F4,&F.F7F5
F,F,F,F5*&)F(,*F-F/F.\"#CF7F,F*F+F,-F26%F4,&F.F7F0F,F,F,F5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a50:= shiftdown(4,a49);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a50G,**&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jG
F+\"#@F.\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.\"
#=F*F+F0F,F,-F26%F4,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+F,-F26%
F4,&F.F7F5F,F,F,F5*&)F(,*F-F/F.!#=F0F,F*F+F,-F26%F4,&F.F7!\"$F,F,F,F5
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a51:= negate(4,a50);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a51G,**&)%\"qG,*%\"nG\"\"#\"\"\"F,
*$%\"jGF+\"#@F.\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F
-F/F.\"#=F*F+F0F,F,-F26%F4,&F.F7\"\"$F,F,F,F,*&)F(,*F-F/F.!\"%F,F,F*F+
F,-F26%F4,&F.F7F5F,F,F,F5*&F9F,-F26%F4,&F.!\"(!\"$F,F,F,F5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a52:= sym(4,a51);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%$a52G,&*&)%\"qG,*%\"nG\"\"#\"\"\"F,*$%\"jGF+\"#@F.
\"\"%F,-%#T0G6%,&F*F,!\"\"F,,&F.\"\"(F,F,F,F,F,*&)F(,*F-F/F.!\"%F,F,F*
F+F,-F26%F4,&F.F7F5F,F,F,F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "a53:= negate(1,a52);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a53G,&*
&)%\"qG,**$%\"jG\"\"#\"#@F+!\"%\"\"\"F/%\"nGF,F/-%#T0G6%,&F0F/!\"\"F/,
&F+!\"(F/F/F/F/F/*&F'F/-F26%F4,&F+\"\"(F5F/F/F/F5" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 17 "a54:= sym(1,a53);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$a54G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }