{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 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 13 "######## 3.72" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 135 "op1:= annihiloper( q^(j^2) * qfac(-q,q^2,j) * qfac(q
^4,q^4,j-1) / qfac(q^2,q^2, j-1) / qfac( q^2,q^4,j) / spqfac(q^2,q^2,j
), 1, back); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op1G,,\"\"\"F&*&,(
*$%\"qG\"\"#F&F&F&)F*,&!\"\"F&%\"nGF+F&F&%\"NGF.F.*&)F*,&F/F+!\"#F&F&F
0F4F.*&,(*$F*\"\"%F.F)F.F,F.F&F0!\"$F.*&,&F7F&F2F.F&F0!\"%F." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "a1:= applyshiftop( op1, q^(8
*j^2 + 2*j) * U(n,4*j,1)); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,
6*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,(*$F/\"\"#\"\")F/
F5F0F,F,!\"\"*&F'F,)F2,*F4F6F/F5F+F5!\"#F,F,F,*&-F(6%,&F+F,!\"$F,F.F,F
,F1F,F,*&F=F,)F2,(F4F6F/F5F5F,F,F,*&F=F,)F2,*F4F6F/F5F7F,F+F5F,F,*&F9F
,-F(6%,&F+F,F;F,F.F,F,F7*&-F(6%,&F+F,F7F,F.F,F,FBF,F7*&)F2,&F4F6F/F5F,
FLF,F7*&FLF,FEF,F7*&FPF,-F(6%F+F.F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a2:= eU1(3,a1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a2G,8*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"#\"
\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/F5!\"$F,F+F5F,F'F,F,*&)F2,*F4F6F/F7F
,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2,*F4F6F/\"\"'F5F,F+F,F,-F@6
%F*,&F/F0F5F,F,F,F,*&-F(6%,&F+F,F;F,F.F,F,)F2,(F4F6F/F5F5F,F,F,*&FLF,)
F2,*F4F6F/F5FCF,F+F5F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,FC*&-F(6%,&F+F,FCF,
F.F,F,FOF,FC*&)F2,&F4F6F/F5F,FYF,FC*&FYF,FRF,FC*&FgnF,-F(6%F+F.F,F,F,
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a3:= eU1(11,a2);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,6*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,
$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/F5
!\"$F,F+F5F,F'F,F,*&)F2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,
F,*&)F2,*F4F6F/\"\"'F5F,F+F,F,-F@6%F*,&F/F0F5F,F,F,F,*&-F(6%,&F+F,F;F,
F.F,F,)F2,(F4F6F/F5F5F,F,F,*&FLF,)F2,*F4F6F/F5FCF,F+F5F,F,*&F1F,-F(6%,
&F+F,F7F,F.F,F,FC*&-F(6%,&F+F,FCF,F.F,F,FOF,FC*&)F2,(F4F6F/F7F+F,F,-F@
6%FenFBF,F,F,*&)F2,*F4F6F/FGF+F,F,F,F,-F@6%FenFJF,F,F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a4:= eU1(8,a3);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a4G,<*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,
)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/F5!\"$F,F+F5F,F'F
,F,*&)F2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2,*F4F6F/
\"\"'F5F,F+F,F,-F@6%F*,&F/F0F5F,F,F,F,*&-F(6%,&F+F,F;F,F.F,F,)F2,(F4F6
F/F5F5F,F,F,*&FLF,)F2,*F4F6F/F5FCF,F+F5F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,
FC*&FOF,FUF,FC*&FRF,FUF,FC*&F=F,-F@6%FWFBF,F,FC*&FEF,-F@6%FWFJF,F,FC*&
)F2,(F4F6F/F7F+F,F,-F@6%,&F+F,FCF,FBF,F,F,*&)F2,*F4F6F/FGF+F,F,F,F,-F@
6%F_oFJF,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a5:= eU1(8
, a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,>*&-%\"UG6%,&%\"nG\"
\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F
2,*F4F6F/F5!\"$F,F+F5F,F'F,F,*&)F2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0
!\"\"F,F,F,F,*&)F2,*F4F6F/\"\"'F5F,F+F,F,-F@6%F*,&F/F0F5F,F,F,F,*&-F(6
%,&F+F,F;F,F.F,F,)F2,*F4F6F/F5FCF,F+F5F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,F
C*&F9F,FLF,FC*&)F2,(F4F6F/F7F+F,F,-F@6%FNFBF,F,FC*&)F2,*F4F6F/FGF+F,F,
F,F,-F@6%FNFJF,F,FC*&FOF,FRF,FC*&F=F,-F@6%FTFBF,F,FC*&FEF,-F@6%FTFJF,F
,FC*&FWF,-F@6%,&F+F,FCF,FBF,F,F,*&FfnF,-F@6%FdoFJF,F,F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a6:= eU1(10,a5);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a6G,@*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,
)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/F5!\"$F,F+F5F,F'F
,F,*&)F2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2,*F4F6F/
\"\"'F5F,F+F,F,-F@6%F*,&F/F0F5F,F,F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,FC*&F
9F,-F(6%,&F+F,F;F,F.F,F,FC*&)F2,(F4F6F/F7F+F,F,-F@6%FRFBF,F,FC*&)F2,*F
4F6F/FGF+F,F,F,F,-F@6%FRFJF,F,FC*&)F2,*F4F6F/F5!\"'F,F+F0F,FPF,FC*&)F2
,*F4F6F/F7F;F,F+\"\"$F,FVF,FC*&)F2,*F4F6F/FGF7F,F+F^oF,FenF,FC*&F=F,-F
@6%FNFBF,F,FC*&FEF,-F@6%FNFJF,F,FC*&FTF,-F@6%,&F+F,FCF,FBF,F,F,*&FYF,-
F@6%F[pFJF,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a7:= eU1
(6,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a7G,B*&-%\"UG6%,&%\"nG\"
\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F
2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2,*F4F6F/\"\"'F5
F,F+F,F,-F<6%F*,&F/F0F5F,F,F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,F?*&)F2,*F4F
6F/F5!#5F,F+F0F,F'F,F?*&)F2,*F4F6F/F7!\"'F,F+\"\"$F,F;F,F?*&)F2,*F4F6F
/FC!\"&F,F+FSF,FDF,F?*&)F2,(F4F6F/F7F+F,F,-F<6%,&F+F,!\"$F,F>F,F,F?*&)
F2,*F4F6F/FCF+F,F,F,F,-F<6%FgnFFF,F,F?*&)F2,*F4F6F/F5FRF,F+F0F,-F(6%Fg
nF.F,F,F?*&)F2,*F4F6F/F7FhnF,F+FSF,FenF,F?*&)F2,*F4F6F/FCF7F,F+FSF,F\\
oF,F?*&F9F,-F<6%FJF>F,F,F?*&FAF,-F<6%FJFFF,F,F?*&FYF,-F<6%,&F+F,F?F,F>
F,F,F,*&FjnF,-F<6%FbpFFF,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "a8:= eT1(15,a7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a8G,F*&-%
\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F
5!\"#F,F,F,*&)F2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2
,*F4F6F/\"\"'F5F,F+F,F,-F<6%F*,&F/F0F5F,F,F,F,*&F1F,-F(6%,&F+F,F7F,F.F
,F,F?*&)F2,*F4F6F/F5!#5F,F+F0F,F'F,F?*&)F2,*F4F6F/F7!\"'F,F+\"\"$F,F;F
,F?*&)F2,*F4F6F/FC!\"&F,F+FSF,FDF,F?*&)F2,(F4F6F/F7F+F,F,-F<6%,&F+F,!
\"$F,F>F,F,F?*&)F2,*F4F6F/FCF+F,F,F,F,-F<6%FgnFFF,F,F?*&)F2,*F4F6F/F5F
RF,F+F0F,-F(6%FgnF.F,F,F?*&)F2,*F4F6F/F7FhnF,F+FSF,FenF,F?*&)F2,*F4F6F
/FCF7F,F+FSF,F\\oF,F?*&F9F,-F<6%FJF>F,F,F?*&FAF,-F<6%FJFFF,F,F?*&FYF,F
joF,F,*&F1F,-%#T0GFIF,F,*&)F2,(F4F6F/FRF+F5F,-Fbp6%FJ,&F/F0F7F,F,F,F,*
&FjnF,-F<6%,&F+F,F?F,FFF,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "a9:= eT1(15,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,F*&-%
\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F
5!\"#F,F,F,*&)F2,*F4F6F/F7F,F,F+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2
,*F4F6F/\"\"'F5F,F+F,F,-F<6%F*,&F/F0F5F,F,F,F,*&F1F,-F(6%,&F+F,F7F,F.F
,F,F?*&)F2,*F4F6F/F5!#5F,F+F0F,F'F,F?*&)F2,*F4F6F/F7!\"'F,F+\"\"$F,F;F
,F?*&)F2,*F4F6F/FC!\"&F,F+FSF,FDF,F?*&)F2,*F4F6F/FCF+F,F,F,F,-F<6%,&F+
F,!\"$F,FFF,F,F?*&)F2,*F4F6F/F5FRF,F+F0F,-F(6%FgnF.F,F,F?*&)F2,*F4F6F/
F7FhnF,F+FSF,-F<6%FgnF>F,F,F?*&)F2,*F4F6F/FCF7F,F+FSF,FenF,F?*&F9F,-F<
6%FJF>F,F,F?*&FAF,-F<6%FJFFF,F,F?*&)F2,*F4F6F/F5FhnF,F+F5F,-%#T0GF]oF,
F,*&)F2,*F4F6F/FRF+F5F?F,F,-F`p6%Fgn,&F/F0F7F,F,F,F,*&F1F,-F`pFIF,F,*&
)F2,(F4F6F/FRF+F5F,-F`p6%FJFfpF,F,F,*&FYF,-F<6%,&F+F,F?F,FFF,F,F," }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a10:= eT1(12,a9);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a10G,J*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"j
G\"\"%F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/F7F,F,F
+F,F,-%#T1G6%F*,&F/F0!\"\"F,F,F,F,*&)F2,*F4F6F/\"\"'F5F,F+F,F,-F<6%F*,
&F/F0F5F,F,F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,F?*&)F2,*F4F6F/F5!#5F,F+F0F,
F'F,F?*&)F2,*F4F6F/F7!\"'F,F+\"\"$F,F;F,F?*&)F2,*F4F6F/FC!\"&F,F+FSF,F
DF,F?*&)F2,*F4F6F/FCF+F,F,F,F,-F<6%,&F+F,!\"$F,FFF,F,F?*&)F2,*F4F6F/F5
FRF,F+F0F,-F(6%FgnF.F,F,F?*&)F2,*F4F6F/F7FhnF,F+FSF,-F<6%FgnF>F,F,F?*&
)F2,*F4F6F/FCF7F,F+FSF,FenF,F?*&F9F,FaoF,F?*&F1F,-%#T0GF]oF,F?*&)F2,(F
4F6F/FRF+F5F,-Fio6%Fgn,&F/F0F7F,F,F,F?*&FAF,-F<6%FJFFF,F,F?*&)F2,*F4F6
F/F5FhnF,F+F5F,FhoF,F,*&)F2,*F4F6F/FRF+F5F?F,F,F]pF,F,*&F1F,-FioFIF,F,
*&F[pF,-Fio6%FJF_pF,F,F,*&FYF,-F<6%,&F+F,F?F,FFF,F,F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a11:= eT1(12,a10);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$a11G,J*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%
F,F,)%\"qG,**$F/\"\"#\"\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/\"\"'F5F,F+F,
F,-%#T1G6%F*,&F/F0F5F,F,F,F,*&F1F,-F(6%,&F+F,F7F,F.F,F,!\"\"*&)F2,*F4F
6F/F5!#5F,F+F0F,F'F,FD*&)F2,*F4F6F/F7!\"'F,F+\"\"$F,-F=6%F*,&F/F0FDF,F
,F,FD*&)F2,*F4F6F/F;!\"&F,F+FMF,F<F,FD*&)F2,*F4F6F/F;F+F,F,F,F,-F=6%,&
F+F,!\"$F,F?F,F,FD*&)F2,*F4F6F/F5FLF,F+F0F,-F(6%FZF.F,F,FD*&)F2,*F4F6F
/F7FenF,F+FMF,-F=6%FZFPF,F,FD*&)F2,*F4F6F/F;F7F,F+FMF,FXF,FD*&)F2,*F4F
6F/F5FenF,F+F5F,-%#T0GF)F,FD*&)F2,*F4F6F/FLF+F5FDF,F,-Fgo6%F*,&F/F0F7F
,F,F,FD*&F1F,-FgoFjnF,FD*&)F2,(F4F6F/FLF+F5F,-Fgo6%FZF]pF,F,FD*&F9F,-F
=6%FCF?F,F,FD*&FdoF,F_pF,F,*&FioF,FcpF,F,*&F1F,-FgoFBF,F,*&FapF,-Fgo6%
FCF]pF,F,F,*&FVF,-F=6%,&F+F,FDF,F?F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a12:= eU1(3,a11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a12G,P*&-%\"UG6%,&%\"nG\"\"\"!\"%F,,$%\"jG\"\"%F,F,)%\"qG,**$F/\"\"
#\"\")F/F5F+F5!\"#F,F,F,*&)F2,*F4F6F/\"\"'F5F,F+F,F,-%#T1G6%F*,&F/F0F5
F,F,F,F,*&F1F,-F(6%,&F+F,!\"$F,F.F,F,!\"\"*&)F2,*F4F6F/F5F+F0!\"(F,F,F
AF,FE*&)F2,*F4F6F/F7F+\"\"$F-F,F,-F=6%FC,&F/F0FEF,F,F,FE*&)F2,*F4F6F/F
;F+FMFDF,F,-F=6%FCF?F,F,FE*&)F2,*F4F6F/F5!#5F,F+F0F,F'F,FE*&)F2,*F4F6F
/F7!\"'F,F+FMF,-F=6%F*FPF,F,FE*&)F2,*F4F6F/F;!\"&F,F+FMF,F<F,FE*&)F2,*
F4F6F/F;F+F,F,F,F,FTF,FE*&)F2,*F4F6F/F5FgnF,F+F0F,FAF,FE*&)F2,*F4F6F/F
7FDF,F+FMF,FNF,FE*&)F2,*F4F6F/F;F7F,F+FMF,FTF,FE*&)F2,*F4F6F/F5FDF,F+F
5F,-%#T0GF)F,FE*&)F2,*F4F6F/FgnF+F5FEF,F,-F^p6%F*,&F/F0F7F,F,F,FE*&F1F
,-F^pFBF,FE*&)F2,(F4F6F/FgnF+F5F,-F^p6%FCFdpF,F,FE*&F9F,-F=6%,&F+F,F7F
,F?F,F,FE*&F[pF,FfpF,F,*&F`pF,FjpF,F,*&F1F,-F^p6%F_qF.F,F,F,*&FhpF,-F^
p6%F_qFdpF,F,F,*&F_oF,-F=6%,&F+F,FEF,F?F,F,F," }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "a13:= eU1(3,a12);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a13G,R*&)%\"qG,**$%\"jG\"\"#\"\")F+\"\"'F,\"\"\"%\"nGF/F/-%#T
1G6%,&F0F/!\"%F/,&F+\"\"%F,F/F/F/F/*&)F(,*F*F-F+F,F0F7!\"*F/F/-%\"UG6%
F4,$F+F7F/F/!\"\"*&)F(,*F*F-F+!\"#F0\"\"$!\"&F/F/-F26%F4,&F+F7F@F/F/F/
F@*&)F(,*F*F-F+F.F0FEF5F/F/F1F/F@*&)F(,*F*F-F+F,F0F7!\"(F/F/-F=6%,&F0F
/!\"$F/F?F/F/F@*&)F(,*F*F-F+FDF0FEF5F/F/-F26%FSFIF/F/F@*&)F(,*F*F-F+F.
F0FEFTF/F/-F26%FSF6F/F/F@*&)F(,*F*F-F+F,!#5F/F0F7F/F<F/F@*&)F(,*F*F-F+
FD!\"'F/F0FEF/FGF/F@*&)F(,*F*F-F+F.FFF/F0FEF/F1F/F@*&)F(,*F*F-F+F.F0F/
F/F/F/FgnF/F@*&)F(,*F*F-F+F,F`oF/F0F7F/FQF/F@*&)F(,*F*F-F+FDFTF/F0FEF/
FXF/F@*&)F(,*F*F-F+F.FDF/F0FEF/FgnF/F@*&)F(,*F*F-F+F,FTF/F0F,F/-%#T0GF
>F/F@*&)F(,*F*F-F+F`oF0F,F@F/F/-Fdp6%F4,&F+F7FDF/F/F/F@*&)F(,*F*F-F+F,
F0F,FDF/F/-FdpFRF/F@*&)F(,(F*F-F+F`oF0F,F/-Fdp6%FSFjpF/F/F@*&F'F/-F26%
,&F0F/FDF/F6F/F/F@*&FapF/F^qF/F/*&FfpF/FbqF/F/*&F\\qF/-Fdp6%FgqF?F/F/F
/*&F`qF/-Fdp6%FgqFjpF/F/F/*&FeoF/-F26%,&F0F/F@F/F6F/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a14:= eT1(24,a13);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$a14G,V*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%
!\"(\"\"\"F1-%\"UG6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+\"\"'F.\"
\"$F6F1F1-%#T1G6%F5,&F+F/F,F1F1F1F8*&)F(,*F*F-F+!\"#F.F=!\"%F1F1-F?6%F
5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+F<F,F1F.F1F1-F?6%,&F.F1FFF1FAF1F1F1*&)F(
,*F*F-F+!\"'F.F,F8F1F1-%#T0G6%F5,&F+F/FEF1F1F1F1*&)F(,*F*F-F+F,F6F1F.F
,F1-FUF4F1F1*&FQF1-FU6%FOFWF1F1F8*&FYF1-FU6%FOF7F1F1F8*&)F(,*F*F-F+F<F
.F=FFF1F1FMF1F8*&)F(,*F*F-F+FEF.F=!\"&F1F1-F?6%FOFIF1F1F8*&)F(,*F*F-F+
F,F.F/!\"*F1F1-F3F[oF1F8*&)F(,*F*F-F+F<FEF1F.F=F1F>F1F8*&)F(,*F*F-F+FE
F6F1F.F=F1FGF1F8*&)F(,*F*F-F+F,FSF1F.F/F1F2F1F8*&)F(,*F*F-F+FEFSF1F.F=
F1FcoF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1FioF1F8*&)F(,*F*F-F+F,F.F,FEF1F1-FU
6%,&F.F1FEF1F7F1F1F1*&)F(,(F*F-F+FSF.F,F1-FU6%F_qFWF1F1F1*&FKF1-F?6%F_
qFAF1F1F8*&FaqF1FTF1F8*&)F(,*F*F-F+F<F.F1F1F1F1F>F1F8*&FjqF1FfqF1F1*&)
F(,*F*F-F+F<FboF1F.F=F1FMF1F8*&F[qF1FenF1F8*&F[qF1-FU6%F_q,&F+F/F1F1F1
F1F1*&)F(,*F*F-F+\"#5F.F,F,F1F1-FU6%F_q,&F+F/F=F1F1F1F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a15:= eT1(22,a14);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$a15G,V*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%
!\"(\"\"\"F1-%\"UG6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+\"\"'F.\"
\"$F6F1F1-%#T1G6%F5,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F,F6F1F.F,F1-%#T0G6%F5
,&F+F/F1F1F1F1F1*&)F(,*F*F-F+!\"#F.F=!\"%F1F1-F?6%F5,&F+F/F8F1F1F1F8*&
)F(,*F*F-F+F<F,F1F.F1F1-F?6%,&F.F1FMF1FAF1F1F1*&)F(,*F*F-F+!\"'F.F,F8F
1F1-FF6%F5,&F+F/FLF1F1F1F1*&FCF1-FFF4F1F1*&FXF1-FF6%FVFgnF1F1F8*&FCF1-
FF6%FVF7F1F1F8*&)F(,*F*F-F+F<F.F=FMF1F1FTF1F8*&)F(,*F*F-F+FLF.F=!\"&F1
F1-F?6%FVFPF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-F3F_oF1F8*&)F(,*F*F-F+F<F
LF1F.F=F1F>F1F8*&)F(,*F*F-F+FLF6F1F.F=F1FNF1F8*&)F(,*F*F-F+F,FZF1F.F/F
1F2F1F8*&)F(,*F*F-F+FLFZF1F.F=F1FgoF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1F]pF1
F8*&)F(,*F*F-F+F,F.F,FLF1F1-FF6%,&F.F1FLF1F7F1F1F1*&)F(,(F*F-F+FZF.F,F
1-FF6%FcqFgnF1F1F1*&FRF1-F?6%FcqFAF1F1F8*&FeqF1FenF1F8*&)F(,*F*F-F+\"#
5F.F,F1F1F1-FF6%F5,&F+F/F=F1F1F1F1*&)F(,*F*F-F+F<FfoF1F.F=F1FTF1F8*&F_
qF1FinF1F8*&F_qF1-FF6%FcqFHF1F1F1*&)F(,*F*F-F+F`rF.F,F,F1F1-FF6%FcqFcr
F1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " a16:= eT0(25,a15
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16G,V*&)%\"qG,**$%\"jG\"\"#
\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%\"UG6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F
(,*F*F-F+\"\"'F.\"\"$F6F1F1-%#T1G6%F5,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F,F6
F1F.F,F1-%#T0G6%F5,&F+F/F1F1F1F1F1*&)F(,*F*F-F+!\"#F.F=!\"%F1F1-F?6%F5
,&F+F/F8F1F1F1F8*&)F(,*F*F-F+\"#5F.F/FMF1F1-FFF@F1F1*&F:F1-F?FGF1F1*&)
F(,*F*F-F+F<F,F1F.F1F1-F?6%,&F.F1FMF1FAF1F1F1*&)F(,*F*F-F+!\"'F.F,F8F1
F1-FF6%F5,&F+F/FLF1F1F1F1*&FCF1-FFF4F1F1*&FinF1-FF6%FgnF^oF1F1F8*&FCF1
-FF6%FgnF7F1F1F8*&)F(,*F*F-F+F<F.F=FMF1F1FenF1F8*&)F(,*F*F-F+FLF.F=!\"
&F1F1-F?6%FgnFPF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-F3FfoF1F8*&)F(,*F*F-F
+F<FLF1F.F=F1F>F1F8*&)F(,*F*F-F+FLF6F1F.F=F1FNF1F8*&)F(,*F*F-F+F,F[oF1
F.F/F1F2F1F8*&)F(,*F*F-F+FLF[oF1F.F=F1F^pF1F8*&)F(,*F*F-F+F,!#5F1F.F/F
1FdpF1F8*&)F(,*F*F-F+F,F.F,FLF1F1-FF6%,&F.F1FLF1F7F1F1F1*&)F(,(F*F-F+F
[oF.F,F1-FF6%FjqF^oF1F1F1*&FYF1-F?6%FjqFAF1F1F8*&F\\rF1F\\oF1F8*&)F(,*
F*F-F+FTF.F,F1F1F1-FF6%F5,&F+F/F=F1F1F1F1*&)F(,*F*F-F+F<F]pF1F.F=F1Fen
F1F8*&)F(,*F*F-F+FTF.F,F,F1F1-FF6%FjqFirF1F1F1" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "a17:= eT0(3,a16);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a17G,V*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(
\"\"\"F1-%\"UG6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+\"\"'F.\"\"$F6
F1F1-%#T1G6%F5,&F+F/F,F1F1F1F8*&)F(,*F*F-F+!\"#F.F=!\"%F1F1-F?6%F5,&F+
F/F8F1F1F1F8*&)F(,*F*F-F+\"#5F.F/FFF1F1-%#T0GF@F1F1*&F:F1-F?6%F5,&F+F/
F1F1F1F1F1*&)F(,*F*F-F+F<F,F1F.F1F1-F?6%,&F.F1FFF1FAF1F1F1*&)F(,*F*F-F
+!\"'F.F,F8F1F1-FO6%F5,&F+F/FEF1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1-FOF4F1
F1*&FenF1-FO6%FYFjnF1F1F8*&)F(,*F*F-F+F<F.F=FFF1F1FWF1F8*&)F(,*F*F-F+F
EF.F=!\"&F1F1-F?6%FYFIF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-F36%FYF7F1F1F8
*&)F(,*F*F-F+F<FEF1F.F=F1F>F1F8*&)F(,*F*F-F+FEF6F1F.F=F1FGF1F8*&)F(,*F
*F-F+F,FgnF1F.F/F1F2F1F8*&)F(,*F*F-F+F<FhoF1F.F=F1-F?6%FYFSF1F1F1*&)F(
,*F*F-F+FEFgnF1F.F=F1FioF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1F_pF1F8*&)F(,*F*
F-F+F,F.F,FEF1F1-FO6%,&F.F1FEF1F7F1F1F1*&)F(,(F*F-F+FgnF.F,F1-FO6%F[rF
jnF1F1F1*&FUF1-F?6%F[rFAF1F1F8*&F]rF1FhnF1F8*&)F(,*F*F-F+FMF.F,F1F1F1-
FO6%F5,&F+F/F=F1F1F1F1*&F[qF1FWF1F8*&)F(,*F*F-F+FMF.F,F,F1F1-FO6%F[rFj
rF1F1F1*&)F(,*F*F-F+FMF0F1F.F/F1-FOFXF1F1" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "a18:=e0(5,a17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a18G,R*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%\"UG6%
,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,
&F+F/F8F1F1F1F8*&F'F1-%#T0G6%F5,&F+F/F1F1F1F1F1*&)F(,*F*F-F+\"\"'F,F1F
.F1F1-F@6%,&F.F1F>F1,&F+F/F,F1F1F1F1*&)F(,*F*F-F+!\"'F.F,F8F1F1-FE6%F5
,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1-FEF4F1F1*&FQF1-FE6%FNFVF1F1F
8*&)F(,*F*F-F+FKF.F=F>F1F1FLF1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FNFBF1
F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-F36%FNF7F1F1F8*&)F(,*F*F-F+FKF<F1F.F=F
1-F@6%F5FOF1F1F8*&)F(,*F*F-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F,FSF1F.F/
F1F2F1F8*&)F(,*F*F-F+FKF^oF1F.F=F1-F@6%FNFGF1F1F1*&)F(,*F*F-F+F<FSF1F.
F=F1F_oF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1FeoF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-
FE6%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FSF.F,F1-FE6%FcqFVF1F1F1*&FIF1-F@6%
FcqFOF1F1F8*&FeqF1FTF1F8*&)F(,*F*F-F+\"#5F.F,F1F1F1-FE6%F5,&F+F/F=F1F1
F1F1*&FcpF1FLF1F8*&)F(,*F*F-F+F`rF.F,F,F1F1-FE6%FcqFcrF1F1F1*&)F(,*F*F
-F+F`rF0F1F.F/F1-FEFMF1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "a19:= splitU(1,a18);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a19G,P*
&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$
F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F
1F1F8*&)F(,*F*F-F+\"\"'F,F1F.F1F1-F@6%,&F.F1F>F1,&F+F/F,F1F1F1F1*&)F(,
*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F
2F1F1*&FLF1-F36%FIFQF1F1F8*&)F(,*F*F-F+FFF.F=F>F1F1FGF1F8*&)F(,*F*F-F+
F<F.F=!\"&F1F1-F@6%FIFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FIF7F1
F1F8*&)F(,*F*F-F+FFF<F1F.F=F1-F@6%F5FJF1F1F8*&)F(,*F*F-F+F<F6F1F.F=F1F
?F1F8*&)F(,*F*F-F+F,FNF1F.F/F1-F`oF4F1F8*&)F(,*F*F-F+FFFhnF1F.F=F1-F@6
%FI,&F+F/F1F1F1F1F1*&)F(,*F*F-F+F<FNF1F.F=F1FinF1F8*&)F(,*F*F-F+F,!#5F
1F.F/F1F_oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F
*F-F+FNF.F,F1-F36%F`qFQF1F1F1*&FDF1-F@6%F`qFJF1F1F8*&FbqF1FOF1F8*&)F(,
*F*F-F+\"#5F.F,F1F1F1-F36%F5,&F+F/F=F1F1F1F1*&F_pF1FGF1F8*&)F(,*F*F-F+
F]rF.F,F,F1F1-F36%F`qF`rF1F1F1*&)F(,*F*F-F+F]rF0F1F.F/F1-F3FHF1F1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a20:= e0(13,a19);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a20G,L*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"n
G\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#
F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+\"\"'F,F1F.F1F1-
F@6%,&F.F1F>F1,&F+F/F,F1F1F1F1*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/
F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FLF1-F36%FIFQF1F1F8*&)F(,*F
*F-F+FFF.F=F>F1F1FGF1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FIFBF1F1F8*&)F(
,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FIF7F1F1F8*&)F(,*F*F-F+FFF<F1F.F=F1-F@6%
F5FJF1F1F8*&)F(,*F*F-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F,FNF1F.F/F1-F`o
F4F1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F36%FI,&F+F/F1F1F1F1F1*&)F(,*F*F-F+F<
FNF1F.F=F1FinF1F8*&F_pF1F_oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F
1F7F1F1F1*&)F(,(F*F-F+FNF.F,F1-F36%F^qFQF1F1F1*&FDF1-F@6%F^qFJF1F1F8*&
F`qF1FOF1F8*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%F5,&F+F/F=F1F1F1F1*&)F(,*F*
F-F+F[rF.F,F,F1F1-F36%F^qF^rF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "a21:= splitU(15,a20);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a21G,J*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%
#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1
G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+\"\"'F,F1F.F1F1-F@6%,&F.F1F>F1,&F+F/
F,F1F1F1F1*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F
-F+F,F6F1F.F,F1F2F1F1*&FLF1-F36%FIFQF1F1F8*&)F(,*F*F-F+FFF.F=F>F1F1FGF
1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FIFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1
F1-%\"UG6%FIF7F1F1F8*&)F(,*F*F-F+FFF<F1F.F=F1-F@6%F5FJF1F1F8*&)F(,*F*F
-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F,FNF1F.F/F1-F`oF4F1F8*&)F(,*F*F-F+F
<FNF1F.F=F1FinF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3FaoF1F8*&)F(,*F*F-F+F,F
.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FNF.F,F1-F36%F[qFQF1F1F1*
&FDF1-F@6%F[qFJF1F1F8*&F]qF1FOF1F8*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%F5,&
F+F/F=F1F1F1F1*&)F(,*F*F-F+FhqF.F,F,F1F1-F36%F[qF[rF1F1F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a22:= eT1(17,a21);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$a22G,N*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%
!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"
$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+\"\"'F,F1F.F1F1-F@6%,&
F.F1F>F1,&F+F/F,F1F1F1F1*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1
F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FLF1-F36%FIFQF1F1F8*&)F(,*F*F-F+F
FF.F=F>F1F1FGF1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FIFBF1F1F8*&)F(,*F*F-
F+F,F.F/!\"*F1F1-%\"UG6%FIF7F1F1F8*&)F(,*F*F-F+FFF<F1F.F=F1-F@6%F5FJF1
F1F8*&)F(,*F*F-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F,FNF1F.F/F1-F`oF4F1F8
*&)F(,*F*F-F+F<FNF1F.F=F1FinF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3FaoF1F8*&
)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FNF.F,F1-F3
6%F[qFQF1F1F1*&FDF1FeoF1F8*&)F(,*F*F-F+\"#5F.F,F,F1F1-F36%F5,&F+F/F=F1
F1F1F8*&FgpF1-F36%F5,&F+F/F1F1F1F1F8*&F]qF1FOF1F8*&)F(,*F*F-F+FeqF.F,F
1F1F1FfqF1F1*&FcqF1-F36%F[qFhqF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "a23:= eT1(17,a22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$a23G,N*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6
%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5
,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F
(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+
\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%
FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FT
F<F1F.F=F1-F@6%F5FWF1F1F8*&)F(,*F*F-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F
,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#
5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)
F(,(F*F-F+FFF.F,F1-F36%FhpFIF1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&
F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&)F(,*F*F-F+FaqF.F,F,F1F1-
F36%F5FdqF1F1F8*&FdpF1-F36%F5FhqF1F1F8*&FjpF1FGF1F8*&F_qF1F\\rF1F1*&Fj
qF1-F36%FhpFdqF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a24
:= shiftdown(18,a23);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a24G,N*&)%
\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,
$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1
F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F
1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1
-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(
,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%
F5FWF1F1F8*&)F(,*F*F-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]o
F4F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^o
F1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FFF.F
,F1-F36%FhpFIF1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*
&FKF1-F36%FP,&F+F/F1F1F1F1F8*&FjpF1-F3FAF1F8*&FdpF1-F36%F5FhqF1F1F8*&F
jpF1FGF1F8*&F_qF1-F36%F5FdqF1F1F1*&)F(,*F*F-F+FaqF.F,F,F1F1-F36%FhpFdq
F1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a25:= shiftdown(2
1,a24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a25G,N*&)%\"qG,**$%\"jG
\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"
\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F
-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F
1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F
/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.
F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1F1F8*&
)F(,*F*F-F+F<F6F1F.F=F1F?F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,
*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F
*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FFF.F,F1-F36%FhpF
IF1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP
,&F+F/F1F1F1F1F8*&FjpF1-F3FAF1F8*&FdpF1-F36%F5FhqF1F1F8*&FjpF1FGF1F8*&
FDF1FjqF1F1*&)F(,*F*F-F+FaqF.F,F,F1F1-F36%FhpFdqF1F1F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a26:= shiftdown(22,a25);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a26G,N*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"n
G\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#
F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F
36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F
>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F
*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%F
PF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1F1F8*&)F(,*F*F-F+F<F6F1F.
F=F1F?F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.F=F1
FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F
36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FFF.F,F1-F36%FhpFIF1F1F1*&)F(,*F*F-F
+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&F
jpF1-F3FAF1F8*&FdpF1-F36%F5FhqF1F1F8*&FjpF1FGF1F8*&FDF1FjqF1F1*&FjpF1-
F36%FhpFBF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a27:= eT
0(22,a26);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,J*&)%\"qG,**$%\"
jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!
\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F
*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F
1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F
+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,
F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1F1F8
*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)
F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F
<F1F7F1F1F1*&)F(,(F*F-F+FFF.F,F1-F36%FepFIF1F1F1*&)F(,*F*F-F+\"#5F.F,F
1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&FgpF1-F3FAF
1F8*&FapF1-F36%F5FeqF1F1F8*&FDF1FgqF1F1*&FeoF1F2F1F1" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 18 "a28:= sym(14,a27);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a28G,J*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(
\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"
%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F
/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F
8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F
=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*
&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4
F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1
F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FFF.F,F
1-F36%Fep,&F+F>F,F1F1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F
1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&FgpF1-F3FAF1F8*&FapF1-F36%F5FfqF1F
1F8*&FDF1FhqF1F1*&FeoF1F2F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 18 "a29:= eT0(14,a28);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a29G,N*
&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$
F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F
1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,
F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F
1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&
)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F
@6%F5FWF1F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.F
=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F
1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FFF.F,F1-F36%F5,&F+F>F1F1F1F1F1*&
)F(,(F*F-F+F^pF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&)F(,(F*F-F+!#9F.F/F1-F36%
F5,&F+F>F=F1F1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&
FKF1-F36%FP,&F+F/F1F1F1F1F8*&FgpF1-F3FAF1F8*&FapF1-F36%F5FcrF1F1F8*&FD
F1FerF1F1*&FeoF1F2F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a
30:=sym(14,a29);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a30G,J*&)%\"qG,
**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/
F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)
F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,
F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%
FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F
-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF
1F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1
F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&
F.F1F<F1F7F1F1F1*&)F(,(F*F-F+F^pF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&)F(,(F*
F-F+!#9F.F/F1-F36%F5,&F+F>F=F1F1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP
,&F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&FapF1-F36%F5F]rF1F1F8*&
FDF1-F3FAF1F1*&FeoF1F2F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
21 "a31:=shiftup(15,a30);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a31G,J
*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"
$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1
F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F
,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>
F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*
&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-
F@6%F5FWF1F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.
F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1
F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+F^pF.F=F1-F@6%F5,&F+F>F,F1F1F1F1
*&FeoF1-F36%F5,&F+F>F8F1F1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/
F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&FapF1-F36%F5FjqF1F1F8*&FDF1-F
3FAF1F1*&FeoF1F2F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a32
:= sym(15,a31);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a32G,J*&)%\"qG,*
*$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F
1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F
(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F
1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%F
P,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-
F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1
F1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F]oF4F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F
8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%,&F
.F1F<F1F7F1F1F1*&)F(,(F*F-F+F^pF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&FeoF1-F3
6%F5,&F+F/F1F1F1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8
*&FKF1-F36%FPF_qF1F1F8*&FapF1F]qF1F8*&FDF1-F3FAF1F1*&FeoF1F2F1F1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a33:=splitU(10,a32);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a33G,D*&)%\"qG,**$%\"jG\"\"#\"\")F+
F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-
F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8
F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,
&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&
)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%
\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1F1F8*&)F(,*F*F-F+F
<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F
.F,F<F1F1-F36%,&F.F1F<F1F7F1F1F1*&)F(,(F*F-F+FjoF.F=F1-F@6%F5,&F+F>F,F
1F1F1F1*&)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP
,&F+F/F1F1F1F1F8*&F]pF1-F36%F5FbqF1F1F8*&FDF1-F3FAF1F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a34:= sym(12,a33);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$a34G,D*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%
!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"
$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,
&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF
1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F
<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F
1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1F1F8*&)F(,*F*F-F+F<FFF1F.F=F1Ff
nF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36
%,&F.F1F<F1,$F+F>F1F1F1*&)F(,(F*F-F+FjoF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&
)F(,*F*F-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F
1F1F1F8*&F]pF1-F36%F5FcqF1F1F8*&FDF1-F3FAF1F1" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 18 "a35:= eT0(12,a34);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a35G,H*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%
#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1
G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F
1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*
F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-
F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-
F+FTF<F1F.F=F1-F@6%F5FWF1F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*
F-F+F,!#5F1F.F/F1-F3F^oF1F8*&)F(,*F*F-F+F,F.F,F<F1F1-F36%F5,&F+F>F8F1F
1F1F1*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*F*F-F+FFF.F/FFF1F1-F36%F5,&F+F>F1
F1F1F1F1*&)F(,(F*F-F+FjoF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&)F(,*F*F-F+\"#5
F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&F]pF1-
F36%F5F\\rF1F1F8*&FDF1-F3FAF1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "a36:=sym(12,a35);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a36G,D
*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"
$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1
F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F
,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>
F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*
&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-
F@6%F5FWF1F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/
F1-F3F^oF1F8*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*F*F-F+FFF.F/FFF1F1-F36%F5,
&F+F>F1F1F1F1F1*&)F(,(F*F-F+FjoF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&)F(,*F*F
-F+\"#5F.F,F1F1F1-F36%FP,&F+F/F=F1F1F1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*
&FDF1-F3FAF1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a37:= shi
ftdown(15,a36);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a37G,D*&)%\"qG,*
*$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F
1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F
(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F/F<F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F
1F2F1F1*&FDF1-F36%,&F.F1F>F1FIF1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F@6%F
P,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FPFBF1F1F8*&)F(,*F*F-
F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*F-F+FTF<F1F.F=F1-F@6%F5FWF1
F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FfnF1F8*&)F(,*F*F-F+F,!#5F1F.F/F1-F3F^oF1
F8*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*F*F-F+FFF.F/FFF1F1-F36%F5,&F+F>F1F1F
1F1F1*&)F(,(F*F-F+FjoF.F=F1-F@6%F5,&F+F>F,F1F1F1F1*&FDF1-F3FgnF1F8*&FK
F1-F36%FP,&F+F/F1F1F1F1F8*&FDF1-F3FAF1F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a38:= sym(3,a37);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a38G,D*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%
,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,
&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%F5,&F+F>F,F1F1F1F1*&)F(
,*F*F-F+F,F6F1F.F,F1F2F1F1*&FDF1-F36%,&F.F1F>F1,&F+F/F<F1F1F1F8*&)F(,*
F*F-F+\"\"'F.F=F>F1F1-F@6%FP,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F
1-F@6%FPFBF1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FPF7F1F1F8*&)F(,*F*
F-F+FUF<F1F.F=F1-F@6%F5FXF1F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FgnF1F8*&)F(,*
F*F-F+F,!#5F1F.F/F1-F3F_oF1F8*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*F*F-F+FFF
.F/FFF1F1-F36%F5,&F+F>F1F1F1F1F1*&)F(,(F*F-F+F[pF.F=F1-F@FHF1F1*&FDF1-
F3FhnF1F8*&FKF1-F36%FP,&F+F/F1F1F1F1F8*&FDF1-F3FAF1F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a39:= eT0(3,a38);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a39G,H*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!
\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$
!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1F1F8*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%,&F.
F1F>F1,&F+F>F1F1F1F1F1*&)F(,*F*F-F+!#5F.F=F<F1F1-F@6%FI,&F+F>F,F1F1F1F
1*&)F(,*F*F-F+!#9F.F/F6F1F1-F36%FI,&F+F>F=F1F1F1F1*&)F(,*F*F-F+F,F6F1F
.F,F1F2F1F1*&FDF1-F36%FI,&F+F/F<F1F1F1F8*&)F(,*F*F-F+\"\"'F.F=F>F1F1-F
@6%FI,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FIFBF1F1F8*&)F(,*
F*F-F+F,F.F/!\"*F1F1-%\"UG6%FIF7F1F1F8*&)F(,*F*F-F+F]oF<F1F.F=F1-F@6%F
5F`oF1F1F8*&)F(,*F*F-F+F<FFF1F.F=F1FeoF1F8*&)F(,*F*F-F+F,FNF1F.F/F1-F3
F]pF1F8*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*F*F-F+FFF.F/FFF1F1-F36%F5FJF1F1
F1*&)F(,(F*F-F+FNF.F=F1-F@6%F5FQF1F1F1*&FDF1-F3FfoF1F8*&FZF1-F36%FI,&F
+F/F1F1F1F1F8*&FDF1-F3FAF1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "a40:= sym(3,a39);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a40G,D*&
)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F
1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,&F+F/F8F1F1
F1F8*&)F(,*F*F-F+!#5F.F=F<F1F1-F@6%,&F.F1F>F1,&F+F>F,F1F1F1F1*&)F(,*F*
F-F+!#9F.F/F6F1F1-F36%FI,&F+F>F=F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F
1*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%FI,&F+F/F<F1F1F1F8*&)F(,*F*F-F+\"\"'F
.F=F>F1F1-F@6%FI,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1-F@6%FIFBF1
F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FIF7F1F1F8*&)F(,*F*F-F+FinF<F1F
.F=F1-F@6%F5F\\oF1F1F8*&)F(,*F*F-F+F<FXF1F.F=F1FaoF1F8*&)F(,*F*F-F+F,F
FF1F.F/F1-F3FioF1F8*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*F*F-F+FXF.F/FXF1F1-
F36%F5,&F+F>F1F1F1F1F1*&)F(,(F*F-F+FFF.F=F1-F@6%F5FJF1F1F1*&FSF1-F36%F
I,&F+F/F1F1F1F1F8*&FVF1-F3FAF1F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a41:= sym(2,a40);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a41G,D*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%
,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!\"#F.\"\"$!\"%F1F1-%#T1G6%F5,
&F+F>F1F1F1F1F8*&)F(,*F*F-F+!#5F.F=F<F1F1-F@6%,&F.F1F>F1,&F+F>F,F1F1F1
F1*&)F(,*F*F-F+!#9F.F/F6F1F1-F36%FI,&F+F>F=F1F1F1F1*&)F(,*F*F-F+F,F6F1
F.F,F1F2F1F1*&)F(,*F*F-F+!\"'F.F,F8F1F1-F36%FI,&F+F/F<F1F1F1F8*&)F(,*F
*F-F+\"\"'F.F=F>F1F1-F@6%FI,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F<F.F=!\"&F1F1
-F@6%FI,&F+F/F8F1F1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FIF7F1F1F8*&
)F(,*F*F-F+FinF<F1F.F=F1-F@6%F5F\\oF1F1F8*&)F(,*F*F-F+F<FXF1F.F=F1FaoF
1F8*&)F(,*F*F-F+F,FFF1F.F/F1-F3FjoF1F8*&F:F1-F@6%F5,$F+F>F1F1F1*&)F(,*
F*F-F+FXF.F/FXF1F1-F3FAF1F1*&)F(,(F*F-F+FFF.F=F1-F@6%F5FJF1F1F1*&FSF1-
F36%FI,&F+F/F1F1F1F1F8*&FVF1-F36%F5FcoF1F1F1" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "a42:= e0(13,a41);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a42G,@*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%
#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!#5F.\"\"$!\"#F1F1-%#T1G
6%,&F.F1!\"%F1,&F+FCF,F1F1F1F1*&)F(,*F*F-F+!#9F.F/F6F1F1-F36%FB,&F+FCF
=F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&)F(,*F*F-F+!\"'F.F,F8F1F1-F3
6%FB,&F+F/F>F1F1F1F8*&)F(,*F*F-F+\"\"'F.F=FCF1F1-F@6%FB,&F+F/F,F1F1F1F
8*&)F(,*F*F-F+F>F.F=!\"&F1F1-F@6%FB,&F+F/F8F1F1F1F8*&)F(,*F*F-F+F,F.F/
!\"*F1F1-%\"UG6%FBF7F1F1F8*&)F(,*F*F-F+FYF>F1F.F=F1-F@6%F5FfnF1F1F8*&)
F(,*F*F-F+F>FRF1F.F=F1F[oF1F8*&)F(,*F*F-F+F,F<F1F.F/F1-F3FdoF1F8*&F'F1
-F36%F5,$F+FCF1F1F1*&)F(,(F*F-F+F<F.F=F1-F@6%F5FDF1F1F1*&FMF1-F36%FB,&
F+F/F1F1F1F1F8*&FPF1-F36%F5F]oF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "a43:= eT0(15,a42);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$a43G,<*&)%\"qG,**$%\"jG\"\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6
%,&F.F1!\"$F1,$F+F/F1F1!\"\"*&)F(,*F*F-F+!#5F.\"\"$!\"#F1F1-%#T1G6%,&F
.F1!\"%F1,&F+FCF,F1F1F1F1*&)F(,*F*F-F+!#9F.F/F6F1F1-F36%FB,&F+FCF=F1F1
F1F1*&)F(,*F*F-F+F,F6F1F.F,F1F2F1F1*&)F(,*F*F-F+\"\"'F.F=FCF1F1-F@6%FB
,&F+F/F,F1F1F1F8*&)F(,*F*F-F+F,F.F/!\"*F1F1-%\"UG6%FBF7F1F1F8*&)F(,*F*
F-F+FRF>F1F.F=F1-F@6%F5FUF1F1F8*&)F(,*F*F-F+F>!\"'F1F.F=F1-F@6%FB,&F+F
/F8F1F1F1F8*&)F(,*F*F-F+F,F<F1F.F/F1-F3FfnF1F8*&F'F1-F36%F5,$F+FCF1F1F
1*&)F(,(F*F-F+F<F.F=F1-F@6%F5FDF1F1F1*&FMF1-F36%FB,&F+F/F1F1F1F1F8*&FW
F1FfoF1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a44:= splitU(6
,a43);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a44G,:*&)%\"qG,**$%\"jG\"
\"#\"\")F+F,%\"nG\"\"%!\"(\"\"\"F1-%#T0G6%,&F.F1!\"$F1,$F+F/F1F1!\"\"*
&)F(,*F*F-F+!#5F.\"\"$!\"#F1F1-%#T1G6%,&F.F1!\"%F1,&F+FCF,F1F1F1F1*&)F
(,*F*F-F+!#9F.F/F6F1F1-F36%FB,&F+FCF=F1F1F1F1*&)F(,*F*F-F+F,F6F1F.F,F1
F2F1F1*&)F(,*F*F-F+\"\"'F.F=FCF1F1-F@6%FB,&F+F/F,F1F1F1F8*&)F(,*F*F-F+
F,F.F/!\"*F1F1-F36%FB,&F+F/F1F1F1F1F8*&)F(,*F*F-F+FRF>F1F.F=F1-F@6%F5F
UF1F1F8*&)F(,*F*F-F+F>!\"'F1F.F=F1-F@6%FB,&F+F/F8F1F1F1F8*&)F(,*F*F-F+
F,F<F1F.F/F1-F36%FBF7F1F1F8*&F'F1-F36%F5,$F+FCF1F1F1*&)F(,(F*F-F+F<F.F
=F1-F@6%F5FDF1F1F1*&FMF1FZF1F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "a45:= sym(1,a44);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a45G,6
*&)%\"qG,**$%\"jG\"\"#\"\")F+!#5%\"nG\"\"$!\"#\"\"\"F2-%#T1G6%,&F/F2!
\"%F2,&F+F7F,F2F2F2F2*&)F(,*F*F-F+!#9F/\"\"%!\"$F2F2-%#T0G6%F6,&F+F7F0
F2F2F2F2*&)F(,*F*F-F+F,F>F2F/F,F2-F@6%,&F/F2F>F2,$F+F=F2F2F2*&)F(,*F*F
-F+\"\"'F/F0F7F2F2-F46%F6,&F+F=F,F2F2F2!\"\"*&)F(,*F*F-F+F,F/F=!\"*F2F
2-F@6%F6,&F+F=F2F2F2F2FQ*&)F(,*F*F-F+FMF1F2F/F0F2-F46%FHFPF2F2FQ*&)F(,
*F*F-F+F1!\"'F2F/F0F2-F46%F6,&F+F=FQF2F2F2FQ*&)F(,*F*F-F+F,F.F2F/F=F2-
F@6%F6FIF2F2FQ*&)F(,(F*F-F+F.F/F0F2-F46%FHF8F2F2F2*&FDF2FVF2FQ" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a46:= shiftup(2,a45);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a46G,6*&)%\"qG,**$%\"jG\"\"#\"\")F+
!#5%\"nG\"\"$!\"#\"\"\"F2-%#T1G6%,&F/F2!\"%F2,&F+F7F,F2F2F2F2*&)F(,*F*
F-F+F,F/\"\"%!\"*F2F2-%#T0G6%F6,&F+F7!\"\"F2F2F2F2*&)F(,*F*F-F+F,!\"$F
2F/F,F2-F?6%,&F/F2FFF2,$F+F<F2F2F2*&)F(,*F*F-F+\"\"'F/F0F7F2F2-F46%F6,
&F+F<F,F2F2F2FB*&F:F2-F?6%F6,&F+F<F2F2F2F2FB*&)F(,*F*F-F+FNF1F2F/F0F2-
F46%FIFQF2F2FB*&)F(,*F*F-F+F1!\"'F2F/F0F2-F46%F6,&F+F<FBF2F2F2FB*&)F(,
*F*F-F+F,F.F2F/F<F2-F?6%F6FJF2F2FB*&)F(,(F*F-F+F.F/F0F2-F46%FIF8F2F2F2
*&FDF2FSF2FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a47:= sym(2
,a46);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a47G,2*&)%\"qG,**$%\"jG\"
\"#\"\")F+!#5%\"nG\"\"$!\"#\"\"\"F2-%#T1G6%,&F/F2!\"%F2,&F+F7F,F2F2F2F
2*&)F(,*F*F-F+F,!\"$F2F/F,F2-%#T0G6%,&F/F2F<F2,$F+\"\"%F2F2F2*&)F(,*F*
F-F+\"\"'F/F0F7F2F2-F46%F6,&F+FBF,F2F2F2!\"\"*&)F(,*F*F-F+FFF1F2F/F0F2
-F46%F@FIF2F2FJ*&)F(,*F*F-F+F1!\"'F2F/F0F2-F46%F6,&F+FBFJF2F2F2FJ*&)F(
,*F*F-F+F,F.F2F/FBF2-F>6%F6FAF2F2FJ*&)F(,(F*F-F+F.F/F0F2-F46%F@F8F2F2F
2*&F:F2-F>6%F6,&F+FBF2F2F2F2FJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "a48:= sym(2,a47);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a48G,2
*&)%\"qG,**$%\"jG\"\"#\"\")F+!#5%\"nG\"\"$!\"#\"\"\"F2-%#T1G6%,&F/F2!
\"%F2,&F+F7F,F2F2F2F2*&)F(,*F*F-F+F,!\"$F2F/F,F2-%#T0G6%,&F/F2F<F2,$F+
F7F2F2F2*&)F(,*F*F-F+\"\"'F/F0F7F2F2-F46%F6,&F+\"\"%F,F2F2F2!\"\"*&)F(
,*F*F-F+FEF1F2F/F0F2-F46%F@FHF2F2FJ*&)F(,*F*F-F+F1!\"'F2F/F0F2-F46%F6,
&F+FIFJF2F2F2FJ*&)F(,*F*F-F+F,F.F2F/FIF2-F>6%F6,$F+FIF2F2FJ*&)F(,(F*F-
F+F.F/F0F2-F46%F@F8F2F2F2*&F:F2-F>6%F6,&F+FIF2F2F2F2FJ" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a49:= eT0(2,a48);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a49G,6*&)%\"qG,**$%\"jG\"\"#\"\")F+!#5%\"nG\"\"$!
\"#\"\"\"F2-%#T1G6%,&F/F2!\"%F2,&F+F7F,F2F2F2F2*&)F(,*F*F-F+F,!\"$F2F/
F,F2-%#T0G6%F6,&F+F7!\"\"F2F2F2F2*&)F(,*F*F-F+F1!\"'F2F/F0F2-F46%F6,$F
+F7F2F2F2*&)F(,*F*F-F+FE!\"*F2F/\"\"%F2-F>6%F6,&F+F7F2F2F2F2F2*&)F(,*F
*F-F+\"\"'F/F0F7F2F2-F46%F6,&F+FMF,F2F2F2FA*&)F(,*F*F-F+FTF1F2F/F0F2-F
46%,&F/F2F<F2FWF2F2FA*&FCF2-F46%F6,&F+FMFAF2F2F2FA*&)F(,*F*F-F+F,F.F2F
/FMF2-F>6%F6,$F+FMF2F2FA*&)F(,(F*F-F+F.F/F0F2-F46%FgnF8F2F2F2*&F:F2-F>
6%F6,&F+FMF2F2F2F2FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a50
:= sym(2,a49);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a50G,2*&)%\"qG,**
$%\"jG\"\"#\"\")F+!#5%\"nG\"\"$!\"#\"\"\"F2-%#T1G6%,&F/F2!\"%F2,&F+F7F
,F2F2F2F2*&)F(,*F*F-F+F1!\"'F2F/F0F2-F46%F6,$F+F7F2F2F2*&)F(,*F*F-F+F<
!\"*F2F/\"\"%F2-%#T0G6%F6,&F+F7F2F2F2F2F2*&)F(,*F*F-F+\"\"'F/F0F7F2F2-
F46%F6,&F+FDF,F2F2F2!\"\"*&)F(,*F*F-F+FLF1F2F/F0F2-F46%,&F/F2!\"$F2FOF
2F2FP*&F:F2-F46%F6,&F+FDFPF2F2F2FP*&)F(,*F*F-F+F,F.F2F/FDF2-FF6%F6,$F+
FDF2F2FP*&)F(,(F*F-F+F.F/F0F2-F46%FVF8F2F2F2" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 21 "a51:= shiftup(1,a50);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a51G,2*&)%\"qG,**$%\"jG\"\"#\"\")F+\"\"'%\"nG\"\"$!
\"%\"\"\"F2-%#T1G6%,&F/F2F1F2,&F+F1!\"#F2F2F2F2*&)F(,*F*F-F+F8!\"'F2F/
F0F2-F46%F6,$F+F1F2F2F2*&)F(,*F*F-F+F<!\"*F2F/\"\"%F2-%#T0G6%F6,&F+F1F
2F2F2F2F2*&F'F2-F46%F6,&F+FDF,F2F2F2!\"\"*&)F(,*F*F-F+F.F8F2F/F0F2-F46
%,&F/F2!\"$F2FLF2F2FM*&F:F2-F46%F6,&F+FDFMF2F2F2FM*&)F(,*F*F-F+F,!#5F2
F/FDF2-FF6%F6,$F+FDF2F2FM*&)F(,(F*F-F+FfnF/F0F2-F46%FS,&F+F1F,F2F2F2F2
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a52:= sym(1,a51);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a52G,.*&)%\"qG,**$%\"jG\"\"#\"\")F+
!\"#!\"'\"\"\"%\"nG\"\"$F0-%#T1G6%,&F1F0!\"%F0,$F+F7F0F0F0*&)F(,*F*F-F
+F/!\"*F0F1\"\"%F0-%#T0G6%F6,&F+F7F0F0F0F0F0*&)F(,*F*F-F+\"\"'F.F0F1F2
F0-F46%,&F1F0!\"$F0,&F+F=F,F0F0F0!\"\"*&F'F0-F46%F6,&F+F=FKF0F0F0FK*&)
F(,*F*F-F+F,!#5F0F1F=F0-F?6%F6,$F+F=F0F0FK*&)F(,(F*F-F+FSF1F2F0-F46%FH
,&F+F7F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a53:= s
ym(1,a52);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a53G,.*&)%\"qG,**$%\"
jG\"\"#\"\")F+!\"#!\"'\"\"\"%\"nG\"\"$F0-%#T1G6%,&F1F0!\"%F0,$F+\"\"%F
0F0F0*&)F(,*F*F-F+F/!\"*F0F1F9F0-%#T0G6%F6,&F+F7F0F0F0F0F0*&)F(,*F*F-F
+\"\"'F.F0F1F2F0-F46%,&F1F0!\"$F0,&F+F9F,F0F0F0!\"\"*&F'F0-F46%F6,&F+F
9FKF0F0F0FK*&)F(,*F*F-F+F,!#5F0F1F9F0-F?F5F0FK*&)F(,(F*F-F+FSF1F2F0-F4
6%FH,&F+F7F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a54
:= e0(4,a53);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a54G,**&)%\"qG,**$
%\"jG\"\"#\"\")F+!\"'!\"*\"\"\"%\"nG\"\"%F0-%#T0G6%,&F1F0!\"%F0,&F+F7F
0F0F0F0F0*&)F(,*F*F-F+\"\"'!\"#F0F1\"\"$F0-%#T1G6%,&F1F0!\"$F0,&F+F2F,
F0F0F0!\"\"*&F'F0-F46%F6,&F+F2FEF0F0F0FE*&)F(,(F*F-F+!#5F1F>F0-F@6%FB,
&F+F7F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a55:= sy
m(1,a54);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a55G,&*&)%\"qG,**$%\"j
G\"\"#\"\")F+\"\"'!\"#\"\"\"%\"nG\"\"$F0-%#T1G6%,&F1F0!\"$F0,&F+\"\"%F
,F0F0F0!\"\"*&)F(,(F*F-F+!#5F1F2F0-F46%F6,&F+!\"%F,F0F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a56:= shiftdown(1,a55);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a56G,&*&)%\"qG,(*$%\"jG\"\"#\"\")F+
!#5%\"nG\"\"$\"\"\"-%#T1G6%,&F/F1!\"$F1,&F+\"\"%!\"#F1F1F1!\"\"*&F'F1-
F36%F5,&F+!\"%F,F1F1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 
"a57:= sym(1,a56);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a57G\"\"!" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }