{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 13 "######## 3.33" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "read(recpf);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#%]oWelcome~to~the~q-Bi/Trinomial~Recurrence~Proof~
assistance~package.G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%;Version~of~8
~October,~2001G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%^t[annop,~annopf,~
applyshiftop,~asoe,~asoo,~e0,~eG0,~eG1,~eT0,~eT1,~eU0,~eU1,~eV,~expand
all,~gpsym,~negate,~shiftup,~shiftdown,~~splitU,~splitV,~sym]G" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%coRemember~that~the~default~value~of~
the~global~variable~altsign~is~false.G" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#%IAutomatically~loading~RRtools~package...G" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%QRRtools~package...last~updated~26~September~2001G" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#%fal[annops,~ATNS,~duallist,~evenlist,
~factorizeop,~fundrec,~gp,~gp0,~gpsearch,~initconds,~JTP,~LHS,~LHS2,~L
HSdual,~LHS2dual,~LHSevendual,~LHSodddual,~makejtp,~makeqp,~makepolyli
st,~multops,~PNS,~polyrec,~printpolylist,~qfact,~recippoly,~rightdiv,~
seppoly,~SS,~t0,~t1,~T0search,~T1,~T1search,~tau0,~tau0search,~thework
s,~tify,~TNS,~tpgcd,~Trb,~U,~Usearch,~V,~Vsearch]G" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%>Done~loading~RRtools~package.G" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%?...done~loading~recpf~package.G" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 47 "op1:= annopf(0, [], [-1,1,2,0,-1,2,2,0],2,2,0
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op1G,**$%\"NG\"\"$\"\"\"*&,(*
$%\"qG\"\"#F)F-F)!\"\"F)F)F'F.F)*&,*F,F/F-F/)F-,&%\"nGF.\"\"%F)F/*$F-F
(F)F)F'F)F)F6F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "###### n
 even = 2*m" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 487 "a1:= asoe(o
p1,  \n      q^(56*j^2 +  2*j    ) * gp(2*n + 1, n + 7*j + 1, 2) \n   \+
 - q^(56*j^2 + 82*j +30) * gp(2*n + 1, n + 7*j + 6, 2)\n    - q^(56*j^
2 + 26*j + 3) * gp(2*n    , n + 7*j + 2, 2) \n    + q^(56*j^2 + 58*j +
15) * gp(2*n    , n + 7*j + 4, 2),\n      q^(56*j^2 +  2*j    ) * gp(2
*n + 1, n + 7*j + 1, 2) \n    - q^(56*j^2 + 82*j +30) * gp(2*n + 1, n \+
+ 7*j + 6, 2)\n    - q^(56*j^2 + 26*j + 3) * gp(2*n + 2, n + 7*j + 3, \+
2) \n    + q^(56*j^2 + 58*j +15) * gp(2*n + 2, n + 7*j + 5, 2));" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,J*&)%\"qG,(*$%\"jG\"\"#\"#cF+\"
#e\"#:\"\"\"F0-%#gpG6%,&%\"mGF,\"\"%F0,(F5F0F+\"\"(\"\"'F0F,F0F0*&)F(,
(F*F-F+\"#E\"\"$F0F0-F26%F4,(F5F0F6F0F+F8F,F0!\"\"*&-F26%,&F5F,F0F0,(F
5F0F+F8F0F0F,F0)F(,(F0F0F*F-F+F,F0FB*&-F26%,&F5F,F,F0,(F5F0F+F8\"\"&F0
F,F0)F(,(\"#=F0F*F-F+F.F0F0*&-F26%FM,(F5F0F+F8F>F0F,F0)F(,(F9F0F*F-F+F
=F0FB*&FKF0)F(,*F5F6\"#>F0F*F-F+F.F0FB*&)F(,(F*F-F+\"##)\"#JF0F0-F26%F
FF7F,F0F0*&)F(,(\"#KF0F*F-F+FjnF0F\\oF0F0*&FDF0)F(,(F,F0F*F-F+F,F0FB*&
-F26%,&F5F,F>F0,(F5F0F,F0F+F8F,F0FHF0F0*&-F26%,$F5F,FAF,F0FPF0FB*&-F26
%Fho,(F5F0F8F0F+F8F,F0FhnF0FB*&F_pF0F_oF0FB*&FfoF0FcoF0F0*&F'F0FKF0FB*
&F;F0FTF0F0*&FTF0)F(,*F5F6F8F0F*F-F+F=F0F0*&)F(,*F5F6\"#MF0F*F-F+FjnF0
F\\oF0F0*&-F26%F]pFioF,F0FWF0F0*&FDF0)F(,*F5F6F6F0F*F-F+F,F0FB" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "nops(a1);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2
:= eG1(1,a1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a2G,L*&)%\"qG,(*$%
\"jG\"\"#\"#cF+\"#e\"#:\"\"\"F0-%#gpG6%,&%\"mGF,\"\"$F0,(F5F0F+\"\"(\"
\"&F0F,F0F0*&)F(,*F*F-F+\"#s\"#FF0F5F,F0-F26%F4,(F5F0F+F8\"\"'F0F,F0F0
*&)F(,(F*F-F+\"#EF6F0F0-F26%,&F5F,\"\"%F0,(F5F0FJF0F+F8F,F0!\"\"*&-F26
%,&F5F,F0F0,(F5F0F+F8F0F0F,F0)F(,(F0F0F*F-F+F,F0FL*&-F26%,&F5F,F,F0F7F
,F0)F(,(\"#=F0F*F-F+F.F0F0*&-F26%FW,(F5F0F+F8F6F0F,F0)F(,(FBF0F*F-F+FF
F0FL*&FUF0)F(,*F5FJ\"#>F0F*F-F+F.F0FL*&)F(,(F*F-F+\"##)\"#JF0F0-F26%FP
FAF,F0F0*&)F(,(\"#KF0F*F-F+FboF0FdoF0F0*&FNF0)F(,(F,F0F*F-F+F,F0FL*&-F
26%F4,(F5F0F,F0F+F8F,F0FRF0F0*&-F26%,$F5F,FKF,F0FXF0FL*&-F26%F4,(F5F0F
8F0F+F8F,F0F`oF0FL*&FfpF0FgoF0FL*&F^pF0F[pF0F0*&F'F0FUF0FL*&FDF0FfnF0F
0*&FfnF0)F(,*F5FJF8F0F*F-F+FFF0F0*&)F(,*F5FJ\"#MF0F*F-F+FboF0FdoF0F0*&
-F26%FdpF`pF,F0FinF0F0*&FNF0)F(,*F5FJFJF0F*F-F+F,F0FL" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG0(1,a2);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a3G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"
mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#
FF0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F+F8\"\"'F0F,F0F0*&)F(,(F*F-F+\"#EFAF
0F0-F36%,&F1F,F7F0F6F,F0!\"\"*&-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0)F(,(F
0F0F*F-F+F,F0FK*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0
*&-F36%F5,(F1F0F+F8FAF0F,F0)F(,(FCF0F*F-F+FGF0FK*&FTF0)F(,*F1F7\"#>F0F
*F-F+FenF0FK*&)F(,(F*F-F+\"##)\"#JF0F0-F36%FOFBF,F0F0*&)F(,(\"#KF0F*F-
F+FcoF0FeoF0F0*&FMF0)F(,(F,F0F*F-F+F,F0FK*&-F36%F@,(F1F0F,F0F+F8F,F0FQ
F0F0*&-F36%,$F1F,F6F,F0FXF0FK*&-F36%F@,(F1F0F8F0F+F8F,F0FaoF0FK*&FgpF0
FhoF0FK*&F_pF0F\\pF0F0*&FEF0FgnF0F0*&FgnF0)F(,*F1F7F8F0F*F-F+FGF0F0*&)
F(,*F1F7\"#MF0F*F-F+FcoF0FeoF0F0*&-F36%FepFapF,F0FjnF0F0*&FMF0)F(,*F1F
7F7F0F*F-F+F,F0FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a4:= e
G0(15,a3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a4G,L*&)%\"qG,**$%\"j
G\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"
\"(F,F0F0*&)F(,*F*F-F+\"#s\"#FF0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F+F8\"\"
'F0F,F0F0*&)F(,(F*F-F+\"#EFAF0F0-F36%,&F1F,F7F0F6F,F0!\"\"*&-F36%,&F1F
,F0F0,(F1F0F+F8F0F0F,F0)F(,(F0F0F*F-F+F,F0FK*&-F36%F5,(F1F0F+F8\"\"&F0
F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5,(F1F0F+F8FAF0F,F0)F(,(FCF0F*F-F
+FGF0FK*&FTF0)F(,*F1F7\"#>F0F*F-F+FenF0FK*&)F(,(F*F-F+\"##)\"#JF0F0-F3
6%FOFBF,F0F0*&)F(,(\"#KF0F*F-F+FcoF0FeoF0F0*&FMF0)F(,(F,F0F*F-F+F,F0FK
*&-F36%F@,(F1F0F,F0F+F8F,F0FQF0F0*&-F36%,$F1F,F6F,F0FXF0FK*&-F36%F@,(F
1F0F8F0F+F8F,F0FaoF0FK*&FgpF0FhoF0FK*&F\\pF0-F36%F5FapF,F0F0*&)F(,*F7F
0F*F-F+!#7F1F,F0-F36%F5FPF,F0F0*&FEF0FgnF0F0*&FgnF0)F(,*F1F7F8F0F*F-F+
FGF0F0*&)F(,*F1F7\"#MF0F*F-F+FcoF0FeoF0F0*&-F36%FepFapF,F0FjnF0F0*&FMF
0)F(,*F1F7F7F0F*F-F+F,F0FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "a5:= eG1(15,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,J*&)%\"
qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0
\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#FF0F1F,F0-F36%,&F1F,\"\"$F0,(F
1F0F+F8\"\"'F0F,F0F0*&)F(,(F*F-F+\"#EFAF0F0-F36%,&F1F,F7F0F6F,F0!\"\"*
&-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0)F(,(F0F0F*F-F+F,F0FK*&-F36%F5,(F1F0
F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5,(F1F0F+F8FAF0F,F0)F(
,(FCF0F*F-F+FGF0FK*&FTF0)F(,*F1F7\"#>F0F*F-F+FenF0FK*&)F(,(F*F-F+\"##)
\"#JF0F0-F36%FOFBF,F0F0*&)F(,(\"#KF0F*F-F+FcoF0FeoF0F0*&-F36%F@,(F1F0F
,F0F+F8F,F0FQF0F0*&-F36%,$F1F,F6F,F0FXF0FK*&-F36%F@,(F1F0F8F0F+F8F,F0F
aoF0FK*&FdpF0FhoF0FK*&)F(,*FCF0F*F-F+\"#;F1F,F0-F36%FOF^pF,F0F0*&)F(,*
F7F0F*F-F+!#7F1F,F0-F36%F5FPF,F0F0*&FEF0FgnF0F0*&FgnF0)F(,*F1F7F8F0F*F
-F+FGF0F0*&)F(,*F1F7\"#MF0F*F-F+FcoF0FeoF0F0*&-F36%FbpF^pF,F0FjnF0F0*&
FMF0)F(,*F1F7F7F0F*F-F+F,F0FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "a6:= eG1(10,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a6G,L*&)%
\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F
0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#FF0F1F,F0-F36%,&F1F,\"\"$F0,(
F1F0F+F8\"\"'F0F,F0F0*&)F(,(F*F-F+\"#EFAF0F0-F36%,&F1F,F7F0F6F,F0!\"\"
*&-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0)F(,(F0F0F*F-F+F,F0FK*&-F36%F5,(F1F
0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5,(F1F0F+F8FAF0F,F0)F
(,(FCF0F*F-F+FGF0FK*&FTF0)F(,*F1F7\"#>F0F*F-F+FenF0FK*&)F(,(F*F-F+\"##
)\"#JF0F0-F36%FOFBF,F0F0*&)F(,(\"#KF0F*F-F+FcoF0FeoF0F0*&FQF0-F36%F5FP
F,F0F0*&)F(,*FWF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F
1F,F6F,F0FXF0FK*&-F36%F@,(F1F0F8F0F+F8F,F0FaoF0FK*&FjpF0FhoF0FK*&)F(,*
FCF0F*F-F+FapF1F,F0-F36%FOFdpF,F0F0*&)F(,*F7F0F*F-F+!#7F1F,F0F\\pF0F0*
&FEF0FgnF0F0*&FgnF0)F(,*F1F7F8F0F*F-F+FGF0F0*&)F(,*F1F7\"#MF0F*F-F+Fco
F0FeoF0F0*&-F36%FhpFdpF,F0FjnF0F0*&FMF0)F(,*F1F7F7F0F*F-F+F,F0FK" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a7:= eG0(10,a6);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#a7G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6
\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-
F+\"#s\"#FF0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F+F8\"\"'F0F,F0F0*&)F(,(F*F-
F+\"#EFAF0F0-F36%,&F1F,F7F0F6F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F
(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5,(F1F0F+F8FAF0F,F0)F(,(FCF0F*F-F+FGF0F
K*&FMF0)F(,*F1F7\"#>F0F*F-F+FTF0FK*&)F(,(F*F-F+\"##)\"#JF0F0-F36%,&F1F
,F0F0FBF,F0F0*&)F(,(\"#KF0F*F-F+F\\oF0F^oF0F0*&)F(,*FAF0F*F-F+!#7F1F,F
0-F36%F`o,&F1F0F+F8F,F0F0*&)F(,*FPF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F
+F8F,F0F0*&-F36%,$F1F,F6F,F0FQF0FK*&-F36%F@,(F1F0F8F0F+F8F,F0FjnF0FK*&
FhpF0FboF0FK*&)F(,*FCF0F*F-F+F_pF1F,F0-F36%F`oFbpF,F0F0*&)F(,*F7F0F*F-
F+FhoF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&FEF0FVF0F0*&FVF0)F(,*F1F7F8F0F
*F-F+FGF0F0*&)F(,*F1F7\"#MF0F*F-F+F\\oF0F^oF0F0*&-F36%FfpFbpF,F0FYF0F0
*&-F36%F`oFfqF,F0)F(,*F1F7F7F0F*F-F+F,F0FK" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "a8:= eG0(3,a7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%#a8G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F
1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#FF0F1F,F0-F36%,&F
1F,\"\"$F0,(F1F0F+F8\"\"'F0F,F0F0*&)F(,(F*F-F+\"#EFAF0F0-F36%F@F6F,F0!
\"\"*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%F@,(F1F0F+F8FAF0F,F0FJ*&-F36%F5,(F
1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5FQF,F0)F(,(FCF0F*F
-F+FGF0FJ*&FSF0)F(,*F1F7\"#>F0F*F-F+FZF0FJ*&)F(,(F*F-F+\"##)\"#JF0F0-F
36%,&F1F,F0F0FBF,F0F0*&)F(,(\"#KF0F*F-F+FaoF0FcoF0F0*&)F(,*FAF0F*F-F+!
#7F1F,F0-F36%Feo,&F1F0F+F8F,F0F0*&)F(,*FVF0F*F-F+\"#;F1F,F0-F36%F5,(F1
F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FWF0FJ*&-F36%F@,(F1F0F8F0F+F8F,F0F_
oF0FJ*&F]qF0FgoF0FJ*&)F(,*FCF0F*F-F+FdpF1F,F0-F36%FeoFgpF,F0F0*&)F(,*F
7F0F*F-F+F]pF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&FEF0FfnF0F0*&FfnF0)F(,*
F1F7F8F0F*F-F+FGF0F0*&)F(,*F1F7\"#MF0F*F-F+FaoF0FcoF0F0*&-F36%F[qFgpF,
F0FhnF0F0*&-F36%FeoF[rF,F0)F(,*F1F7F7F0F*F-F+F,F0FJ" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "a9:= eG1(3,a8);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#a9G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mG
F,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#FF
0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F+F8\"\"'F0F,F0F0*&)F(,*F*F-F+\"#SF/F0F
1F,F0F2F0!\"\"*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%F@,(F1F0F+F8FAF0F,F0FH*&
-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5FOF,F0)F
(,(FCF0F*F-F+\"#EF0FH*&FQF0)F(,*F1F7\"#>F0F*F-F+FXF0FH*&)F(,(F*F-F+\"#
#)\"#JF0F0-F36%,&F1F,F0F0FBF,F0F0*&)F(,(\"#KF0F*F-F+F`oF0FboF0F0*&)F(,
*FAF0F*F-F+!#7F1F,F0-F36%Fdo,&F1F0F+F8F,F0F0*&)F(,*FTF0F*F-F+\"#;F1F,F
0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FUF0FH*&-F36%F@,(F1F0F8
F0F+F8F,F0F^oF0FH*&F\\qF0FfoF0FH*&)F(,*FCF0F*F-F+FcpF1F,F0-F36%FdoFfpF
,F0F0*&)F(,*F7F0F*F-F+F\\pF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&FZF0)F(,*
F1F7F8F0F*F-F+FhnF0F0*&)F(,*F1F7\"#MF0F*F-F+F`oF0FboF0F0*&-F36%FjpFfpF
,F0FfnF0F0*&-F36%FdoFjqF,F0)F(,*F1F7F7F0F*F-F+F,F0FH" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 17 "a10:= eG1(13,a9);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a10G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"m
GF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#F
F0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F+F8\"\"'F0F,F0F0*&)F(,*F*F-F+\"#SF/F0
F1F,F0F2F0!\"\"*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%F@,(F1F0F+F8FAF0F,F0FH*
&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5FOF,F0)
F(,(FCF0F*F-F+\"#EF0FH*&FQF0)F(,*F1F7\"#>F0F*F-F+FXF0FH*&)F(,(F*F-F+\"
##)\"#JF0F0-F36%,&F1F,F0F0FBF,F0F0*&)F(,(\"#KF0F*F-F+F`oF0FboF0F0*&)F(
,*FAF0F*F-F+!#7F1F,F0-F36%Fdo,&F1F0F+F8F,F0F0*&)F(,*FTF0F*F-F+\"#;F1F,
F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FUF0FH*&F^oF0-F36%F5FB
F,F0FH*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FH*&-F36%
F@FeqF,F0FfoF0FH*&)F(,*FCF0F*F-F+FcpF1F,F0-F36%FdoFfpF,F0F0*&)F(,*F7F0
F*F-F+F\\pF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&FZF0)F(,*F1F7F8F0F*F-F+Fh
nF0F0*&)F(,*F1F7\"#MF0F*F-F+F`oF0FboF0F0*&-F36%FjpFfpF,F0FfnF0F0*&-F36
%FdoFcrF,F0)F(,*F1F7F7F0F*F-F+F,F0FH" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "a11:= eG0(13,a10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$a11G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,
&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#s\"#FF0F1F,F0-F36%,
&F1F,\"\"$F0,(F1F0F+F8\"\"'F0F,F0F0*&)F(,*F*F-F+\"#SF/F0F1F,F0F2F0!\"
\"*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%F@,(F1F0F+F8FAF0F,F0FH*&-F36%F5,(F1F
0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5FOF,F0)F(,(FCF0F*F-F
+\"#EF0FH*&FQF0)F(,*F1F7\"#>F0F*F-F+FXF0FH*&)F(,(\"#KF0F*F-F+\"##)F0-F
36%,&F1F,F0F0FBF,F0F0*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%Fdo,&F1F0F+F8F,F0F
0*&)F(,*FTF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6
F,F0FUF0FH*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FdoFSF,F0FH*&)F(,*F*F-F+\"
#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FH*&-F36%F@FeqF,F0F^oF0FH*&)F(
,*FCF0F*F-F+F_pF1F,F0-F36%FdoFbpF,F0F0*&)F(,*F7F0F*F-F+FhoF1F,F0-F36%F
5,(F1F0F+F8F0F0F,F0F0*&FZF0)F(,*F1F7F8F0F*F-F+FhnF0F0*&)F(,*F1F7\"#MF0
F*F-F+FaoF0FboF0F0*&-F36%FfpFbpF,F0FfnF0F0*&-F36%FdoFcrF,F0)F(,*F1F7F7
F0F*F-F+F,F0FH" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a12:= shi
ftdown(2,a11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a12G,J*&)%\"qG,**
$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F
0F+\"\"(F,F0F0*&)F(,*F*F-F+!#SF/F0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F+F8!
\"\"F0F,F0F0*&)F(,*F*F-F+\"#SF/F0F1F,F0F2F0FB*&)F(,*F*F-F+\"#7F@F0F1F,
F0-F36%F?,(F1F0F+F8F@F0F,F0FB*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0
F*F-F+\"#eF0F0*&-F36%F5FMF,F0)F(,(\"\"'F0F*F-F+\"#EF0FB*&FOF0)F(,*F1F7
\"#>F0F*F-F+FVF0FB*&)F(,(\"#KF0F*F-F+\"##)F0-F36%,&F1F,F0F0,(F1F0F+F8F
fnF0F,F0F0*&)F(,*F@F0F*F-F+!#7F1F,F0-F36%Fco,&F1F0F+F8F,F0F0*&)F(,*FRF
0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FSF0FB*
&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FcoFQF,F0FB*&)F(,*F*F-F+\"#'*\"#XF0F1
F,F0-F36%F5,(F1F0F8F0F+F8F,F0FB*&-F36%F?FeqF,F0F]oF0FB*&)F(,*FfnF0F*F-
F+F_pF1F,F0-F36%FcoFbpF,F0F0*&)F(,*F7F0F*F-F+FhoF1F,F0-F36%F5,(F1F0F+F
8F0F0F,F0F0*&FXF0)F(,*F1F7F8F0F*F-F+FgnF0F0*&)F(,*F1F7\"#MF0F*F-F+F`oF
0FaoF0F0*&-F36%FfpFbpF,F0FZF0F0*&-F36%FcoFcrF,F0)F(,*F1F7F7F0F*F-F+F,F
0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a13:= gpsym(2,a12);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a13G,J*&)%\"qG,**$%\"jG\"\"#\"#
cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0
*&)F(,*F*F-F+!#SF/F0F1F,F0-F36%,&F1F,\"\"$F0,(F1F0F7F0F+!\"(F,F0F0*&)F
(,*F*F-F+\"#SF/F0F1F,F0F2F0!\"\"*&)F(,*F*F-F+\"#7F@F0F1F,F0-F36%F?,(F1
F0F+F8F@F0F,F0FG*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F
0*&-F36%F5FNF,F0)F(,(\"\"'F0F*F-F+\"#EF0FG*&FPF0)F(,*F1F7\"#>F0F*F-F+F
WF0FG*&)F(,(\"#KF0F*F-F+\"##)F0-F36%,&F1F,F0F0,(F1F0F+F8FgnF0F,F0F0*&)
F(,*F@F0F*F-F+!#7F1F,F0-F36%Fdo,&F1F0F+F8F,F0F0*&)F(,*FSF0F*F-F+\"#;F1
F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FTF0FG*&)F(,*F*F-F+
\"#o\"#BF0F1F,F0-F36%FdoFRF,F0FG*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,
(F1F0F8F0F+F8F,F0FG*&-F36%F?FfqF,F0F^oF0FG*&)F(,*FgnF0F*F-F+F`pF1F,F0-
F36%FdoFcpF,F0F0*&)F(,*F7F0F*F-F+FioF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*
&FYF0)F(,*F1F7F8F0F*F-F+FhnF0F0*&)F(,*F1F7\"#MF0F*F-F+FaoF0FboF0F0*&-F
36%FgpFcpF,F0FenF0F0*&-F36%FdoFdrF,F0)F(,*F1F7F7F0F*F-F+F,F0FG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a14:= negate(2,a13);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a14G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#SF/F0F1F,F0-F36%,&F1F,\"\"$F0F6F,F0F0*&F:F0F2F0!\"\"*&)F(
,*F*F-F+\"#7F@F0F1F,F0-F36%F?,(F1F0F+F8F@F0F,F0FB*&-F36%F5,(F1F0F+F8\"
\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&-F36%F5FIF,F0)F(,(\"\"'F0F*F-F+\"#
EF0FB*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0FB*&)F(,(\"#KF0F*F-F+\"##)F0-F36%,
&F1F,F0F0,(F1F0F+F8FXF0F,F0F0*&)F(,*F@F0F*F-F+!#7F1F,F0-F36%F_o,&F1F0F
+F8F,F0F0*&)F(,*FNF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%
,$F1F,F6F,F0FOF0FB*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%F_oFMF,F0FB*&)F(,*
F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FB*&-F36%F?FaqF,F0FinF
0FB*&)F(,*FXF0F*F-F+F[pF1F,F0-F36%F_oF^pF,F0F0*&)F(,*F7F0F*F-F+FdoF1F,
F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&FTF0)F(,*F1F7F8F0F*F-F+FYF0F0*&)F(,*F1F
7\"#MF0F*F-F+F\\oF0F]oF0F0*&-F36%FbpF^pF,F0FVF0F0*&-F36%F_oF_rF,F0)F(,
*F1F7F7F0F*F-F+F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a1
5:= eG0(2,a14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a15G,H*&)%\"qG,*
*$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%
F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F
,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&-F36%F5,(F
1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&F>F0)F(,(\"\"'F0F*F-F+F<F
0FI*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0FI*&)F(,(\"#KF0F*F-F+\"##)F0-F36%,&F
1F,F0F0,(F1F0F+F8FVF0F,F0F0*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%F\\o,&F1F0F+
F8F,F0F0*&)F(,*FNF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,
$F1F,F6F,F0FOF0FI*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%F\\oFMF,F0FI*&)F(,*
F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&-F36%FHF^qF,F0FfnF
0FI*&)F(,*FVF0F*F-F+FhoF1F,F0-F36%F\\oF[pF,F0F0*&)F(,*F7F0F*F-F+FaoF1F
,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1
F7\"#MF0F*F-F+FinF0FjnF0F0*&-F36%F_pF[pF,F0FTF0F0*&-F36%F\\oF\\rF,F0)F
(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "
a16:= eG0(13,a15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16G,J*&)%\"q
G,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"
\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$
F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&-F36%F5
,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&F>F0)F(,(\"\"'F0F*F-F+
F<F0FI*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0FI*&)F(,(\"#KF0F*F-F+\"##)F0-F36%
,&F1F,F0F0,(F1F0F+F8FVF0F,F0F0*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%F\\o,&F1F
0F+F8F,F0F0*&)F(,*FNF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F3
6%,$F1F,F6F,F0FOF0FI*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%F\\oFMF,F0FI*&)F
(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&FfnF0F\\qF0FI*&
)F(,*\"#CF0F*F-F+FcpF1F,F0-F36%F5F]oF,F0FI*&)F(,*FVF0F*F-F+FhoF1F,F0-F
36%F\\oF[pF,F0F0*&)F(,*F7F0F*F-F+FaoF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*
&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+FinF0FjnF0F0*&-F3
6%F_pF[pF,F0FTF0F0*&-F36%F\\oF`rF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a17:= eG1(13,a16);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a17G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#
6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F
-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF
0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"
#=F0F*F-F+\"#eF0F0*&F>F0)F(,(\"\"'F0F*F-F+F<F0FI*&FKF0)F(,*F1F7\"#>F0F
*F-F+FRF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&
)F(,*FNF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F
0FOF0FI*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%F[oFMF,F0FI*&)F(,*F*F-F+\"#'*
\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&)F(,*\"#YF0F*F-F+FbpF1F,F0-F3
6%F[oFfpF,F0FI*&)F(,*\"#CF0F*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FVF0F,F0FI*
&)F(,*FVF0F*F-F+F`oF1F,F0-F36%F[oFcoF,F0F0*&)F(,*F7F0F*F-F+FhnF1F,F0-F
36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#
MF0F*F-F+\"##)F0-F36%F[oFcqF,F0F0*&-F36%FgoFcoF,F0FTF0F0*&-F36%F[oF^rF
,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 24 "a18:= shiftdown(12,a17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a
18G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,
F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F
1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!
\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&F>F0)F(,(
\"\"'F0F*F-F+F<F0FI*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0FI*&)F(,*FAF0F*F-F+!
#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*FNF0F*F-F+\"#;F1F,F0-F36
%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FOF0FI*&)F(,*F*F-F+\"#o\"#BF
0F1F,F0-F36%F[oFMF,F0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0
F+F8F,F0FI*&)F(,*FVF0F*F-F+!#;F1F,F0FinF0FI*&)F(,*\"#CF0F*F-F+F[pF1F,F
0-F36%F5,(F1F0F+F8FVF0F,F0FI*&)F(,*FVF0F*F-F+F`oF1F,F0-F36%F[oFcoF,F0F
0*&)F(,*F7F0F*F-F+FhnF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F
8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%F[oFaqF,F0F0*&-F36%F
goFcoF,F0FTF0F0*&-F36%F[oF\\rF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a19:= gpsym(12,a18);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%$a19G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"
\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+
\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1
F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F
0F*F-F+\"#eF0F0*&F>F0)F(,(\"\"'F0F*F-F+F<F0FI*&FKF0)F(,*F1F7\"#>F0F*F-
F+FRF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(
,*FNF0F*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FO
F0FI*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%F[oFMF,F0FI*&)F(,*F*F-F+\"#'*\"#
XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&)F(,*FVF0F*F-F+!#;F1F,F0-F36%F[o
,(F1F0F0F0F+!\"(F,F0FI*&)F(,*\"#CF0F*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FVF
0F,F0FI*&)F(,*FVF0F*F-F+F`oF1F,F0-F36%F[oFcoF,F0F0*&)F(,*F7F0F*F-F+Fhn
F1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,
*F1F7\"#MF0F*F-F+\"##)F0-F36%F[oFeqF,F0F0*&-F36%FgoFcoF,F0FTF0F0*&-F36
%F[oF`rF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "a20:= negate(12,a19);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a20G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#g
pG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0
-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FA
F0F@F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&
F>F0)F(,(\"\"'F0F*F-F+F<F0FI*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0FI*&)F(,*FA
F0F*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*FNF0F*F-F+\"#;F
1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FOF0FI*&)F(,*F*F-F+
\"#o\"#BF0F1F,F0-F36%F[oFMF,F0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,
(F1F0F8F0F+F8F,F0FI*&)F(,*FVF0F*F-F+F`oF1F,F0-F36%F[o,(F1F0F+F8F0F0F,F
0FI*&)F(,*\"#CF0F*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FVF0F,F0FI*&FhpF0-F36%
F[oFcoF,F0F0*&)F(,*F7F0F*F-F+FhnF1F,F0-F36%F5F\\qF,F0F0*&F>F0)F(,*F1F7
F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%F[oFcqF,F0F0*&-F36%
FgoFcoF,F0FTF0F0*&FjpF0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 18 "a21:= eG0(12,a20);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a21G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"m
GF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"
*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36
%,&F1F,FAF0F@F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+
\"#eF0F0*&F>F0)F(,(\"\"'F0F*F-F+F<F0FI*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0F
I*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*FNF0F
*F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FOF0FI*&)
F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%F[oFMF,F0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,
F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&)F(,*FVF0F*F-F+F`oF1F,F0-F36%Fgo,(F1F0F
+F8F0F0F,F0FI*&)F(,*FVF0F*F-F+F,F1F7F0-F36%FgoF\\oF,F0FI*&)F(,*\"#CF0F
*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FVF0F,F0FI*&FhpF0-F36%F[oFcoF,F0F0*&)F(
,*F7F0F*F-F+FhnF1F,F0-F36%F5F\\qF,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*
&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%F[oFhqF,F0F0*&-F36%FgoFcoF,F0FTF0F0*
&-F36%F[oF\\qF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 18 "a22:= eG1(15,a21);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a22G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6
%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F3
6%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F
@F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,(\"#=F0F*F-F+\"#eF0F0*&F>F
0)F(,(\"\"'F0F*F-F+F<F0FI*&FKF0)F(,*F1F7\"#>F0F*F-F+FRF0FI*&)F(,*FAF0F
*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*FNF0F*F-F+\"#;F1F,
F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FOF0FI*&)F(,*F*F-F+\"#
o\"#BF0F1F,F0-F36%F[oFMF,F0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1
F0F8F0F+F8F,F0FI*&)F(,*FVF0F*F-F+F,F1F7F0-F36%FgoF\\oF,F0FI*&)F(,*\"#C
F0F*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FVF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F
7F0-F36%FgoFcoF,F0F0*&)F(,*F7F0F*F-F+FhnF1F,F0-F36%F5,(F1F0F+F8F0F0F,F
0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%F
[oFbqF,F0F0*&FhqF0FTF0F0*&-F36%F[oF_rF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a23:= eG1(4,a22);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a23G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#
6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F
-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF
0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,(\"#=F0F*F-F+\"#eF0-F36%,&F1F,F
0F0F6F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%FQ,(F1F0F+F8\"\"&F0F,F0F0
*&F>F0)F(,(\"\"'F0F*F-F+F<F0FI*&-F36%F5FYF,F0)F(,*F1F7\"#>F0F*F-F+FNF0
FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FQ,&F1F0F+F8F,F0F0*&)F(,*FZF0F*F-F+\"
#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&-F36%,$F1F,F6F,F0FKF0FI*&)F(,*F*F
-F+\"#o\"#BF0F1F,F0FWF0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8
F0F+F8F,F0FI*&)F(,*FhnF0F*F-F+F,F1F7F0-F36%F`pFeoF,F0FI*&)F(,*\"#CF0F*
F-F+FdpF1F,F0-F36%F5,(F1F0F+F8FhnF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0
-F36%F`pF\\pF,F0F0*&)F(,*F7F0F*F-F+FboF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F
0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%FQF
iqF,F0F0*&F_rF0FfnF0F0*&-F36%FQFfrF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a24:= eG0(4,a23);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a24G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#
6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F
-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF
0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F
@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"\"&F0F,
F0F0*&F>F0)F(,(\"\"'F0F*F-F+F<F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+
\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*FYF0F*
F-F+\"#;F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0
FUF0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&)F(,*
FgnF0F*F-F+F,F1F7F0-F36%FOFeoF,F0FI*&)F(,*\"#CF0F*F-F+F`pF1F,F0-F36%F5
,(F1F0F+F8FgnF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FOF\\pF,F0F0*&)
F(,*F7F0F*F-F+FboF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F
*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%FWFeqF,F0F0*&F[rF0FenF0F
0*&-F36%FWFbrF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "a25:= eG0(6,a24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a25G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%
,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36
%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@
F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-
F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,(\"\"'F0F*F-F+
F<F0-F36%FWF@F,F0FI*&)F(,*F7F0F*F-F+FEF1F,F0-F36%FW,(F1F0F,F0F+F8F,F0F
I*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F
0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*FYF0F*F-F+\"#;F1F,F0-F36%F5F_oF,F0F0*&)
F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0FI*&)F(,*F*F-F+\"#'*\"#XF0F1F,F0-F36%F5,
(F1F0F8F0F+F8F,F0FI*&)F(,*FgnF0F*F-F+F,F1F7F0-F36%FOF]pF,F0FI*&)F(,*\"
#CF0F*F-F+FgpF1F,F0-F36%F5,(F1F0F+F8FgnF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#I
F1F7F0-F36%FOF_oF,F0F0*&)F(,*F7F0F*F-F+FjoF1F,F0-F36%F5,(F1F0F+F8F0F0F
,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36
%FWF\\rF,F0F0*&FbrF0FenF0F0*&-F36%FWFirF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a26:= eG1(6,a25);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a26G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+
\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%
,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF1F,F0-
F36%FW,(F1F0F,F0F+F8F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI
*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*FYF0F*F-F+\"#;
F1F,F0-F36%F5F]oF,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0FI*&)F(,*F*F-F+
\"#'*\"#XF0F1F,F0-F36%F5,(F1F0F8F0F+F8F,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7
F0-F36%FOF[pF,F0FI*&)F(,*\"#CF0F*F-F+FepF1F,F0-F36%F5,(F1F0F+F8FbqF0F,
F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FOF]oF,F0F0*&)F(,*F7F0F*F-F+FhoF
1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*
F1F7\"#MF0F*F-F+\"##)F0-F36%FWF[rF,F0F0*&-F36%FWFhrF,F0)F(,*F1F7F7F0F*
F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a27:= shiftdo
wn(12,a26);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,H*&)%\"qG,**$%
\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F
+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0
F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-
F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F
0F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0
F*F-F+FEF1F,F0-F36%FW,(F1F0F,F0F+F8F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F
0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,
*FYF0F*F-F+\"#;F1F,F0-F36%F5F]oF,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0
FI*&)F(,*F*F-F+!#;FYF0F1F,F0-F36%F5F[pF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7
F0-F36%FOF[pF,F0FI*&)F(,*\"#CF0F*F-F+FepF1F,F0-F36%F5,(F1F0F+F8F`qF0F,
F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FOF]oF,F0F0*&)F(,*F7F0F*F-F+FhoF
1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*
F1F7\"#MF0F*F-F+\"##)F0-F36%FWFiqF,F0F0*&-F36%FWFfrF,F0)F(,*F1F7F7F0F*
F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a28:= gpsym(1
2,a27);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a28G,H*&)%\"qG,**$%\"jG
\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"
\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*
&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F
.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0
,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F
-F+FEF1F,F0-F36%FW,(F1F0F,F0F+F8F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*
F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*FY
F0F*F-F+\"#;F1F,F0-F36%F5F]oF,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0FI*
&)F(,*F*F-F+!#;FYF0F1F,F0-F36%F5,(F1F0F,F0F+!\"(F,F0FI*&)F(,*\"\"'F0F*
F-F+F,F1F7F0-F36%FOF[pF,F0FI*&)F(,*\"#CF0F*F-F+FepF1F,F0-F36%F5,(F1F0F
+F8FbqF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FOF]oF,F0F0*&)F(,*F7F0
F*F-F+FhoF1F,F0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F
0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%FWF[rF,F0F0*&-F36%FWFhrF,F0)F(,*
F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a29
:= negate(12,a28);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a29G,D*&)%\"q
G,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"
\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$
F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FE
F0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,
&F1F,F0F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(
,*F7F0F*F-F+FEF1F,F0-F36%FW,(F1F0F,F0F+F8F,F0FI*&-F36%F5FXF,F0)F(,*F1F
7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0
*&)F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FO
F[pF,F0FI*&)F(,*\"#CF0F*F-F+F_pF1F,F0-F36%F5,(F1F0F+F8FdpF0F,F0FI*&)F(
,*\"#5F0F*F-F+\"#IF1F7F0-F36%FOF]oF,F0F0*&)F(,*F7F0F*F-F+FhoF1F,F0-F36
%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF
0F*F-F+\"##)F0-F36%FWF]qF,F0F0*&-F36%FWFjqF,F0)F(,*F1F7F7F0F*F-F+F,F0F
I" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a30:= gpsym(14,a29);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a30G,D*&)%\"qG,**$%\"jG\"\"#\"#cF
+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&
)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F
+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36
%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8
\"\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF1F,F
0-F36%FW,(F1F0F,F0F+F8F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0
FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"
#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF[pF,F0FI*&)F(,*\"#
CF0F*F-F+F_pF1F,F0-F36%F5,(F1F0F+F8FdpF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF
1F7F0-F36%FOF]oF,F0F0*&)F(,*F7F0F*F-F+FhoF1F,F0-F36%F5,(F1F0F0F0F+!\"(
F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F3
6%FWF]qF,F0F0*&-F36%FW,(F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a31:= negate(14,a30);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a31G,D*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+
\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%
,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF1F,F0-
F36%FW,(F1F0F,F0F+F8F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI
*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#B
F0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF[pF,F0FI*&)F(,*\"#CF
0F*F-F+F_pF1F,F0-F36%F5,(F1F0F+F8FdpF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F
7F0-F36%FOF]oF,F0F0*&FinF0-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8
F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%FWF]qF,F0F0*&-F36%FWF
hqF,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 19 "a32:= gpsym(7,a31);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a32G
,D*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F
0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0
F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"
*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F
,F0-F36%,&F1F,F0F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FM
F0FI*&)F(,*F7F0F*F-F+FEF1F,F0-F36%FW,(F1F0FIF0F+!\"(F,F0FI*&-F36%F5FXF
,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F
0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1
F7F0-F36%FOF\\pF,F0FI*&)F(,*\"#CF0F*F-F+F`pF1F,F0-F36%F5,(F1F0F+F8FepF
0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&FinF0
-F36%F5,(F1F0F+F8F0F0F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7
\"#MF0F*F-F+\"##)F0-F36%FWF^qF,F0F0*&-F36%FWFjqF,F0)F(,*F1F7F7F0F*F-F+
F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a33:= gpsym(14,a3
2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a33G,D*&)%\"qG,**$%\"jG\"\"#
\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F
0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*
F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F
0-F36%,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0
F+F8\"\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF
1F,F0-F36%FW,(F1F0FIF0F+!\"(F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+
\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+
\"#o\"#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF\\pF,F0FI*&)
F(,*\"#CF0F*F-F+F`pF1F,F0-F36%F5,(F1F0F+F8FepF0F,F0FI*&)F(,*\"#5F0F*F-
F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&FinF0-F36%F5,(F1F0F0F0F+F^oF,
F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"#MF0F*F-F+\"##)F0-F36%
FWF^qF,F0F0*&-F36%FW,(F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a34:= shiftdown(16,a33);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a34G,D*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+
\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%
,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF1F,F0-
F36%FW,(F1F0FIF0F+!\"(F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0
FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"
#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF\\pF,F0FI*&)F(,*\"
#CF0F*F-F+F`pF1F,F0-F36%F5,(F1F0F+F8FepF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#I
F1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&FinF0-F36%F5,(F1F0F0F0F+F^oF,F0F0*&
F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%FW,(F1F
0F+F8FIF0F,F0F0*&-F36%FW,(F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a35:= eG1(14,a34);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a35G,F*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+
\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%
,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF1F,F0-
F36%FW,(F1F0FIF0F+!\"(F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0
FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"
#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF\\pF,F0FI*&)F(,*\"
#CF0F*F-F+F`pF1F,F0-F36%F5,(F1F0F+F8FepF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#I
F1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&FinF0-F36%FW,&F1F0F+F^oF,F0F0*&)F(,
*FepF0F*F-F+!\"#F1F7F0-F36%FW,(F1F0F0F0F+F^oF,F0F0*&F>F0)F(,*F1F7F8F0F
*F-F+F<F0F0*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%FW,(F1F0F+F8FIF0F,F0F0*&-
F36%FW,(F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 18 "a36:= eG1(14,a35);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a36G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"m
GF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"
*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36
%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F
(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*
FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*F7F0F*F-F+FEF1F,F0-F36%FW,(F1F0FIF0F+
!\"(F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F
+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0FUF0FI*&
)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF\\pF,F0FI*&)F(,*\"#CF0F*F-F+F`pF1F,F
0-F36%F5,(F1F0F+F8FepF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F
0F,F0F+F8F,F0F0*&FinF0-F36%FOF]oF,F0F0*&)F(,*F7F0F*F-F+!\"#F1F7F0-F36%
FO,&F1F0F+F^oF,F0F0*&)F(,*FepF0F*F-F+F]rF1F7F0-F36%FW,(F1F0F0F0F+F^oF,
F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%F
W,(F1F0F+F8FIF0F,F0F0*&-F36%FW,(F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F
0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a37:= eG0(7,a36);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a37G,F*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+
\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%
,$F1F,F@F,F0F0*&)F(,*\"#GF0F*F-F+\"#sF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*\"\")F0F*F-F+F<F1F7
F0-F36%FO,(F1F0!\"#F0F+!\"(F,F0FI*&-F36%F5FXF,F0)F(,*F1F7\"#>F0F*F-F+
\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FW,&F1F0F+F8F,F0F0*&)F(,*F*F-F+
\"#o\"#BF0F1F,F0FUF0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOF^pF,F0FI*&)F
(,*\"#CF0F*F-F+FbpF1F,F0-F36%F5,(F1F0F+F8FgpF0F,F0FI*&)F(,*\"#5F0F*F-F
+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&)F(,*F7F0F*F-F+F_oF1F7F0-F36%F
O,&F1F0F+F`oF,F0F0*&)F(,*FgpF0F*F-F+F_oF1F7F0-F36%FW,(F1F0F0F0F+F`oF,F
0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7F[oF0F*F-F+!#IF0-F36%FW,(
F1F0F+F8FIF0F,F0F0*&-F36%FW,(F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a38:= shiftdown(5,a37);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a38G,F*&)%\"qG,**$%\"jG\"\"#\"#
cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0
*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F
-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F
36%,$F1F,F@F,F0F0*&)F(,*FEF0F*F-F+!#SF1F,F0-F36%,&F1F,F0F0,(F1F0F+F8!
\"#F0F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*\"\")F0F*F-F+F<F1F7
F0-F36%FO,(F1F0FXF0F+!\"(F,F0FI*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7
\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FV,&F1F0F+F8F,F0F0*
&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FVFboF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7
F0-F36%FOF^pF,F0FI*&)F(,*\"#CF0F*F-F+FbpF1F,F0-F36%F5,(F1F0F+F8FipF0F,
F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&)F(,*F7F
0F*F-F+FXF1F7F0-F36%FO,&F1F0F+F^oF,F0F0*&)F(,*FipF0F*F-F+FXF1F7F0-F36%
FV,(F1F0F0F0F+F^oF,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7FjnF0
F*F-F+!#IF0-F36%FV,(F1F0F+F8FIF0F,F0F0*&-F36%FV,(F1F0F+F8F0F0F,F0)F(,*
F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a39
:= gpsym(5,a38);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a39G,F*&)%\"qG,
**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"
%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0
F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0
F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*FEF0F*F-F+!#SF1F,F0-F36%,&F1F,
F0F0,(F1F0FAF0F+!\"(F,F0F0*&)F(,*FEF0F*F-F+\"#SF1F,F0FMF0FI*&)F(,*\"\"
)F0F*F-F+F<F1F7F0-F36%FO,(F1F0!\"#F0F+FXF,F0FI*&-F36%F5,(F1F0F+F8\"\"&
F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FV,&
F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FVFboF,F0FI*&)F(,*\"\"
'F0F*F-F+F,F1F7F0-F36%FOF^pF,F0FI*&)F(,*\"#CF0F*F-F+FbpF1F,F0-F36%F5,(
F1F0F+F8FipF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F
,F0F0*&)F(,*F7F0F*F-F+F^oF1F7F0-F36%FO,&F1F0F+FXF,F0F0*&)F(,*FipF0F*F-
F+F^oF1F7F0-F36%FV,(F1F0F0F0F+FXF,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*
&)F(,*F1F7FjnF0F*F-F+!#IF0-F36%FV,(F1F0F+F8FIF0F,F0F0*&-F36%FV,(F1F0F+
F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a40:= negate(5,a39);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a40G,F*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6
%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F3
6%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F
@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*FEF0F*F-F
+\"#SF1F,F0-F36%,&F1F,F0F0F@F,F0F0*&FQF0FMF0FI*&)F(,*\"\")F0F*F-F+F<F1
F7F0-F36%FO,(F1F0!\"#F0F+!\"(F,F0FI*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*
F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%FV,&F1F0F+F8F,F
0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FVF^oF,F0FI*&)F(,*\"\"'F0F*F-F+F,
F1F7F0-F36%FOFjoF,F0FI*&)F(,*\"#CF0F*F-F+F^pF1F,F0-F36%F5,(F1F0F+F8Fep
F0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&)F(,
*F7F0F*F-F+FinF1F7F0-F36%FO,&F1F0F+FjnF,F0F0*&)F(,*FepF0F*F-F+FinF1F7F
0-F36%FV,(F1F0F0F0F+FjnF,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F
7FenF0F*F-F+!#IF0-F36%FV,(F1F0F+F8FIF0F,F0F0*&-F36%FV,(F1F0F+F8F0F0F,F
0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "a41:= eG0(5,a40);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a41G,D*&)%
\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F
0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"
\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,
*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"\")F0F*F-F+F<F1F7F0-F36
%FO,(F1F0F,F0F+F8F,F0F0*&FQF0-F36%FO,(F1F0!\"#F0F+!\"(F,F0FI*&-F36%F5,
(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F
1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%
FfoFjnF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOFgoF,F0FI*&)F(,*\"#CF0F
*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FbpF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F
0FTF0F0*&)F(,*F7F0F*F-F+FenF1F7F0-F36%FO,&F1F0F+FfnF,F0F0*&)F(,*FbpF0F
*F-F+FenF1F7F0-F36%Ffo,(F1F0F0F0F+FfnF,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<
F0F0*&)F(,*F1F7FSF0F*F-F+!#IF0-F36%Ffo,(F1F0F+F8FIF0F,F0F0*&-F36%Ffo,(
F1F0F+F8F0F0F,F0)F(,*F1F7F7F0F*F-F+F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 21 "a42:= negate(13,a41);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a42G,D*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#g
pG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0
-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FA
F0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"\")F
0F*F-F+F<F1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&FQF0-F36%FO,(F1F0!\"#F0F+!
\"(F,F0FI*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&
)F(,*FAF0F*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"
#o\"#BF0F1F,F0-F36%FfoFjnF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOFgoF
,F0FI*&)F(,*\"#CF0F*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FbpF0F,F0FI*&)F(,*\"
#5F0F*F-F+\"#IF1F7F0FTF0F0*&)F(,*F1F7F7F0F*F-F+F,F0FcpF0F0*&)F(,*FbpF0
F*F-F+FenF1F7F0-F36%Ffo,(F1F0F0F0F+FfnF,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F
<F0F0*&)F(,*F1F7FSF0F*F-F+!#IF0-F36%Ffo,(F1F0F+F8FIF0F,F0F0*&-F36%Ffo,
(F1F0F+F8F0F0F,F0FbqF0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 
"a43:= eG1(17,a42);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a43G,B*&)%\"
qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0
\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"
\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,
*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&)F(,*\"\")F0F*F-F+F<F1F7F0-F36
%FO,(F1F0F,F0F+F8F,F0F0*&FQF0-F36%FO,(F1F0!\"#F0F+!\"(F,F0FI*&-F36%F5,
(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F
1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%
FfoFjnF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FOFgoF,F0FI*&)F(,*\"#CF0F
*F-F+F[pF1F,F0-F36%F5,(F1F0F+F8FbpF0F,F0FI*&)F(,*\"#5F0F*F-F+\"#IF1F7F
0FTF0F0*&)F(,*FbpF0F*F-F+FenF1F7F0-F36%Ffo,(F1F0F0F0F+FfnF,F0F0*&F>F0)
F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7FSF0F*F-F+!#IF0-F36%Ffo,(F1F0F+F8FI
F0F,F0F0*&)F(,*F1FbpFbpF0F*F-F+\"#;F0-F36%FO,(F1F0F+F8F0F0F,F0FI" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a44:= gpsym(6,a43);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a44G,>*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+
\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%
,$F1F,F@F,F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF
0FI*&)F(,*FAF0F*F-F+!#7F1F,F0-F36%,&F1F,F0F0,&F1F0F+F8F,F0F0*&)F(,*F*F
-F+\"#o\"#BF0F1F,F0-F36%FinFSF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FO
FjnF,F0FI*&)F(,*\"#CF0F*F-F+F^oF1F,F0-F36%F5,(F1F0F+F8FeoF0F,F0FI*&)F(
,*\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&)F(,*FeoF0F*F-F+!
\"#F1F7F0-F36%Fin,(F1F0F0F0F+!\"(F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0
*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%Fin,(F1F0F+F8FIF0F,F0F0*&)F(,*F1FeoF
eoF0F*F-F+\"#;F0-F36%FO,(F1F0F+F8F0F0F,F0FI" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 19 "a45:= gpsym(6,a44);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a45G,>*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#g
pG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0
-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FA
F0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F0-F36%,$F1F,F@F,F0F0*&-F36%F5,(F1
F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FI*&)F(,*FAF0F*F-F+!#7F1F,
F0-F36%,&F1F,F0F0,(F1F0F0F0F+!\"(F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F
36%FinFSF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FO,&F1F0F+F8F,F0FI*&)F(
,*\"#CF0F*F-F+F_oF1F,F0-F36%F5,(F1F0F+F8FfoF0F,F0FI*&)F(,*\"#5F0F*F-F+
\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&)F(,*FfoF0F*F-F+!\"#F1F7F0FgnF0
F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%Fin
,(F1F0F+F8FIF0F,F0F0*&)F(,*F1FfoFfoF0F*F-F+\"#;F0-F36%FO,(F1F0F+F8F0F0
F,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a46:= negate(6,a4
5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a46G,>*&)%\"qG,**$%\"jG\"\"#
\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F
0F0*&)F(,*F*F-F+\"#E\"\"*F0F1F7F0-F36%F5,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*
F*F-F+\"#7FAF0F1F,F0-F36%,&F1F,FAF0F@F,F0!\"\"*&)F(,*FEF0F*F-F+F.F1F,F
0-F36%,$F1F,F@F,F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F
+\"#eF0FI*&FCF0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#
BF0F1F,F0-F36%FfnFSF,F0FI*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FO,&F1F0F+F8
F,F0FI*&)F(,*\"#CF0F*F-F+F[oF1F,F0-F36%F5,(F1F0F+F8FboF0F,F0FI*&)F(,*
\"#5F0F*F-F+\"#IF1F7F0-F36%FO,(F1F0F,F0F+F8F,F0F0*&)F(,*FboF0F*F-F+!\"
#F1F7F0-F36%Ffn,(F1F0F0F0F+!\"(F,F0F0*&F>F0)F(,*F1F7F8F0F*F-F+F<F0F0*&
)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%Ffn,(F1F0F+F8FIF0F,F0F0*&)F(,*F1FboFbo
F0F*F-F+\"#;F0-F36%FOFgnF,F0FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "a47:= eG1(3,a46);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a47G,<
*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,
(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,
F0F+F8F,F0!\"\"*&)F(,*F<F0F*F-F+F.F1F,F0-F36%,$F1F,,(F1F0F+F8F=F0F,F0F
0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-F36
%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FUFLF
,F0FA*&)F(,*\"\"'F0F*F-F+F,F1F7F0-F36%FG,&F1F0F+F8F,F0FA*&)F(,*\"#CF0F
*F-F+FZF1F,F0-F36%F5,(F1F0F+F8F[oF0F,F0FA*&)F(,*\"#5F0F*F-F+\"#IF1F7F0
-F36%FGF@F,F0F0*&)F(,*F[oF0F*F-F+!\"#F1F7F0-F36%FU,(F1F0F0F0F+!\"(F,F0
F0*&-F36%F5FHF,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7\"\")F0F*F-F+!#
IF0-F36%FU,(F1F0F+F8FAF0F,F0F0*&)F(,*F1F[oF[oF0F*F-F+\"#;F0-F36%FGFVF,
F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a48:= eG0(3,a47);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a48G,>*&)%\"qG,**$%\"jG\"\"#\"#cF
+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&
)F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&)F(,*F<F0F
*F-F+F.F1F,F0-F36%,&F1F,FAF0,(F1F0F+F8F=F0F,F0F0*&)F(,*\"\"'F0F*F-F+\"
#IF1F7F0-F36%FGF@F,F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*
F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o
\"#BF0F1F,F0-F36%FfnFSF,F0FA*&)F(,*FLF0F*F-F+F,F1F7F0-F36%,$F1F,,&F1F0
F+F8F,F0FA*&)F(,*\"#CF0F*F-F+F[oF1F,F0-F36%F5,(F1F0F+F8FLF0F,F0FA*&)F(
,*\"#5F0F*F-F+FMF1F7F0-F36%FdoF@F,F0F0*&)F(,*FLF0F*F-F+!\"#F1F7F0-F36%
Ffn,(F1F0F0F0F+!\"(F,F0F0*&-F36%F5FHF,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)
F(,*F1F7\"\")F0F*F-F+!#IF0-F36%Ffn,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FLFLF0F
*F-F+\"#;F0-F36%FdoFgnF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 23 "a49:= shiftdown(9,a48);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a4
9G,>*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F
,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1
F0F,F0F+F8F,F0!\"\"*&)F(,*F<F0F*F-F+F.F1F,F0-F36%,&F1F,FAF0,(F1F0F+F8F
=F0F,F0F0*&)F(,*\"\"'F0F*F-F+\"#IF1F7F0-F36%FGF@F,F0F0*&-F36%F5,(F1F0F
+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F1F0
F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FfnFSF,F0FA*&)F(,*FLF0
F*F-F+F,F1F7F0-F36%,$F1F,,&F1F0F+F8F,F0FA*&)F(,*F<F0F*F-F+!#WF1F,F0-F3
6%F5,(F1F0F+F8FAF0F,F0FA*&)F(,*\"#5F0F*F-F+FMF1F7F0-F36%FdoF@F,F0F0*&)
F(,*FLF0F*F-F+!\"#F1F7F0-F36%Ffn,(F1F0F0F0F+!\"(F,F0F0*&-F36%F5FHF,F0)
F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%FfnF\\pF,F
0F0*&)F(,*F1FLFLF0F*F-F+\"#;F0-F36%FdoFgnF,F0FA" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "a50:= gpsym(9,a49);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a50G,>*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"m
GF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#7\"\"
$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&)F(,*F<F0F*F-F+F.F1F,F0-F36%,
&F1F,FAF0,(F1F0F+F8F=F0F,F0F0*&)F(,*\"\"'F0F*F-F+\"#IF1F7F0-F36%FGF@F,
F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-
F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%Ff
nFSF,F0FA*&)F(,*FLF0F*F-F+F,F1F7F0-F36%,$F1F,,&F1F0F+F8F,F0FA*&)F(,*F<
F0F*F-F+!#WF1F,F0-F36%F5,(F1F0F=F0F+!\"(F,F0FA*&)F(,*\"#5F0F*F-F+FMF1F
7F0-F36%FdoF@F,F0F0*&)F(,*FLF0F*F-F+!\"#F1F7F0-F36%Ffn,(F1F0F0F0F+F]pF
,F0F0*&-F36%F5FHF,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7\"\")F0F*F-F
+!#IF0-F36%Ffn,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FLFLF0F*F-F+\"#;F0-F36%FdoF
gnF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a51:= negate(9,
a50);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a51G,>*&)%\"qG,**$%\"jG\"
\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(
F,F0F0*&)F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&)F
(,*F<F0F*F-F+F.F1F,F0-F36%,&F1F,FAF0,(F1F0F+F8F=F0F,F0F0*&)F(,*\"\"'F0
F*F-F+\"#IF1F7F0-F36%FGF@F,F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7
\"#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*
F-F+\"#o\"#BF0F1F,F0-F36%FfnFSF,F0FA*&)F(,*FLF0F*F-F+F,F1F7F0-F36%,$F1
F,,&F1F0F+F8F,F0FA*&FCF0-F36%F5FHF,F0FA*&)F(,*\"#5F0F*F-F+FMF1F7F0-F36
%FdoF@F,F0F0*&)F(,*FLF0F*F-F+!\"#F1F7F0-F36%Ffn,(F1F0F0F0F+!\"(F,F0F0*
&FgoF0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7\"\")F0F*F-F+!#IF0-F36%Ffn
,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FLFLF0F*F-F+\"#;F0-F36%FdoFgnF,F0FA" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a52:= eG0(9,a51);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a52G,@*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#
6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F
-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&)F(,*F<F0F*F-F+F.F
1F,F0-F36%,&F1F,FAF0,(F1F0F+F8F=F0F,F0F0*&)F(,*\"\"'F0F*F-F+\"#IF1F7F0
-F36%FGF@F,F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#e
F0FA*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1
F,F0-F36%FfnFSF,F0FA*&)F(,*FLF0F*F-F+F,F1F7F0-F36%,$F1F,,&F1F0F+F8F,F0
FA*&FCF0-F36%FfnFHF,F0FA*&)F(,*\"#5F0F*F-F+FMF1F7F0-F36%FfnF@F,F0FA*&F
joF0-F36%FdoF@F,F0F0*&)F(,*FLF0F*F-F+!\"#F1F7F0-F36%Ffn,(F1F0F0F0F+!\"
(F,F0F0*&-F36%F5FHF,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7\"\")F0F*F
-F+!#IF0-F36%Ffn,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FLFLF0F*F-F+\"#;F0-F36%Fd
oFgnF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a53:= eG0(9,a
52);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a53G,B*&)%\"qG,**$%\"jG\"\"
#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,
F0F0*&)F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&)F(,
*F<F0F*F-F+F.F1F,F0-F36%,&F1F,FAF0,(F1F0F+F8F=F0F,F0F0*&)F(,*\"\"'F0F*
F-F+\"#IF1F7F0-F36%FGF@F,F0F0*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"
#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-
F+\"#o\"#BF0F1F,F0-F36%FfnFSF,F0FA*&)F(,*FLF0F*F-F+F,F1F7F0-F36%,$F1F,
,&F1F0F+F8F,F0FA*&FCF0-F36%FdoFHF,F0FA*&)F(,*\"\")F0F*F-F+FMF1F7F0-F36
%FdoF@F,F0FA*&)F(,*\"#5F0F*F-F+FMF1F7F0-F36%FfnF@F,F0FA*&F`pF0F]pF0F0*
&)F(,*FLF0F*F-F+!\"#F1F7F0-F36%Ffn,(F1F0F0F0F+!\"(F,F0F0*&-F36%F5FHF,F
0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7F\\pF0F*F-F+!#IF0-F36%Ffn,(F1F0
F+F8FAF0F,F0F0*&)F(,*F1FLFLF0F*F-F+\"#;F0-F36%FdoFgnF,F0FA" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a54:= eG0(9,a53);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a54G,<*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%
\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#7
\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F
,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F
0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FNFEF,F0FA*&)F(,*\"\"'F0F*F-F+F,F
1F7F0-F36%,$F1F,,&F1F0F+F8F,F0FA*&)F(,*\"\")F0F*F-F+\"#IF1F7F0-F36%Fgn
F@F,F0FA*&)F(,*\"#5F0F*F-F+F]oF1F7F0-F36%FNF@F,F0FA*&FaoF0F^oF0F0*&)F(
,*FZF0F*F-F+!\"#F1F7F0-F36%FN,(F1F0F0F0F+!\"(F,F0F0*&-F36%F5,(F1F0F+F8
F=F0F,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7F\\oF0F*F-F+!#IF0-F36%FN
,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FZFZF0F*F-F+\"#;F0-F36%FgnFOF,F0FA" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a55:= gpsym(10,a54);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a55G,<*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F5,(F1
F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F
1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FNFEF,F0FA*&)F(,*\"
\"'F0F*F-F+F,F1F7F0-F36%,$F1F,,&F1F0F+F8F,F0FA*&)F(,*\"\")F0F*F-F+\"#I
F1F7F0-F36%FgnF@F,F0FA*&)F(,*\"#5F0F*F-F+F]oF1F7F0-F36%FNF@F,F0FA*&Fao
F0F^oF0F0*&)F(,*FZF0F*F-F+!\"#F1F7F0-F36%FNFhnF,F0F0*&-F36%F5,(F1F0F+F
8F=F0F,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7F\\oF0F*F-F+!#IF0-F36%F
N,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FZFZF0F*F-F+\"#;F0-F36%FgnFOF,F0FA" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a56:= negate(10,a55);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a56G,<*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F5,(F1
F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F
1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FNFEF,F0FA*&)F(,*\"
\"'F0F*F-F+F,F1F7F0-F36%,$F1F,,&F1F0F+F8F,F0FA*&)F(,*\"\")F0F*F-F+\"#I
F1F7F0-F36%FgnF@F,F0FA*&)F(,*\"#5F0F*F-F+F]oF1F7F0-F36%FNF@F,F0FA*&Fao
F0F^oF0F0*&FXF0-F36%FN,&F1F0F+!\"(F,F0F0*&-F36%F5,(F1F0F+F8F=F0F,F0)F(
,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7F\\oF0F*F-F+!#IF0-F36%FN,(F1F0F+F8F
AF0F,F0F0*&)F(,*F1FZFZF0F*F-F+\"#;F0-F36%FgnFOF,F0FA" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 19 "a57:= gpsym(6,a56);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a57G,<*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"m
GF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#7\"\"
$F0F1F,F0-F36%F5,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)
F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*
&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%FNFEF,F0FA*&)F(,*\"\"'F0F*F-F+F,F1F7F
0-F36%,$F1F,,&F1F0F+!\"(F,F0FA*&)F(,*\"\")F0F*F-F+\"#IF1F7F0-F36%FgnF@
F,F0FA*&)F(,*\"#5F0F*F-F+F^oF1F7F0-F36%FNF@F,F0FA*&FboF0F_oF0F0*&FXF0-
F36%FNFhnF,F0F0*&-F36%F5,(F1F0F+F8F=F0F,F0)F(,*F1F7F8F0F*F-F+\"#EF0F0*
&)F(,*F1F7F]oF0F*F-F+!#IF0-F36%FN,(F1F0F+F8FAF0F,F0F0*&)F(,*F1FZFZF0F*
F-F+\"#;F0-F36%FgnFOF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
18 "a58:= eG0(10,a57);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a58G,:*&)
%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1
F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F*F-F+\"#7\"\"$F0F1F,F0-F36%F5,(F1F0F,F0F
+F8F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0F
A*&F:F0-F36%,&F1F,F0F0,(F1F0F+F8F0F0F,F0F0*&)F(,*F*F-F+\"#o\"#BF0F1F,F
0-F36%FNFEF,F0FA*&)F(,*\"\")F0F*F-F+\"#IF1F7F0-F36%,$F1F,F@F,F0FA*&)F(
,*\"#5F0F*F-F+FenF1F7F0-F36%FNF@F,F0FA*&FjnF0FfnF0F0*&)F(,*FZF0F*F-F+
\"#;F1\"\"'F0-F36%Fhn,(F1F0FAF0F+!\"(F,F0F0*&-F36%F5,(F1F0F+F8F=F0F,F0
)F(,*F1F7F8F0F*F-F+\"#EF0F0*&)F(,*F1F7FZF0F*F-F+!#IF0-F36%FN,(F1F0F+F8
FAF0F,F0F0*&)F(,*F1FdoFdoF0F*F-F+FcoF0-F36%FhnFOF,F0FA" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a59:= eG1(2,a58);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a59G,8*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%
\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F1F7F8F0F*F
-F+\"#EF0-F36%,&F1F,F0F0,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"
&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&)F(,*F*F-F+\"#o\"#BF0F1F,F0-F36%
F?FEF,F0FA*&)F(,*\"\")F0F*F-F+\"#IF1F7F0-F36%,$F1F,F@F,F0FA*&)F(,*\"#5
F0F*F-F+FVF1F7F0F=F0FA*&FenF0FWF0F0*&)F(,*FUF0F*F-F+\"#;F1\"\"'F0-F36%
FY,(F1F0FAF0F+!\"(F,F0F0*&-F36%F5,(F1F0F+F8\"\"$F0F,F0F:F0F0*&)F(,*F1F
7FUF0F*F-F+!#IF0-F36%F?,(F1F0F+F8FAF0F,F0F0*&)F(,*F1F]oF]oF0F*F-F+F\\o
F0-F36%FY,(F1F0F+F8F0F0F,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 23 "a60:= shiftdown(4,a59);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a6
0G,8*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F
,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)F(,*F1F7F8F0F*F-F+\"#EF0-F36%,&F1F,F0F
0,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F
*F-F+\"#eF0FA*&)F(,*F*F-F+!#WF/F0F1F,F0-F36%F?,(F1F0F+F8!\"#F0F,F0FA*&
)F(,*\"\")F0F*F-F+\"#IF1F7F0-F36%,$F1F,F@F,F0FA*&)F(,*\"#5F0F*F-F+FWF1
F7F0F=F0FA*&FfnF0FXF0F0*&)F(,*FVF0F*F-F+\"#;F1\"\"'F0-F36%FZ,(F1F0FAF0
F+!\"(F,F0F0*&-F36%F5,(F1F0F+F8\"\"$F0F,F0F:F0F0*&)F(,*F1F7FVF0F*F-F+!
#IF0-F36%F?,(F1F0F+F8FAF0F,F0F0*&)F(,*F1F^oF^oF0F*F-F+F]oF0-F36%FZ,(F1
F0F+F8F0F0F,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a61:= g
psym(4,a60);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a61G,8*&)%\"qG,**$%
\"jG\"\"#\"#cF+\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F
+\"\"(F,F0F0*&)F(,*F1F7F8F0F*F-F+\"#EF0-F36%,&F1F,F0F0,(F1F0F,F0F+F8F,
F0!\"\"*&-F36%F5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&)F
(,*F*F-F+!#WF/F0F1F,F0-F36%F?,(F1F0\"\"$F0F+!\"(F,F0FA*&)F(,*\"\")F0F*
F-F+\"#IF1F7F0-F36%,$F1F,F@F,F0FA*&)F(,*\"#5F0F*F-F+FXF1F7F0F=F0FA*&Fg
nF0FYF0F0*&)F(,*FWF0F*F-F+\"#;F1\"\"'F0-F36%Fen,(F1F0FAF0F+FSF,F0F0*&-
F36%F5,(F1F0F+F8FRF0F,F0F:F0F0*&)F(,*F1F7FWF0F*F-F+!#IF0-F36%F?,(F1F0F
+F8FAF0F,F0F0*&)F(,*F1F_oF_oF0F*F-F+F^oF0-F36%Fen,(F1F0F+F8F0F0F,F0FA
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a62:= negate(4,a61);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a62G,8*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#W\"#6\"\"\"%\"mGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"(F,F0F0*&)
F(,*F1F7F8F0F*F-F+\"#EF0-F36%,&F1F,F0F0,(F1F0F,F0F+F8F,F0!\"\"*&-F36%F
5,(F1F0F+F8\"\"&F0F,F0)F(,*F1F7\"#>F0F*F-F+\"#eF0FA*&F'F0-F36%F?,(F1F0
F+F8\"\"$F0F,F0FA*&)F(,*\"\")F0F*F-F+\"#IF1F7F0-F36%,$F1F,F@F,F0FA*&)F
(,*\"#5F0F*F-F+FTF1F7F0F=F0FA*&FYF0FUF0F0*&)F(,*FSF0F*F-F+\"#;F1\"\"'F
0-F36%FW,(F1F0FAF0F+!\"(F,F0F0*&-F36%F5FNF,F0F:F0F0*&)F(,*F1F7FSF0F*F-
F+!#IF0-F36%F?,(F1F0F+F8FAF0F,F0F0*&)F(,*F1F[oF[oF0F*F-F+FjnF0-F36%FW,
(F1F0F+F8F0F0F,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a63:
= eG1(1,a62);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a63G,6*&)%\"qG,*%
\"mG\"\"%\"#>\"\"\"*$%\"jG\"\"#\"#cF/\"#eF--%#gpG6%,&F*F0F-F-,(F*F-F+F
-F/\"\"(F0F-F-*&)F(,*F*F+F8F-F.F1F/\"#EF--F46%F6,(F*F-F0F-F/F8F0F-!\"
\"*&-F46%,&F*F0F0F-,(F*F-F/F8\"\"&F-F0F-F'F-F@*&)F(,*\"\")F-F.F1F/\"#I
F*F+F--F46%,$F*F0F?F0F-F@*&)F(,*\"#5F-F.F1F/FKF*F+F-F=F-F@*&FPF-FLF-F-
*&)F(,*FJF-F.F1F/\"#;F*\"\"'F--F46%FN,(F*F-F@F-F/!\"(F0F-F-*&-F46%FD,(
F*F-F/F8\"\"$F-F0F-F:F-F-*&)F(,*F*F+FJF-F.F1F/!#IF--F46%F6,(F*F-F/F8F@
F-F0F-F-*&)F(,*F*FXFXF-F.F1F/FWF--F46%FN,(F*F-F/F8F-F-F0F-F@" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a64:= eG1(3,a63);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a64G,4*&)%\"qG,*%\"mG\"\"%\"\"(\"\"\"*$%
\"jG\"\"#\"#cF/\"#EF--%#gpG6%,&F*F0F-F-,(F*F-F0F-F/F,F0F-!\"\"*&)F(,*F
*\"\"'\"#HF-F.F1F/\"#sF--F46%F6,(F*F-F/F,\"\"&F-F0F-F8*&)F(,*\"\")F-F.
F1F/\"#IF*F+F--F46%,$F*F0F7F0F-F8*&)F(,*\"#5F-F.F1F/FGF*F+F-F3F-F8*&FL
F-FHF-F-*&)F(,*FFF-F.F1F/\"#;F*F<F--F46%FJ,(F*F-F8F-F/!\"(F0F-F-*&-F46
%,&F*F0F0F-,(F*F-F/F,\"\"$F-F0F-F'F-F-*&)F(,*F*F+FFF-F.F1F/!#IF--F46%F
6,(F*F-F/F,F8F-F0F-F-*&)F(,*F*F<F<F-F.F1F/FSF--F46%FJ,(F*F-F/F,F-F-F0F
-F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a65:= eG0(4,a64);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a65G,2*&)%\"qG,*%\"mG\"\"%\"\"(\"
\"\"*$%\"jG\"\"#\"#cF/\"#EF--%#gpG6%,&F*F0F-F-,(F*F-F0F-F/F,F0F-!\"\"*
&)F(,*F*\"\"'\"#HF-F.F1F/\"#sF--F46%F6,(F*F-F/F,\"\"&F-F0F-F8*&)F(,*\"
\")F-F.F1F/\"#IF*F+F--F46%,$F*F0F7F0F-F8*&)F(,*FFF-F.F1F/\"#;F*F<F--F4
6%FJ,(F*F-F/F,F-F-F0F-F8*&FLF--F46%FJ,(F*F-F8F-F/!\"(F0F-F-*&-F46%,&F*
F0F0F-,(F*F-F/F,\"\"$F-F0F-F'F-F-*&)F(,*F*F+FFF-F.F1F/!#IF--F46%F6,(F*
F-F/F,F8F-F0F-F-*&)F(,*F*F<F<F-F.F1F/FNF-FOF-F8" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "a66:= gpsym(5,a65);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a66G,.*&)%\"qG,*%\"mG\"\"%\"\"(\"\"\"*$%\"jG\"\"#\"#
cF/\"#EF--%#gpG6%,&F*F0F-F-,(F*F-F0F-F/F,F0F-!\"\"*&)F(,*F*\"\"'\"#HF-
F.F1F/\"#sF--F46%F6,(F*F-F/F,\"\"&F-F0F-F8*&)F(,*\"\")F-F.F1F/\"#IF*F+
F--F46%,$F*F0F7F0F-F8*&-F46%,&F*F0F0F-,(F*F-F/F,\"\"$F-F0F-F'F-F-*&)F(
,*F*F+FFF-F.F1F/!#IF--F46%F6,(F*F-F/F,F8F-F0F-F-*&)F(,*F*F<F<F-F.F1F/
\"#;F--F46%FJ,(F*F-F/F,F-F-F0F-F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a67:= eG1(4,a66);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a67G,,*&)%\"qG,*%\"mG\"\"'\"#H\"\"\"*$%\"jG\"\"#\"#cF/\"#sF--%#gpG6
%,&F*F0F-F-,(F*F-F/\"\"(\"\"&F-F0F-!\"\"*&)F(,*\"\")F-F.F1F/\"#IF*\"\"
%F--F46%,$F*F0,(F*F-F0F-F/F8F0F-F:*&)F(,*F*F+\"#8F-F.F1F/\"#SF--F46%F6
,(F*F-F/F8\"\"$F-F0F-F-*&)F(,*F*F@F>F-F.F1F/!#IF--F46%F6,(F*F-F/F8F:F-
F0F-F-*&)F(,*F*F+F+F-F.F1F/\"#;F--F46%FC,(F*F-F/F8F-F-F0F-F:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a68:= gpsym(4,a67);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a68G,,*&)%\"qG,*%\"mG\"\"'\"#H\"\"
\"*$%\"jG\"\"#\"#cF/\"#sF--%#gpG6%,&F*F0F-F-,(F*F-F/\"\"(\"\"&F-F0F-!
\"\"*&)F(,*\"\")F-F.F1F/\"#IF*\"\"%F--F46%,$F*F0,(F*F-F0F-F/F8F0F-F:*&
)F(,*F*F+\"#8F-F.F1F/\"#SF--F46%F6,(F*F-F/F8\"\"$F-F0F-F-*&)F(,*F*F@F>
F-F.F1F/!#IF--F46%F6,(F*F-F0F-F/!\"(F0F-F-*&)F(,*F*F+F+F-F.F1F/\"#;F--
F46%FC,(F*F-F/F8F-F-F0F-F:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "a69:= negate(4,a68);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a69G,,*
&)%\"qG,*%\"mG\"\"'\"#H\"\"\"*$%\"jG\"\"#\"#cF/\"#sF--%#gpG6%,&F*F0F-F
-,(F*F-F/\"\"(\"\"&F-F0F-!\"\"*&)F(,*\"\")F-F.F1F/\"#IF*\"\"%F--F46%,$
F*F0,(F*F-F0F-F/F8F0F-F:*&)F(,*F*F+\"#8F-F.F1F/\"#SF--F46%F6,(F*F-F/F8
\"\"$F-F0F-F-*&F<F--F46%F6FDF0F-F-*&)F(,*F*F+F+F-F.F1F/\"#;F--F46%FC,(
F*F-F/F8F-F-F0F-F:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a70:=
 eG0(4,a69);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a70G,&*&)%\"qG,*%\"
mG\"\"'\"#H\"\"\"*$%\"jG\"\"#\"#cF/\"#sF--%#gpG6%,&F*F0F-F-,(F*F-F/\"
\"(\"\"&F-F0F-!\"\"*&)F(,*F*F+\"#8F-F.F1F/\"#SF--F46%F6,(F*F-F/F8\"\"$
F-F0F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a71:= shiftdown
(1,a70);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a71G,&*&)%\"qG,*%\"mG\"
\"'\"#8\"\"\"*$%\"jG\"\"#\"#cF/!#SF--%#gpG6%,&F*F0F-F-,(F*F-F/\"\"(!\"
#F-F0F-!\"\"*&)F(,*F*F+F,F-F.F1F/\"#SF--F46%F6,(F*F-F/F8\"\"$F-F0F-F-
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a72:= gpsym(1,a71);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a72G,&*&)%\"qG,*%\"mG\"\"'\"#8\"\"
\"*$%\"jG\"\"#\"#cF/!#SF--%#gpG6%,&F*F0F-F-,(F*F-\"\"$F-F/!\"(F0F-!\"
\"*&)F(,*F*F+F,F-F.F1F/\"#SF--F46%F6,(F*F-F/\"\"(F8F-F0F-F-" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a73:= negate(1,a72);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a73G\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "##
##### n odd = 2*m + 1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 487 "a
1:= asoo(op1,  \n      q^(56*j^2 +  2*j    ) * gp(2*n + 1, n + 7*j + 1
, 2) \n    - q^(56*j^2 + 82*j +30) * gp(2*n + 1, n + 7*j + 6, 2)\n    \+
- q^(56*j^2 + 26*j + 3) * gp(2*n    , n + 7*j + 2, 2) \n    + q^(56*j^
2 + 58*j +15) * gp(2*n    , n + 7*j + 4, 2),\n      q^(56*j^2 +  2*j  \+
  ) * gp(2*n + 1, n + 7*j + 1, 2) \n    - q^(56*j^2 + 82*j +30) * gp(2
*n + 1, n + 7*j + 6, 2)\n    - q^(56*j^2 + 26*j + 3) * gp(2*n + 2, n +
 7*j + 3, 2) \n    + q^(56*j^2 + 58*j +15) * gp(2*n + 2, n + 7*j + 5, \+
2));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,J*&)%\"qG,&*$%\"jG\"\"#
\"#cF+F,\"\"\"-%#gpG6%,&%\"mGF,\"\"&F.,(F3F.F+\"\"(\"\"$F.F,F.F.*&F'F.
-F06%,&F3F,F7F.,(F3F.F,F.F+F6F,F.!\"\"*&)F(,(F7F.F*F-F+F,F.-F06%,&F3F,
F.F.,(F3F.F+F6F.F.F,F.F=*&)F(,(\"#LF.F*F-F+\"##)F.-F06%FC,(F3F.F+F6\"
\"'F.F,F.F.*&)F(,(F*F-F+FI\"#IF.F.-F06%F;,(F3F.F6F.F+F6F,F.F.*&)F(,(F4
F.F*F-F+\"#EF.-F06%,&F3F,\"\"%F.,(F3F.FfnF.F+F6F,F.F=*&)F(,(\"#<F.F*F-
F+\"#eF.-F06%FenFLF,F.F.*&)F(,(F*F-F+FXFfnF.F.FYF.F=*&)F(,(F*F-F+F\\o
\"#;F.F.F]oF.F.*&FVF.-F06%,&F3F,F,F.F5F,F.F.*&FinF.-F06%Fio,(F3F.F+F6F
4F.F,F.F=*&F`oF.FgoF.F.*&FcoF.F[pF.F=*&)F(,*F3FfnFMF.F*F-F+F,F.F9F.F=*
&)F(,*F3Ffn\"#OF.F*F-F+FIF.FRF.F.*&)F(,*F3Ffn\"\"*F.F*F-F+FXF.FgoF.F.*
&)F(,*F3Ffn\"#@F.F*F-F+F\\oF.F[pF.F=*&F?F.F9F.F.*&FFF.FRF.F=*&FOF.-F06
%F2,(F3F.\"\")F.F+F6F,F.F=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "a2:= eG1(1,a1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a2G,L*&)%\"q
G,&*$%\"jG\"\"#\"#cF+F,\"\"\"-%#gpG6%,&%\"mGF,\"\"%F.,(F3F.F,F.F+\"\"(
F,F.F.*&)F(,*F*F-F+\"#;F3F,\"\"'F.F.-F06%F2,(F3F.F+F6\"\"$F.F,F.F.*&F'
F.-F06%,&F3F,F?F.F5F,F.!\"\"*&)F(,(F?F.F*F-F+F,F.-F06%,&F3F,F.F.,(F3F.
F+F6F.F.F,F.FD*&)F(,(\"#LF.F*F-F+\"##)F.-F06%FJ,(F3F.F+F6F;F.F,F.F.*&)
F(,(F*F-F+FP\"#IF.F.-F06%FC,(F3F.F6F.F+F6F,F.F.*&)F(,(\"\"&F.F*F-F+\"#
EF.-F06%F2,(F3F.F4F.F+F6F,F.FD*&)F(,(\"#<F.F*F-F+\"#eF.-F06%F2FSF,F.F.
*&)F(,(F*F-F+FinF4F.F.FjnF.FD*&)F(,(F*F-F+FaoF:F.F.FboF.F.*&FfnF.-F06%
,&F3F,F,F.F>F,F.F.*&F^oF.-F06%F]p,(F3F.F+F6FhnF.F,F.FD*&FeoF.F[pF.F.*&
FhoF.F_pF.FD*&)F(,*F3F4F;F.F*F-F+F,F.FAF.FD*&)F(,*F3F4\"#OF.F*F-F+FPF.
FXF.F.*&)F(,*F3F4\"\"*F.F*F-F+FinF.F[pF.F.*&)F(,*F3F4\"#@F.F*F-F+FaoF.
F_pF.FD*&FFF.FAF.F.*&FMF.FXF.FD*&FUF.-F06%,&F3F,FhnF.,(F3F.\"\")F.F+F6
F,F.FD" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG0(1,a2);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+
!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)
F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,(F
6F1F*F-F+F,F1-F36%,&F/F,F1F1F7F,F1!\"\"*&)F(,(\"#LF1F*F-F+\"##)F1-F36%
FG,(F/F1F+F8F=F1F,F1F1*&)F(,(F*F-F+FM\"#IF1F1-F36%F5,(F/F1F8F1F+F8F,F1
F1*&)F(,(\"\"&F1F*F-F+\"#EF1-F36%F@,(F/F1F0F1F+F8F,F1FH*&)F(,(\"#<F1F*
F-F+\"#eF1-F36%F@FPF,F1F1*&)F(,(F*F-F+FfnF0F1F1FgnF1FH*&)F(,(F*F-F+F^o
F<F1F1F_oF1F1*&FYF1-F36%,&F/F,F,F1FAF,F1F1*&F[oF1-F36%Fjo,(F/F1F+F8Fen
F1F,F1FH*&FboF1FhoF1F1*&FeoF1F\\pF1FH*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,
(F/F1F,F1F+F8F,F1FH*&)F(,*F/F0\"#OF1F*F-F+FMF1FUF1F1*&)F(,*F/F0\"\"*F1
F*F-F+FfnF1FhoF1F1*&)F(,*F/F0\"#@F1F*F-F+F^oF1F\\pF1FH*&FCF1FdpF1F1*&F
JF1FUF1FH*&FRF1-F36%,&F/F,FenF1,(F/F1\"\")F1F+F8F,F1FH" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a4:= eG0(6,a3);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a4G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"
\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F
,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,(F6F1F*F-F+F,F1-F36
%,&F/F,F1F1F7F,F1!\"\"*&)F(,(\"#LF1F*F-F+\"##)F1-F36%FG,(F/F1F+F8F=F1F
,F1F1*&)F(,(F*F-F+FM\"#IF1F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,(\"\"&F1F
*F-F+\"#EF1-F36%F5,(F/F1F0F1F+F8F,F1FH*&)F(,*FenF1F*F-F+\"#7F/F,F1-F36
%F5FAF,F1FH*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@FPF,F1F1*&)F(,(F*F-F+FfnF0F
1F1-F36%F@FinF,F1FH*&)F(,(F*F-F+FdoF<F1F1FeoF1F1*&FYF1-F36%,&F/F,F,F1F
AF,F1F1*&FaoF1-F36%Fbp,(F/F1F+F8FenF1F,F1FH*&FhoF1F`pF1F1*&F]pF1FdpF1F
H*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FH*&)F(,*F/F0\"#OF1
F*F-F+FMF1FUF1F1*&)F(,*F/F0\"\"*F1F*F-F+FfnF1F`pF1F1*&)F(,*F/F0\"#@F1F
*F-F+FdoF1FdpF1FH*&FCF1F\\qF1F1*&FJF1FUF1FH*&FRF1-F36%,&F/F,FenF1,(F/F
1\"\")F1F+F8F,F1FH" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a5:= \+
eG1(6,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,J*&)%\"qG,**$%\"j
G\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F
1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,
F1F1*&)F(,(F6F1F*F-F+F,F1-F36%,&F/F,F1F1F7F,F1!\"\"*&)F(,(\"#LF1F*F-F+
\"##)F1-F36%FG,(F/F1F+F8F=F1F,F1F1*&)F(,(F*F-F+FM\"#IF1F1-F36%F5,(F/F1
F8F1F+F8F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+
F8F,F1FH*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FH*&)F(,(\"#<F1F*F-
F+\"#eF1-F36%F@FPF,F1F1*&)F(,(F*F-F+\"#EF0F1F1-F36%F@FjnF,F1FH*&)F(,(F
*F-F+FfoF<F1F1FgoF1F1*&FcoF1-F36%Fin,(F/F1F+F8F^oF1F,F1FH*&FjoF1-F36%F
inFAF,F1F1*&F`pF1FcpF1FH*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8
F,F1FH*&)F(,*F/F0\"#OF1F*F-F+FMF1FUF1F1*&)F(,*F/F0\"\"*F1F*F-F+F\\pF1F
gpF1F1*&)F(,*F/F0\"#@F1F*F-F+FfoF1FcpF1FH*&FCF1F]qF1F1*&FJF1FUF1FH*&FR
F1-F36%,&F/F,F^oF1,(F/F1\"\")F1F+F8F,F1FH" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 16 "a6:= eG1(18,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%#a6G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&
F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,
&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,(F6F1F*F-F+F,F1-F36%,&F/F,F1F1F7F,F
1!\"\"*&)F(,(\"#LF1F*F-F+\"##)F1-F36%FG,(F/F1F+F8F=F1F,F1F1*&)F(,(F*F-
F+FM\"#IF1F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F
36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1FH*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5
FAF,F1FH*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@FPF,F1F1*&)F(,(F*F-F+\"#EF0F1F
1-F36%F@FjnF,F1FH*&)F(,(F*F-F+FfoF<F1F1FgoF1F1*&FcoF1-F36%Fin,(F/F1F+F
8F^oF1F,F1FH*&FjoF1-F36%FinFAF,F1F1*&F`pF1FcpF1FH*&)F(,*F/F0F=F1F*F-F+
F,F1-F36%F5,(F/F1F,F1F+F8F,F1FH*&)F(,*F/F0\"#OF1F*F-F+FMF1FUF1F1*&)F(,
*F/F0\"\"*F1F*F-F+F\\pF1FgpF1F1*&)F(,*F/F0\"#@F1F*F-F+FfoF1FcpF1FH*&FC
F1-F36%FinF7F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FinF_qF,F1F1*&FJF1FUF1
FH*&FRF1-F36%,&F/F,F^oF1,(F/F1\"\")F1F+F8F,F1FH" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "a7:= eG0(18,a6);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#a7G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gp
G6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-
F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,(\"#LF1F*F-F+\"##)F1-F36%,&F/F
,F1F1,(F/F1F+F8F=F1F,F1F1*&)F(,(F*F-F+FF\"#IF1F1-F36%F5,(F/F1F8F1F+F8F
,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"
\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1Fen*&)F(,(\"#<F1F*F-F+\"#
eF1-F36%F@FJF,F1F1*&)F(,(F*F-F+\"#EF0F1F1-F36%F@FZF,F1Fen*&)F(,(F*F-F+
FaoF<F1F1FboF1F1*&F^oF1-F36%FY,(F/F1F+F8FinF1F,F1Fen*&FeoF1-F36%FYFAF,
F1F1*&F[pF1F^pF1Fen*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1F
en*&)F(,*F/F0\"#OF1F*F-F+FFF1FOF1F1*&)F(,*F/F0\"\"*F1F*F-F+FgoF1FbpF1F
1*&)F(,*F/F0\"#@F1F*F-F+FaoF1F^pF1Fen*&)F(,*FinF1F*F-F+F.F/F,F1-F36%FI
,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FYFjpF,F1F1*&FCF1FOF1Fen
*&FLF1-F36%,&F/F,FinF1,(F/F1\"\")F1F+F8F,F1Fen" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "a8:= eG0(20,a7);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#a8G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gp
G6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-
F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,(\"#LF1F*F-F+\"##)F1-F36%,&F/F
,F1F1,(F/F1F+F8F=F1F,F1F1*&)F(,(F*F-F+FF\"#IF1F1-F36%F5,(F/F1F8F1F+F8F
,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"
\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1Fen*&)F(,(\"#<F1F*F-F+\"#
eF1-F36%F@FJF,F1F1*&)F(,(F*F-F+\"#EF0F1F1-F36%F@FZF,F1Fen*&)F(,(F*F-F+
FaoF<F1F1FboF1F1*&F^oF1-F36%FY,(F/F1F+F8FinF1F,F1Fen*&FeoF1-F36%FYFAF,
F1F1*&F[pF1F^pF1Fen*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1F
en*&)F(,*F/F0\"#OF1F*F-F+FFF1FOF1F1*&)F(,*F/F0\"\"*F1F*F-F+FgoF1FbpF1F
1*&)F(,*F/F0\"#@F1F*F-F+FaoF1F^pF1Fen*&)F(,*FinF1F*F-F+F.F/F,F1-F36%FI
,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FYFjpF,F1F1*&FCF1FOF1Fen
*&FLF1-F36%F@,(F/F1\"\")F1F+F8F,F1Fen*&)F(,*F*F-F+\"#o\"#CF1F/F,F1-F36
%F@FQF,F1Fen" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a9:= eG1(20
,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,J*&)%\"qG,**$%\"jG\"\"
#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,
F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*
&)F(,(\"#LF1F*F-F+\"##)F1-F36%,&F/F,F1F1,(F/F1F+F8F=F1F,F1F1*&)F(,*\"#
8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F
1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FT*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@FJF,F1
F1*&)F(,(F*F-F+\"#EF0F1F1-F36%F@FSF,F1FT*&)F(,(F*F-F+FjnF<F1F1F[oF1F1*
&FgnF1-F36%FR,(F/F1F+F8FXF1F,F1FT*&F^oF1-F36%FRFAF,F1F1*&FdoF1FgoF1FT*
&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FT*&)F(,*F/F0\"#OF1F*
F-F+FFF1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+F`oF1F[pF1F
1*&)F(,*F/F0\"#@F1F*F-F+FjnF1FgoF1FT*&)F(,*FXF1F*F-F+F.F/F,F1-F36%FI,&
F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FRFcpF,F1F1*&FCF1FhpF1FT*&
)F(,*F*F-F+\"#'*\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1FT*&)F(,*F*F-F
+\"#o\"#CF1F/F,F1-F36%F@FjpF,F1FT" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a10:= eG1(18,a9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a10G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&
F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,
&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,(\"#LF1F*F-F+\"##)F1-F36%,&F/F,F1F1
,(F/F1F+F8F=F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1
F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FT*&)F(,(
\"#<F1F*F-F+\"#eF1-F36%F@FJF,F1F1*&)F(,(F*F-F+\"#EF0F1F1-F36%F@FSF,F1F
T*&)F(,(F*F-F+FjnF<F1F1F[oF1F1*&FgnF1-F36%FR,(F/F1F+F8FXF1F,F1FT*&F^oF
1-F36%FRFAF,F1F1*&FdoF1FgoF1FT*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,
F1F+F8F,F1FT*&)F(,*F/F0\"#OF1F*F-F+FFF1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F
(,*F/F0\"\"*F1F*F-F+F`oF1F[pF1F1*&)F(,*F/F0\"#@F1F*F-F+FjnF1FgoF1FT*&)
F(,*FXF1F*F-F+F.F/F,F1-F36%FI,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1
-F36%FRFcpF,F1F1*&FCF1-F36%FRFJF,F1FT*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F3
6%FRFjpF,F1FT*&)F(,*F*F-F+Fer\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1F
T*&)F(,*F*F-F+\"#o\"#CF1F/F,F1-F36%F@FjpF,F1FT" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 18 "a11:= eG0(18,a10);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a11G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"
\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F
,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/
F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,
F1-F36%F5FAF,F1FK*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@,(F/F1F+F8F=F1F,F1F1*
&)F(,(F*F-F+\"#EF0F1F1-F36%F@FJF,F1FK*&)F(,(F*F-F+FWF<F1F1FXF1F1*&FTF1
-F36%FI,(F/F1F+F8FOF1F,F1FK*&FfnF1-F36%FIFAF,F1F1*&F\\oF1F_oF1FK*&)F(,
*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+
\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+FhnF1FcoF1F1
*&)F(,*F/F0\"#@F1F*F-F+FWF1F_oF1FK*&)F(,*FOF1F*F-F+F.F/F,F1-F36%,&F/F,
F1F1,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIF[pF,F1F1*&)F(,*\"
#DF1F*F-F+\"#oF/F,F1-F36%FaqFaoF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F3
6%FIFcpF,F1FK*&)F(,*F*F-F+Fcr\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1F
K*&)F(,*F*F-F+F\\r\"#CF1F/F,F1-F36%F@FcpF,F1FK" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "a12:= eG0(6,a11);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a12G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"
\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F
,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/
F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,
F1-F36%F5FAF,F1FK*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@,(F/F1F+F8F=F1F,F1F1*
&)F(,(F*F-F+\"#EF0F1F1-F36%F5FJF,F1FK*&)F(,*F*F-F+FPF0F1F/F,F1FQF1FK*&
)F(,(F*F-F+FWF<F1F1FXF1F1*&FTF1-F36%FI,(F/F1F+F8FOF1F,F1FK*&FfnF1-F36%
FIFAF,F1F1*&F_oF1FboF1FK*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8
F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*
F/F0\"\"*F1F*F-F+FhnF1FfoF1F1*&)F(,*F/F0\"#@F1F*F-F+FWF1FboF1FK*&)F(,*
FOF1F*F-F+F.F/F,F1-F36%,&F/F,F1F1,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/
F,F1-F36%FIF^pF,F1F1*&)F(,*\"#DF1F*F-F+\"#oF/F,F1-F36%FdqFdoF,F1FK*&)F
(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FIFfpF,F1FK*&)F(,*F*F-F+Ffr\"#YF1F/F,F1
-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)F(,*F*F-F+F_r\"#CF1F/F,F1-F36%F@FfpF,
F1FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a13:= eG1(6,a12);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a13G,J*&)%\"qG,**$%\"jG\"\"#\"#cF
+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&
)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*
\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"
\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FK*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@,(
F/F1F+F8F=F1F,F1F1*&)F(,*F*F-F+FFFPF1F/F,F1FGF1FK*&)F(,*F*F-F+FPF0F1F/
F,F1FQF1FK*&)F(,(F*F-F+FWF<F1F1FXF1F1*&FTF1-F36%FI,(F/F1F+F8FOF1F,F1FK
*&F\\oF1F_oF1FK*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FK*&)
F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*
F1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F1F*F-F+FWF1F_oF1FK*&)F(,*
FOF1F*F-F+F.F/F,F1-F36%,&F/F,F1F1,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/
F,F1-F36%FIFhoF,F1F1*&)F(,*\"#DF1F*F-F+\"#oF/F,F1-F36%FaqFaoF,F1FK*&)F
(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FIF`pF,F1FK*&)F(,*F*F-F+Fcr\"#YF1F/F,F1
-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)F(,*F*F-F+F\\r\"#CF1F/F,F1-F36%F@F`pF
,F1FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a14:= eG1(8,a13);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a14G,L*&)%\"qG,**$%\"jG\"\"#\"#
cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1
*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(
,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*
\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FK*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@
,(F/F1F+F8F=F1F,F1F1*&)F(,*F*F-F+FFFPF1F/F,F1FGF1FK*&)F(,*F*F-F+FPF0F1
F/F,F1FQF1FK*&)F(,(F*F-F+FWF<F1F1-F36%F5,(F/F1F+F8FOF1F,F1F1*&)F(,*F*F
-F+\"#s\"#GF1F/F,F1-F36%F5FZF,F1F1*&FTF1-F36%FIF`oF,F1FK*&F\\oF1FioF1F
K*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF1
F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+\"#EF1
-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F1F*F-F+FWF1FioF1FK*&)F(,*FOF1F*F-F+F.F/
F,F1-F36%,&F/F,F1F1,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIFap
F,F1F1*&)F(,*\"#DF1F*F-F+\"#oF/F,F1-F36%FjqF`oF,F1FK*&)F(,*\"#ZF1F*F-F
+\"#'*F/F,F1-F36%FIFipF,F1FK*&)F(,*F*F-F+F\\s\"#YF1F/F,F1-F36%F5,(F/F1
\"\")F1F+F8F,F1FK*&)F(,*F*F-F+Fer\"#CF1F/F,F1-F36%F@FipF,F1FK" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a15:= eG0(8,a14);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a15G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"m
GF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F
-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*
F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-
F+\"#7F/F,F1-F36%F5FAF,F1FK*&)F(,(\"#<F1F*F-F+\"#eF1-F36%F@,(F/F1F+F8F
=F1F,F1F1*&)F(,*F*F-F+FFFPF1F/F,F1FGF1FK*&)F(,*F*F-F+FPF0F1F/F,F1FQF1F
K*&)F(,*F*F-F+\"#WFPF1F/F,F1FGF1F1*&)F(,*F*F-F+\"#s\"#GF1F/F,F1-F36%F5
FZF,F1F1*&FTF1-F36%FI,(F/F1F+F8FOF1F,F1FK*&)F(,*F/F0F=F1F*F-F+F,F1-F36
%F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1
F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@
F1F*F-F+FWF1FgoF1FK*&)F(,*FOF1F*F-F+F.F/F,F1-F36%,&F/F,F1F1,&F/F1F+F8F
,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIF_pF,F1F1*&)F(,*\"#DF1F*F-F+\"#oF
/F,F1-F36%FhqFioF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FIFgpF,F1FK*&
)F(,*F*F-F+Fjr\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)F(,*F*F-F+F
cr\"#CF1F/F,F1-F36%F@FgpF,F1FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "a16:= eG0(5,a15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16G,L
*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$
F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1
,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1
F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FK*&)F(,(
\"#<F1F*F-F+\"#eF1-F36%F5,(F/F1F+F8F=F1F,F1F1*&)F(,*FEF1F*F-F+\"#WF/F,
F1-F36%F5,(F/F1F+F8FOF1F,F1F1*&)F(,*F*F-F+FFFPF1F/F,F1FGF1FK*&)F(,*F*F
-F+FPF0F1F/F,F1FQF1FK*&)F(,*F*F-F+FhnFPF1F/F,F1FGF1F1*&)F(,*F*F-F+\"#s
\"#GF1F/F,F1FXF1F1*&FTF1-F36%FIF[oF,F1FK*&)F(,*F/F0F=F1F*F-F+F,F1-F36%
F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F
+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F
1F*F-F+FWF1F[pF1FK*&)F(,*FOF1F*F-F+F.F/F,F1-F36%,&F/F,F1F1,&F/F1F+F8F,
F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIFbpF,F1F1*&)F(,*\"#DF1F*F-F+\"#oF/
F,F1-F36%F[rF[oF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FIFjpF,F1FK*&)
F(,*F*F-F+F]s\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)F(,*F*F-F+Ff
r\"#CF1F/F,F1-F36%F@FjpF,F1FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "a17:= eG1(5,a16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a17G,J*&
)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1
,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(
F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0
F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5FAF,F1FK*&)F(,*\"#
HF1F*F-F+\"#sF/F,F1-F36%FI,(F/F1F+F8F=F1F,F1F1*&)F(,*FEF1F*F-F+\"#WF/F
,F1-F36%F5,(F/F1F+F8FOF1F,F1F1*&)F(,*F*F-F+FFFPF1F/F,F1FGF1FK*&)F(,*F*
F-F+FPF0F1F/F,F1FQF1FK*&)F(,*F*F-F+FhnFPF1F/F,F1FGF1F1*&)F(,*F*F-F+FW
\"#GF1F/F,F1-F36%F5FZF,F1F1*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F
+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F
(,*F/F0\"\"*F1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F1F*F-F+\"#eF1
-F36%FIF[oF,F1FK*&)F(,*FOF1F*F-F+F.F/F,F1-F36%,&F/F,F1F1,&F/F1F+F8F,F1
F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIF`pF,F1F1*&)F(,*\"#DF1F*F-F+\"#oF/F,
F1-F36%F\\rF[oF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FIFhpF,F1FK*&)F
(,*F*F-F+F^s\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)F(,*F*F-F+Fgr
\"#CF1F/F,F1-F36%F@FhpF,F1FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 19 "a18:= gpsym(4,a17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a18G,J
*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$
F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1
,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1
F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+\"#7F/F,F1-F36%F5,&F/F1F+!\"(F,F1
FK*&)F(,*\"#HF1F*F-F+\"#sF/F,F1-F36%FI,(F/F1F+F8F=F1F,F1F1*&)F(,*FEF1F
*F-F+\"#WF/F,F1-F36%F5,(F/F1F+F8FOF1F,F1F1*&)F(,*F*F-F+FFFPF1F/F,F1FGF
1FK*&)F(,*F*F-F+FPF0F1F/F,F1-F36%F5FAF,F1FK*&)F(,*F*F-F+FjnFPF1F/F,F1F
GF1F1*&)F(,*F*F-F+FY\"#GF1F/F,F1-F36%F5FfnF,F1F1*&)F(,*F/F0F=F1F*F-F+F
,F1-F36%F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F
/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F
/F0\"#@F1F*F-F+\"#eF1-F36%FIF]oF,F1FK*&)F(,*FOF1F*F-F+F.F/F,F1-F36%,&F
/F,F1F1,&F/F1F+F8F,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIFdpF,F1F1*&)F(,
*\"#DF1F*F-F+\"#oF/F,F1-F36%F`rF]oF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1
-F36%FIF\\qF,F1FK*&)F(,*F*F-F+Fbs\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F
,F1FK*&)F(,*F*F-F+F[s\"#CF1F/F,F1-F36%F@F\\qF,F1FK" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 20 "a19:= negate(4,a18);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a19G,J*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"
\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F
,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/
F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+F.F/F,F1
-F36%F5,&F/F1F+F8F,F1FK*&)F(,*\"#HF1F*F-F+\"#sF/F,F1-F36%FI,(F/F1F+F8F
=F1F,F1F1*&)F(,*FEF1F*F-F+\"#WF/F,F1-F36%F5,(F/F1F+F8FOF1F,F1F1*&)F(,*
F*F-F+FF\"#7F1F/F,F1FGF1FK*&)F(,*F*F-F+F_oF0F1F/F,F1-F36%F5FAF,F1FK*&)
F(,*F*F-F+FhnF_oF1F/F,F1FGF1F1*&)F(,*F*F-F+FW\"#GF1F/F,F1-F36%F5FZF,F1
F1*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF
1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+\"#EF
1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F1F*F-F+\"#eF1-F36%FIF[oF,F1FK*&FMF1-F3
6%,&F/F,F1F1FRF,F1F1*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIFcpF,F1F1*&)F(,*\"
#DF1F*F-F+\"#oF/F,F1-F36%F]rF[oF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F3
6%FIF[qF,F1FK*&)F(,*F*F-F+F^s\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1F
K*&)F(,*F*F-F+Fgr\"#CF1F/F,F1-F36%F@F[qF,F1FK" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "a20:= eG0(4,a19);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a20G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#g
pG6%,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1
-F36%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,
&F/F,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"&F1F*F-F+F.F/F,F1-F36%FI,&F
/F1F+F8F,F1FK*&)F(,*\"#6F1F*F-F+!#EF/F0F1-F36%FI,(F/F1F+F8FKF1F,F1FK*&
)F(,*\"#HF1F*F-F+\"#sF/F,F1-F36%FI,(F/F1F+F8F=F1F,F1F1*&)F(,*FEF1F*F-F
+\"#WF/F,F1-F36%F5,(F/F1F+F8FOF1F,F1F1*&)F(,*F*F-F+FF\"#7F1F/F,F1FGF1F
K*&)F(,*F*F-F+FgoF0F1F/F,F1-F36%F5FAF,F1FK*&)F(,*F*F-F+F`oFgoF1F/F,F1F
GF1F1*&)F(,*F*F-F+Fin\"#GF1F/F,F1-F36%F5F\\oF,F1F1*&)F(,*F/F0F=F1F*F-F
+F,F1-F36%F5,(F/F1F,F1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,
(F/F1F8F1F+F8F,F1F1*&)F(,*F/F0\"\"*F1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,
*F/F0\"#@F1F*F-F+\"#eF1-F36%FIFcoF,F1FK*&FMF1-F36%,&F/F,F1F1FRF,F1F1*&
)F(,*F8F1F*F-F+F<F/F,F1-F36%FIF[qF,F1F1*&)F(,*\"#DF1F*F-F+\"#oF/F,F1-F
36%FerFcoF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FIFcqF,F1FK*&)F(,*F*
F-F+Ffs\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)F(,*F*F-F+F_s\"#CF
1F/F,F1-F36%F@FcqF,F1FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "
a21:= eG0(4,a20);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a21G,J*&)%\"qG
,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1
F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+
F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+F8
F,F1!\"\"*&)F(,*\"\"*F1F*F-F+!#EF/F0F1-F36%,&F/F,F1F1,(F/F1F+F8FKF1F,F
1FK*&)F(,*\"#6F1F*F-F+FPF/F0F1-F36%FIFTF,F1FK*&)F(,*\"#HF1F*F-F+\"#sF/
F,F1-F36%FI,(F/F1F+F8F=F1F,F1F1*&)F(,*FEF1F*F-F+\"#WF/F,F1-F36%F5,(F/F
1F+F8\"\"&F1F,F1F1*&)F(,*F*F-F+FF\"#7F1F/F,F1FGF1FK*&)F(,*F*F-F+FhoF0F
1F/F,F1-F36%F5FAF,F1FK*&)F(,*F*F-F+F`oFhoF1F/F,F1FGF1F1*&)F(,*F*F-F+Fi
n\"#GF1F/F,F1-F36%F5F\\oF,F1F1*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,
F1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*
&)F(,*F/F0FOF1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F1F*F-F+\"#eF1
-F36%FIFcoF,F1FK*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIF\\qF,F1F1*&)F(,*\"#DF
1F*F-F+\"#oF/F,F1-F36%FSFcoF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-F36%FI
FdqF,F1FK*&)F(,*F*F-F+Fbs\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,F1FK*&)
F(,*F*F-F+F[s\"#CF1F/F,F1-F36%F@FdqF,F1FK" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "a22:= eG0(4,a21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a22G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"\"\"F1-%#gpG6%
,&F/F,\"\"$F1,(F/F1F+\"\"(F1F1F,F1F1*&)F(,*F*F-F+\"#;F/F,\"\"'F1F1-F36
%,&F/F,F0F1,(F/F1F+F8F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#SF/F,F1-F36%,&F/F
,F,F1,(F/F1F0F1F+F8F,F1!\"\"*&)F(,*\"\"*F1F*F-F+!#EF/F0F1-F36%,$F/F,,(
F/F1F+F8FKF1F,F1FK*&)F(,*FEF1F*F-F+!#SF/F=F1-F36%FS,(F/F1F+F8!\"#F1F,F
1FK*&)F(,*\"#6F1F*F-F+FPF/F0F1-F36%FIFTF,F1FK*&)F(,*\"#HF1F*F-F+\"#sF/
F,F1-F36%FI,(F/F1F+F8F=F1F,F1F1*&)F(,*FEF1F*F-F+\"#WF/F,F1-F36%F5,(F/F
1F+F8\"\"&F1F,F1F1*&)F(,*F*F-F+FF\"#7F1F/F,F1FGF1FK*&)F(,*F*F-F+F`pF0F
1F/F,F1-F36%F5FAF,F1FK*&)F(,*F*F-F+FhoF`pF1F/F,F1FGF1F1*&)F(,*F*F-F+Fa
o\"#GF1F/F,F1-F36%F5FdoF,F1F1*&)F(,*F/F0F=F1F*F-F+F,F1-F36%F5,(F/F1F,F
1F+F8F,F1FK*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1F8F1F+F8F,F1F1*&
)F(,*F/F0FOF1F*F-F+\"#EF1-F36%FIFAF,F1F1*&)F(,*F/F0\"#@F1F*F-F+\"#eF1-
F36%FIF[pF,F1FK*&)F(,*F8F1F*F-F+F<F/F,F1-F36%FIFdqF,F1F1*&)F(,*\"#DF1F
*F-F+\"#oF/F,F1-F36%,&F/F,F1F1F[pF,F1FK*&)F(,*\"#ZF1F*F-F+\"#'*F/F,F1-
F36%FIF\\rF,F1FK*&)F(,*F*F-F+F[t\"#YF1F/F,F1-F36%F5,(F/F1\"\")F1F+F8F,
F1FK*&)F(,*F*F-F+Fcs\"#CF1F/F,F1-F36%F@F\\rF,F1FK" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 19 "a23:= gpsym(1,a22);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a23G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!#7%\"mGF,\"\"%\"
\"\"F1-%#gpG6%,&F/F,\"\"$F1,(F/F1F,F1F+!\"(F,F1F1*&)F(,*F*F-F+\"#;F/F,
\"\"'F1F1-F36%,&F/F,F0F1,(F/F1F+\"\"(F6F1F,F1F1*&)F(,*\"#8F1F*F-F+\"#S
F/F,F1-F36%,&F/F,F,F1,(F/F1F0F1F+FBF,F1!\"\"*&)F(,*\"\"*F1F*F-F+!#EF/F
0F1-F36%,$F/F,,(F/F1F+FBFLF1F,F1FL*&)F(,*FFF1F*F-F+!#SF/F=F1-F36%FT,(F
/F1F+FB!\"#F1F,F1FL*&)F(,*\"#6F1F*F-F+FQF/F0F1-F36%FJFUF,F1FL*&)F(,*\"
#HF1F*F-F+\"#sF/F,F1-F36%FJ,(F/F1F+FBF=F1F,F1F1*&)F(,*FFF1F*F-F+\"#WF/
F,F1-F36%F5,(F/F1F+FB\"\"&F1F,F1F1*&)F(,*F*F-F+FG\"#7F1F/F,F1FHF1FL*&)
F(,*F*F-F+FapF0F1F/F,F1-F36%F5FAF,F1FL*&)F(,*F*F-F+FioFapF1F/F,F1FHF1F
1*&)F(,*F*F-F+Fbo\"#GF1F/F,F1-F36%F5FeoF,F1F1*&)F(,*F/F0F=F1F*F-F+F,F1
-F36%F5,(F/F1F,F1F+FBF,F1FL*&)F(,*F/F0\"#OF1F*F-F+\"##)F1-F36%F5,(F/F1
FBF1F+FBF,F1F1*&)F(,*F/F0FPF1F*F-F+\"#EF1-F36%FJFAF,F1F1*&)F(,*F/F0\"#
@F1F*F-F+\"#eF1-F36%FJF\\pF,F1FL*&)F(,*FBF1F*F-F+F<F/F,F1-F36%FJFeqF,F
1F1*&)F(,*\"#DF1F*F-F+\"#oF/F,F1-F36%,&F/F,F1F1F\\pF,F1FL*&)F(,*\"#ZF1
F*F-F+\"#'*F/F,F1-F36%FJF]rF,F1FL*&)F(,*F*F-F+F\\t\"#YF1F/F,F1-F36%F5,
(F/F1\"\")F1F+FBF,F1FL*&)F(,*F*F-F+Fds\"#CF1F/F,F1-F36%F@F]rF,F1FL" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a24:= negate(1,a23);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a24G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+
\"#7\"\"%\"\"\"%\"mGF,F0-%#gpG6%,&F1F,\"\"$F0,(F1F0F,F0F+\"\"(F,F0F0*&
)F(,*F*F-F+\"#;F1F,\"\"'F0F0-F36%,&F1F,F/F0,(F1F0F+F8F6F0F,F0F0*&)F(,*
\"#8F0F*F-F+\"#SF1F,F0-F36%,&F1F,F,F0,(F1F0F/F0F+F8F,F0!\"\"*&)F(,*\"
\"*F0F*F-F+!#EF1F/F0-F36%,$F1F,,(F1F0F+F8FKF0F,F0FK*&)F(,*FEF0F*F-F+!#
SF1F=F0-F36%FS,(F1F0F+F8!\"#F0F,F0FK*&)F(,*\"#6F0F*F-F+FPF1F/F0-F36%FI
FTF,F0FK*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F36%FI,(F1F0F+F8F=F0F,F0F0*&)F(,
*FEF0F*F-F+\"#WF1F,F0-F36%F5,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FFF.F0
F1F,F0FGF0FK*&F'F0-F36%F5FAF,F0FK*&)F(,*F*F-F+FhoF.F0F1F,F0FGF0F0*&)F(
,*F*F-F+Fao\"#GF0F1F,F0-F36%F5FdoF,F0F0*&)F(,*F1F/F=F0F*F-F+F,F0F2F0FK
*&)F(,*F1F/\"#OF0F*F-F+\"##)F0-F36%F5,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F/FO
F0F*F-F+\"#EF0-F36%FIFAF,F0F0*&)F(,*F1F/\"#@F0F*F-F+\"#eF0-F36%FIF[pF,
F0FK*&)F(,*F8F0F*F-F+F<F1F,F0-F36%FIF7F,F0F0*&)F(,*\"#DF0F*F-F+\"#oF1F
,F0-F36%,&F1F,F0F0F[pF,F0FK*&)F(,*\"#ZF0F*F-F+\"#'*F1F,F0-F36%FIFfqF,F
0FK*&)F(,*F*F-F+Fes\"#YF0F1F,F0-F36%F5,(F1F0\"\")F0F+F8F,F0FK*&)F(,*F*
F-F+F]s\"#CF0F1F,F0-F36%F@FfqF,F0FK" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a25:= eG0(1,a24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a25G,N*&)%\"qG,**$%\"jG\"\"#\"#cF+\"#7\"\"%\"\"\"%\"mGF,F0-%#gpG6%,
&F1F,F,F0,(F1F0F,F0F+\"\"(F,F0F0*&)F(,*F*F-F+!\"#\"\"'F0F1F/F0-F36%F5,
(F1F0F+F7F0F0F,F0F0*&)F(,*F*F-F+\"#;F1F,F<F0F0-F36%,&F1F,F/F0,(F1F0F+F
7\"\"$F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F36%F5,(F1F0F/F0F+F7F,F0!
\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F/F0-F36%,$F1F,,(F1F0F+F7FQF0F,F0FQ*&)F(,
*FLF0F*F-F+!#SF1F<F0-F36%FY,(F1F0F+F7F;F0F,F0FQ*&)F(,*\"#6F0F*F-F+FVF1
F/F0-F36%F5FZF,F0FQ*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F36%F5,(F1F0F+F7F<F0F
,F0F0*&)F(,*FLF0F*F-F+\"#WF1F,F0-F36%,&F1F,FHF0,(F1F0F+F7\"\"&F0F,F0F0
*&)F(,*F*F-F+FMF.F0F1F,F0FNF0FQ*&F'F0-F36%F`pFGF,F0FQ*&)F(,*F*F-F+F]pF
.F0F1F,F0FNF0F0*&)F(,*F*F-F+Ffo\"#GF0F1F,F0-F36%F`pFioF,F0F0*&)F(,*F1F
/F<F0F*F-F+F,F0-F36%F`pF6F,F0FQ*&)F(,*F1F/\"#OF0F*F-F+\"##)F0-F36%F`p,
(F1F0F7F0F+F7F,F0F0*&)F(,*F1F/FUF0F*F-F+\"#EF0-F36%F5FGF,F0F0*&)F(,*F1
F/\"#@F0F*F-F+\"#eF0-F36%F5FapF,F0FQ*&)F(,*F7F0F*F-F+FCF1F,F0F2F0F0*&)
F(,*\"#DF0F*F-F+\"#oF1F,F0-F36%,&F1F,F0F0FapF,F0FQ*&)F(,*\"#ZF0F*F-F+
\"#'*F1F,F0-F36%F5F^rF,F0FQ*&)F(,*F*F-F+F[t\"#YF0F1F,F0-F36%F`p,(F1F0
\"\")F0F+F7F,F0FQ*&)F(,*F*F-F+Fcs\"#CF0F1F,F0-F36%FFF^rF,F0FQ" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a26:= eG1(11,a25);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a26G,L*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"
\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*F
*F-F+\"#;F1F,F/F0F0-F46%,&F1F,F2F0,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*\"#8F0
F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF
1F2F0-F46%,$F1F,,(F1F0F+F8FJF0F,F0FJ*&)F(,*FEF0F*F-F+!#SF1F/F0-F46%FR,
(F1F0F+F8F.F0F,F0FJ*&)F(,*\"#6F0F*F-F+FOF1F2F0-F46%F6FSF,F0FJ*&)F(,*\"
#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FEF0F*F-F+\"#WF1
F,F0-F46%,&F1F,FAF0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FF\"#7F0F1F,F0F
GF0FJ*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6F@F,F0FJ*&)F(,*F*F-F+FfoF_pF0
F1F,F0FGF0F0*&)F(,*F*F-F+F_o\"#GF0F1F,F0-F46%FioFboF,F0F0*&)F(,*F1F2F/
F0F*F-F+F,F0-F46%Fio,(F1F0F,F0F+F8F,F0FJ*&)F(,*F1F2\"#OF0F*F-F+\"##)F0
-F46%Fio,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FNF0F*F-F+FcpF0FepF0F0*&)F(,*F1
F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF,F0FJ*&)F(,*F8F0F*F-F+F<F1F,F0-F46%F6Fe
qF,F0F0*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FjoF,F0FJ*&)F(,*\"#
ZF0F*F-F+\"#'*F1F,F0-F46%F6F]rF,F0FJ*&)F(,*F*F-F+Fis\"#YF0F1F,F0-F46%F
io,(F1F0\"\")F0F+F8F,F0FJ*&)F(,*F*F-F+Fas\"#CF0F1F,F0-F46%F?F]rF,F0FJ
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a27:= shiftdown(19,a26)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,L*&)%\"qG,**$%\"jG\"\"#\"
#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0
F0*&)F(,*F*F-F+\"#;F1F,F/F0F0-F46%,&F1F,F2F0,(F1F0F+F8\"\"$F0F,F0F0*&)
F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0
F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FJF0F,F0FJ*&)F(,*FEF0F*F-F+!#SF1F/
F0-F46%FR,(F1F0F+F8F.F0F,F0FJ*&)F(,*\"#6F0F*F-F+FOF1F2F0-F46%F6FSF,F0F
J*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FEF0F*
F-F+\"#WF1F,F0-F46%,&F1F,FAF0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FF\"#
7F0F1F,F0FGF0FJ*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6F@F,F0FJ*&)F(,*F*F-
F+FfoF_pF0F1F,F0FGF0F0*&)F(,*F*F-F+F_o\"#GF0F1F,F0-F46%FioFboF,F0F0*&)
F(,*F1F2F/F0F*F-F+F,F0-F46%Fio,(F1F0F,F0F+F8F,F0FJ*&)F(,*F1F2\"#OF0F*F
-F+\"##)F0-F46%Fio,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FNF0F*F-F+FcpF0FepF0F
0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF,F0FJ*&)F(,*F8F0F*F-F+F<F1F,F
0-F46%F6FeqF,F0F0*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FjoF,F0FJ
*&)F(,*F8F0F*F-F+!#;F1F,F0-F46%F6,&F1F0F+F8F,F0FJ*&)F(,*F*F-F+\"#'*\"#
YF0F1F,F0-F46%Fio,(F1F0\"\")F0F+F8F,F0FJ*&)F(,*F*F-F+Fas\"#CF0F1F,F0-F
46%F?F]rF,F0FJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a28:= gps
ym(19,a27);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a28G,L*&)%\"qG,**$%
\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"
\"(F0F0F,F0F0*&)F(,*F*F-F+\"#;F1F,F/F0F0-F46%,&F1F,F2F0,(F1F0F+F8\"\"$
F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)
F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FJF0F,F0FJ*&)F(,*FEF0F*
F-F+!#SF1F/F0-F46%FR,(F1F0F+F8F.F0F,F0FJ*&)F(,*\"#6F0F*F-F+FOF1F2F0-F4
6%F6FSF,F0FJ*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&
)F(,*FEF0F*F-F+\"#WF1F,F0-F46%,&F1F,FAF0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*
F*F-F+FF\"#7F0F1F,F0FGF0FJ*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6F@F,F0FJ
*&)F(,*F*F-F+FfoF_pF0F1F,F0FGF0F0*&)F(,*F*F-F+F_o\"#GF0F1F,F0-F46%FioF
boF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%Fio,(F1F0F,F0F+F8F,F0FJ*&)F(,*F1
F2\"#OF0F*F-F+\"##)F0-F46%Fio,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FNF0F*F-F+
FcpF0FepF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF,F0FJ*&)F(,*F8F0F*
F-F+F<F1F,F0-F46%F6FeqF,F0F0*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0
F0FjoF,F0FJ*&)F(,*F8F0F*F-F+!#;F1F,F0-F46%F6,(F1F0F,F0F+!\"(F,F0FJ*&)F
(,*F*F-F+\"#'*\"#YF0F1F,F0-F46%Fio,(F1F0\"\")F0F+F8F,F0FJ*&)F(,*F*F-F+
Fas\"#CF0F1F,F0-F46%F?F]rF,F0FJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "a29:= negate(19,a28);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a2
9G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F
1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*F*F-F+\"#;F1F,F/F0F0-F46%,&F1F,F2
F0,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F
0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FJF0F,
F0FJ*&)F(,*FEF0F*F-F+!#SF1F/F0-F46%FR,(F1F0F+F8F.F0F,F0FJ*&)F(,*\"#6F0
F*F-F+FOF1F2F0-F46%F6FSF,F0FJ*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F
0F+F8F/F0F,F0F0*&)F(,*FEF0F*F-F+\"#WF1F,F0-F46%,&F1F,FAF0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*F*F-F+FF\"#7F0F1F,F0FGF0FJ*&)F(,*F*F-F+\"#E\"#5F0F1F
2F0-F46%F6F@F,F0FJ*&)F(,*F*F-F+FfoF_pF0F1F,F0FGF0F0*&)F(,*F*F-F+F_o\"#
GF0F1F,F0-F46%FioFboF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%Fio,(F1F0F,F0F
+F8F,F0FJ*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%Fio,(F1F0F8F0F+F8F,F0F0*&)
F(,*F1F2FNF0F*F-F+FcpF0FepF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF
,F0FJ*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FjoF,F0FJ*&)F(,*F*F-F
+\"#'*\"#YF0F1F,F0-F46%Fio,(F1F0\"\")F0F+F8F,F0FJ*&)F(,*F*F-F+F\\s\"#C
F0F1F,F0-F46%F?F]rF,F0FJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 
"a30:= shiftdown(18,a29);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a30G,H
*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F
,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*F*F-F+\"#;F1F,F/F0F0-F46%,&F1F,F2F0,(
F1F0F+F8\"\"$F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F
8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FJF0F,F0FJ
*&)F(,*FEF0F*F-F+!#SF1F/F0-F46%FR,(F1F0F+F8F.F0F,F0FJ*&)F(,*\"#6F0F*F-
F+FOF1F2F0-F46%F6FSF,F0FJ*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F
8F/F0F,F0F0*&)F(,*FEF0F*F-F+\"#WF1F,F0-F46%,&F1F,FAF0,(F1F0F+F8\"\"&F0
F,F0F0*&)F(,*F*F-F+FF\"#7F0F1F,F0FGF0FJ*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F
46%F6F@F,F0FJ*&)F(,*F*F-F+FfoF_pF0F1F,F0FGF0F0*&)F(,*F*F-F+F_o\"#GF0F1
F,F0-F46%FioFboF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%Fio,(F1F0F,F0F+F8F,
F0FJ*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%Fio,(F1F0F8F0F+F8F,F0F0*&)F(,*F
1F2FNF0F*F-F+FcpF0FepF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF,F0FJ
*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FjoF,F0FJ*&)F(,*F*F-F+!#;F
/F0F1F,F0-F46%FioF7F,F0FJ*&)F(,*F*F-F+F\\s\"#CF0F1F,F0-F46%F?F]rF,F0FJ
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a31:= gpsym(18,a30);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a31G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+
!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&
)F(,*F*F-F+\"#;F1F,F/F0F0-F46%,&F1F,F2F0,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*
\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-
F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FJF0F,F0FJ*&)F(,*FEF0F*F-F+!#SF1F/F0-F
46%FR,(F1F0F+F8F.F0F,F0FJ*&)F(,*\"#6F0F*F-F+FOF1F2F0-F46%F6FSF,F0FJ*&)
F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FEF0F*F-F+
\"#WF1F,F0-F46%,&F1F,FAF0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FF\"#7F0F
1F,F0FGF0FJ*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6F@F,F0FJ*&)F(,*F*F-F+Ff
oF_pF0F1F,F0FGF0F0*&)F(,*F*F-F+F_o\"#GF0F1F,F0-F46%FioFboF,F0F0*&)F(,*
F1F2F/F0F*F-F+F,F0-F46%Fio,(F1F0F,F0F+F8F,F0FJ*&)F(,*F1F2\"#OF0F*F-F+
\"##)F0-F46%Fio,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FNF0F*F-F+FcpF0FepF0F0*&
)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF,F0FJ*&)F(,*\"#DF0F*F-F+\"#oF1F,
F0-F46%,&F1F,F0F0FjoF,F0FJ*&)F(,*F*F-F+!#;F/F0F1F,F0-F46%Fio,(F1F0F,F0
F+!\"(F,F0FJ*&)F(,*F*F-F+F\\s\"#CF0F1F,F0-F46%F?F]rF,F0FJ" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a32:= negate(18,a31);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%$a32G,H*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"
\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*F*F-F+
\"#;F1F,F/F0F0-F46%,&F1F,F2F0,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*\"#8F0F*F-F
+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0
-F46%,$F1F,,(F1F0F+F8FJF0F,F0FJ*&)F(,*FEF0F*F-F+!#SF1F/F0-F46%FR,(F1F0
F+F8F.F0F,F0FJ*&)F(,*\"#6F0F*F-F+FOF1F2F0-F46%F6FSF,F0FJ*&)F(,*\"#HF0F
*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FEF0F*F-F+\"#WF1F,F0-
F46%,&F1F,FAF0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FF\"#7F0F1F,F0FGF0FJ
*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6F@F,F0FJ*&)F(,*F*F-F+FfoF_pF0F1F,F
0FGF0F0*&)F(,*F*F-F+F_o\"#GF0F1F,F0-F46%FioFboF,F0F0*&)F(,*F1F2F/F0F*F
-F+F,F0-F46%Fio,(F1F0F,F0F+F8F,F0FJ*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%
Fio,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FNF0F*F-F+FcpF0FepF0F0*&)F(,*F1F2\"#
@F0F*F-F+\"#eF0-F46%F6FjoF,F0FJ*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F
,F0F0FjoF,F0FJ*&F:F0FcqF0FJ*&)F(,*F*F-F+F\\s\"#CF0F1F,F0-F46%F?F]rF,F0
FJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a33:= eG1(2,a32);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a33G,F*&)%\"qG,**$%\"jG\"\"#\"#cF+!
\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)
F(,*F*F-F+\"#IF1F2\"#7F0F0-F46%,&F1F,\"\"$F0,(F1F0F+F8FAF0F,F0F0*&)F(,
*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F
-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FKF0F,F0FK*&)F(,*FFF0F*F-F+!#SF1F/F0-
F46%FS,(F1F0F+F8F.F0F,F0FK*&)F(,*\"#6F0F*F-F+FPF1F2F0-F46%F6FTF,F0FK*&
)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FFF0F*F-F
+\"#WF1F,F0-F46%F@,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FGF=F0F1F,F0FHF0
FK*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6FBF,F0FK*&)F(,*F*F-F+FgoF=F0F1F,
F0FHF0F0*&)F(,*F*F-F+F`o\"#GF0F1F,F0-F46%F@FcoF,F0F0*&)F(,*F1F2F/F0F*F
-F+F,F0-F46%F@,(F1F0F,F0F+F8F,F0FK*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%F
@,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FOF0F*F-F+FbpF0FdpF0F0*&)F(,*F1F2\"#@F
0F*F-F+\"#eF0-F46%F6FjoF,F0FK*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F
0F0FjoF,F0FK*&)F(,*F*F-F+F[s\"#CF0F1F,F0-F46%,&F1F,F2F0F\\rF,F0FK" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a34:= shiftdown(18,a33);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a34G,F*&)%\"qG,**$%\"jG\"\"#\"#cF+!
\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)
F(,*F*F-F+\"#IF1F2\"#7F0F0-F46%,&F1F,\"\"$F0,(F1F0F+F8FAF0F,F0F0*&)F(,
*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F
-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FKF0F,F0FK*&)F(,*FFF0F*F-F+!#SF1F/F0-
F46%FS,(F1F0F+F8F.F0F,F0FK*&)F(,*\"#6F0F*F-F+FPF1F2F0-F46%F6FTF,F0FK*&
)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FFF0F*F-F
+\"#WF1F,F0-F46%F@,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FGF=F0F1F,F0FHF0
FK*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6FBF,F0FK*&)F(,*F*F-F+FgoF=F0F1F,
F0FHF0F0*&)F(,*F*F-F+F`o\"#GF0F1F,F0-F46%F@FcoF,F0F0*&)F(,*F1F2F/F0F*F
-F+F,F0-F46%F@,(F1F0F,F0F+F8F,F0FK*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%F
@,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FOF0F*F-F+FbpF0FdpF0F0*&)F(,*F1F2\"#@F
0F*F-F+\"#eF0-F46%F6FjoF,F0FK*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F
0F0FjoF,F0FK*&)F(,*F*F-F+!#WF=F0F1F,F0-F46%,&F1F,F2F0,&F1F0F+F8F,F0FK
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a35:= gpsym(18,a34);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a35G,F*&)%\"qG,**$%\"jG\"\"#\"#cF+
!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&
)F(,*F*F-F+\"#IF1F2\"#7F0F0-F46%,&F1F,\"\"$F0,(F1F0F+F8FAF0F,F0F0*&)F(
,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*
F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FKF0F,F0FK*&)F(,*FFF0F*F-F+!#SF1F/F0
-F46%FS,(F1F0F+F8F.F0F,F0FK*&)F(,*\"#6F0F*F-F+FPF1F2F0-F46%F6FTF,F0FK*
&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*FFF0F*F-
F+\"#WF1F,F0-F46%F@,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FGF=F0F1F,F0FHF
0FK*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6FBF,F0FK*&)F(,*F*F-F+FgoF=F0F1F
,F0FHF0F0*&)F(,*F*F-F+F`o\"#GF0F1F,F0-F46%F@FcoF,F0F0*&)F(,*F1F2F/F0F*
F-F+F,F0-F46%F@,(F1F0F,F0F+F8F,F0FK*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%
F@,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FOF0F*F-F+FbpF0FdpF0F0*&)F(,*F1F2\"#@
F0F*F-F+\"#eF0-F46%F6FjoF,F0FK*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,
F0F0FjoF,F0FK*&)F(,*F*F-F+!#WF=F0F1F,F0-F46%,&F1F,F2F0,(F1F0F2F0F+!\"(
F,F0FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a36:= negate(18,a
35);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a36G,F*&)%\"qG,**$%\"jG\"\"
#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F
,F0F0*&)F(,*F*F-F+\"#IF1F2\"#7F0F0-F46%,&F1F,\"\"$F0,(F1F0F+F8FAF0F,F0
F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"
\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FKF0F,F0FK*&)F(,*FFF0F*F-F+!#
SF1F/F0-F46%FS,(F1F0F+F8F.F0F,F0FK*&)F(,*\"#6F0F*F-F+FPF1F2F0-F46%F6FT
F,F0FK*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*F
FF0F*F-F+\"#WF1F,F0-F46%F@,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+FGF=F0F1
F,F0FHF0FK*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6FBF,F0FK*&)F(,*F*F-F+Fgo
F=F0F1F,F0FHF0F0*&)F(,*F*F-F+F`o\"#GF0F1F,F0-F46%F@FcoF,F0F0*&)F(,*F1F
2F/F0F*F-F+F,F0-F46%F@,(F1F0F,F0F+F8F,F0FK*&)F(,*F1F2\"#OF0F*F-F+\"##)
F0-F46%F@,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FOF0F*F-F+FbpF0FdpF0F0*&)F(,*F
1F2\"#@F0F*F-F+\"#eF0-F46%F6FjoF,F0FK*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46
%,&F1F,F0F0FjoF,F0FK*&FgpF0-F46%,&F1F,F2F0FJF,F0FK" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 18 "a37:= eG0(18,a36);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a37G,D*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"
mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+
\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-
F46%,$F1F,,(F1F0F+F8FAF0F,F0FA*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F
+F8F.F0F,F0FA*&)F(,*\"#6F0F*F-F+FFF1F2F0-F46%F6FJF,F0FA*&)F(,*\"#HF0F*
F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F
46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+F=\"#7F0F1F,F0F>F0
FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6,(F1F0F+F8FaoF0F,F0FA*&)F(,*F*F-
F+F]oFgoF0F1F,F0F>F0F0*&)F(,*F*F-F+Ffn\"#GF0F1F,F0-F46%F`oFinF,F0F0*&)
F(,*F1F2F/F0F*F-F+F,F0-F46%F`o,(F1F0F,F0F+F8F,F0FA*&)F(,*F1F2\"#OF0F*F
-F+\"##)F0-F46%F`o,(F1F0F8F0F+F8F,F0F0*&)F(,*F1F2FEF0F*F-F+F[pF0F]pF0F
0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FboF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF
1F,F0-F46%,&F1F,F0F0FboF,F0FA*&FapF0-F46%F`oF@F,F0FA" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 18 "a38:= eG0(17,a37);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a38G,B*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"
mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+
\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-
F46%,$F1F,,(F1F0F+F8FAF0F,F0FA*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F
+F8F.F0F,F0FA*&)F(,*\"#6F0F*F-F+FFF1F2F0-F46%F6FJF,F0FA*&)F(,*\"#HF0F*
F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F
46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+F=\"#7F0F1F,F0F>F0
FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6,(F1F0F+F8FaoF0F,F0FA*&)F(,*F*F-
F+Ffn\"#GF0F1F,F0-F46%F`oFinF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%F`o,(F
1F0F,F0F+F8F,F0FA*&)F(,*F1F2\"#OF0F*F-F+\"##)F0-F46%F`o,(F1F0F8F0F+F8F
,F0F0*&)F(,*F1F2FEF0F*F-F+F[pF0F]pF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F4
6%F6FboF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FboF,F0FA*&)F
(,*F*F-F+\"#IF\\pF0F1F2F0F]pF0FA" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "a39:= shiftdown(12,a38);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a39G,B*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"
mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+
\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-
F46%,$F1F,,(F1F0F+F8FAF0F,F0FA*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F
+F8F.F0F,F0FA*&)F(,*\"#6F0F*F-F+FFF1F2F0-F46%F6FJF,F0FA*&)F(,*\"#HF0F*
F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F
46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+F=\"#7F0F1F,F0F>F0
FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6,(F1F0F+F8FaoF0F,F0FA*&)F(,*F*F-
F+Ffn\"#GF0F1F,F0-F46%F`oFinF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%F`o,(F
1F0F,F0F+F8F,F0FA*&)F(,*F1F2F\\pF0F*F-F+!#IF0-F46%F`o,&F1F0F+F8F,F0F0*
&)F(,*F1F2FEF0F*F-F+F[pF0F]pF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6Fb
oF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FboF,F0FA*&)F(,*F*F
-F+\"#IF\\pF0F1F2F0F]pF0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "a40:= gpsym(12,a39);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a40G,B*
&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,
F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F
0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FAF0F,
F0FA*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F+F8F.F0F,F0FA*&)F(,*\"#6F0
F*F-F+FFF1F2F0-F46%F6FJF,F0FA*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F
0F+F8F/F0F,F0F0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8
\"\"&F0F,F0F0*&)F(,*F*F-F+F=\"#7F0F1F,F0F>F0FA*&)F(,*F*F-F+\"#E\"#5F0F
1F2F0-F46%F6,(F1F0F+F8FaoF0F,F0FA*&)F(,*F*F-F+Ffn\"#GF0F1F,F0-F46%F`oF
inF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%F`o,(F1F0F,F0F+F8F,F0FA*&)F(,*F1
F2F\\pF0F*F-F+!#IF0-F46%F`o,(F1F0FaoF0F+!\"(F,F0F0*&)F(,*F1F2FEF0F*F-F
+F[pF0F]pF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FboF,F0FA*&)F(,*\"#DF
0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0FboF,F0FA*&)F(,*F*F-F+\"#IF\\pF0F1F2F0
F]pF0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a41:= negate(12,
a40);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a41G,B*&)%\"qG,**$%\"jG\"
\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F
0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*&)F
(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FAF0F,F0FA*&)F(,*F<F0F*F
-F+!#SF1F/F0-F46%FI,(F1F0F+F8F.F0F,F0FA*&)F(,*\"#6F0F*F-F+FFF1F2F0-F46
%F6FJF,F0FA*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8F/F0F,F0F0*&)
F(,*F<F0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(
,*F*F-F+F=\"#7F0F1F,F0F>F0FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6,(F1F0
F+F8FaoF0F,F0FA*&)F(,*F*F-F+Ffn\"#GF0F1F,F0-F46%F`oFinF,F0F0*&)F(,*F1F
2F/F0F*F-F+F,F0-F46%F`o,(F1F0F,F0F+F8F,F0FA*&)F(,*F*F-F+\"#IF\\pF0F1F2
F0-F46%F`oF_pF,F0F0*&)F(,*F1F2FEF0F*F-F+F[pF0F]pF0F0*&)F(,*F1F2\"#@F0F
*F-F+\"#eF0-F46%F6FboF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F
0FboF,F0FA*&F]qF0F]pF0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 
"a42:= eG0(12,a41);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a42G,@*&)%\"
qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F
1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8
F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FAF0F,F0FA*
&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F+F8F.F0F,F0FA*&)F(,*\"#6F0F*F-F
+FFF1F2F0-F46%F6FJF,F0FA*&)F(,*\"#HF0F*F-F+\"#sF1F,F0-F46%F6,(F1F0F+F8
F/F0F,F0F0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&
F0F,F0F0*&)F(,*F*F-F+F=\"#7F0F1F,F0F>F0FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0
-F46%F6,(F1F0F+F8FaoF0F,F0FA*&)F(,*F*F-F+Ffn\"#GF0F1F,F0-F46%F`oFinF,F
0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%F`o,(F1F0F,F0F+F8F,F0FA*&)F(,*F*F-F+
\"#;F\\pF0F1F/F0-F46%F6F[qF,F0F0*&)F(,*F1F2FEF0F*F-F+F[pF0F]pF0F0*&)F(
,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FboF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-
F46%,&F1F,F0F0FboF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "
a43:= shiftdown(6,a42);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a43G,@*&
)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F
0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0
F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FAF0F,F
0FA*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F+F8F.F0F,F0FA*&)F(,*\"#6F0F
*F-F+FFF1F2F0-F46%F6FJF,F0FA*&)F(,*F<F0F*F-F+FNF1F,F0FVF0F0*&)F(,*F<F0
F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+
F=\"#7F0F1F,F0F>F0FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6,(F1F0F+F8F\\o
F0F,F0FA*&)F(,*F*F-F+\"#s\"#GF0F1F,F0-F46%F[o,(F1F0F+F8F/F0F,F0F0*&)F(
,*F1F2F/F0F*F-F+F,F0-F46%F[o,(F1F0F,F0F+F8F,F0FA*&)F(,*F*F-F+\"#;FgoF0
F1F/F0-F46%F6FhpF,F0F0*&)F(,*F1F2FEF0F*F-F+FfoF0FhoF0F0*&)F(,*F1F2\"#@
F0F*F-F+\"#eF0-F46%F6F]oF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,
F0F0F]oF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a44:= gpsy
m(6,a43);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a44G,@*&)%\"qG,**$%\"j
G\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(
F0F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+F8F,F0!\"\"*
&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FAF0F,F0FA*&)F(,*F<F0
F*F-F+!#SF1F/F0-F46%FI,(F1F0F+F8F.F0F,F0FA*&)F(,*\"#6F0F*F-F+FFF1F2F0-
F46%F6FJF,F0FA*&)F(,*F<F0F*F-F+FNF1F,F0-F46%F6,(F1F0\"\"$F0F+!\"(F,F0F
0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F46%,&F1F,FhnF0,(F1F0F+F8\"\"&F0F,F0F0*&)
F(,*F*F-F+F=\"#7F0F1F,F0F>F0FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0-F46%F6,(F1
F0F+F8FhnF0F,F0FA*&)F(,*F*F-F+\"#s\"#GF0F1F,F0-F46%F`o,(F1F0F+F8F/F0F,
F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%F`o,(F1F0F,F0F+F8F,F0FA*&)F(,*F*F-F+
\"#;F[pF0F1F/F0-F46%F6F\\qF,F0F0*&)F(,*F1F2FEF0F*F-F+FjoF0F\\pF0F0*&)F
(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6FaoF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0
-F46%,&F1F,F0F0FaoF,F0FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 
"a45:= negate(6,a44);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a45G,@*&)%
\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,
(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#8F0F*F-F+\"#SF1F,F0-F46%F6,(F1F0F2F0F+
F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FAF0F,F0F
A*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%FI,(F1F0F+F8F.F0F,F0FA*&)F(,*\"#6F0F*F
-F+FFF1F2F0-F46%F6FJF,F0FA*&F:F0-F46%F6,(F1F0F+F8\"\"$F0F,F0F0*&)F(,*F
<F0F*F-F+\"#WF1F,F0-F46%,&F1F,FfnF0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F
+F=\"#7F0F1F,F0F>F0FA*&)F(,*F*F-F+\"#E\"#5F0F1F2F0FYF0FA*&)F(,*F*F-F+
\"#s\"#GF0F1F,F0-F46%F]o,(F1F0F+F8F/F0F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-
F46%F]o,(F1F0F,F0F+F8F,F0FA*&)F(,*F*F-F+\"#;FhoF0F1F/F0-F46%F6FfpF,F0F
0*&)F(,*F1F2FEF0F*F-F+FgoF0FYF0F0*&)F(,*F1F2\"#@F0F*F-F+\"#eF0-F46%F6F
^oF,F0FA*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%,&F1F,F0F0F^oF,F0FA" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a46:= eG1(2,a45);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a46G,B*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"
\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*
\"#8F0F*F-F+\"#SF1F,F0-F46%,&F1F,F0F0,(F1F0F+F8\"\"$F0F,F0!\"\"*&)F(,*
\"#@F0F*F-F+\"#aF1F2F0-F46%F@,(F1F0F2F0F+F8F,F0FC*&)F(,*\"\"*F0F*F-F+!
#EF1F2F0-F46%,$F1F,,(F1F0F+F8FCF0F,F0FC*&)F(,*F<F0F*F-F+!#SF1F/F0-F46%
FS,(F1F0F+F8F.F0F,F0FC*&)F(,*\"#6F0F*F-F+FPF1F2F0-F46%F6FTF,F0FC*&F:F0
-F46%F6FAF,F0F0*&)F(,*F<F0F*F-F+\"#WF1F,F0-F46%,&F1F,FBF0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*F*F-F+F=\"#7F0F1F,F0-F46%F6FKF,F0FC*&)F(,*F*F-F+\"#E
\"#5F0F1F2F0F]oF0FC*&)F(,*F*F-F+\"#s\"#GF0F1F,F0-F46%Feo,(F1F0F+F8F/F0
F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%Feo,(F1F0F,F0F+F8F,F0FC*&)F(,*F*F-
F+\"#;FbpF0F1F/F0-F46%F6F`qF,F0F0*&)F(,*F1F2FOF0F*F-F+FapF0F]oF0F0*&)F
(,*F1F2FGF0F*F-F+\"#eF0-F46%F6FfoF,F0FC*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F
46%F@FfoF,F0FC" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a47:= eG0
(7,a46);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a47G,@*&)%\"qG,**$%\"jG
\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F
0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F
0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F
(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0F*F-F+
FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F,F0F+F
8F,F0F0*&)F(,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F
,F0F0*&)F(,*F*F-F+\"#S\"#7F0F1F,F0-F46%F6FAF,F0FB*&)F(,*F*F-F+Fgn\"#5F
0F1F2F0-F46%F6,(F1F0F+F8FboF0F,F0FB*&)F(,*F*F-F+\"#s\"#GF0F1F,F0-F46%F
ao,(F1F0F+F8F/F0F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*&)F(,
*F*F-F+\"#;F_pF0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0F`pF0F
0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6FcoF,F0FB*&)F(,*\"#DF0F*F-F+\"#oF1F
,F0-F46%F@FcoF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a48:
= shiftdown(10,a47);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a48G,@*&)%
\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,
(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1
F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8F
BF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,
*\"#6F0F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@
,(F1F0F,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F
0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+\"#S\"#7F0F1F,F0-F46%F6FAF,F0FB*&)F(,*F
*F-F+Fgn\"#5F0F1F2F0-F46%F6,(F1F0F+F8FboF0F,F0FB*&)F(,*F*F-F+FPFioF0F1
F,F0-F46%FaoFKF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*&)F(,*F
*F-F+\"#;F_pF0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0F`pF0F0*
&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6FcoF,F0FB*&)F(,*\"#DF0F*F-F+\"#oF1F,F
0-F46%F@FcoF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a49:= \+
gpsym(10,a48);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a49G,@*&)%\"qG,**
$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+
\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F
+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0
FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0
F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F
,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*F*F-F+\"#S\"#7F0F1F,F0-F46%F6FAF,F0FB*&)F(,*F*F-F+Fg
n\"#5F0F1F2F0-F46%F6,(F1F0F+F8FboF0F,F0FB*&)F(,*F*F-F+FPFioF0F1F,F0-F4
6%Fao,(F1F0F2F0F+!\"(F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*
&)F(,*F*F-F+\"#;F_pF0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0F
`pF0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6FcoF,F0FB*&)F(,*\"#DF0F*F-F+\"
#oF1F,F0-F46%F@FcoF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 
"a50:= negate(10,a49);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a50G,@*&)
%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0
,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F
1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8
FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(
,*\"#6F0F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F
@,(F1F0F,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1
F0F+F8\"\"&F0F,F0F0*&)F(,*F*F-F+\"#S\"#7F0F1F,F0-F46%F6FAF,F0FB*&)F(,*
F*F-F+Fgn\"#5F0F1F2F0-F46%F6,(F1F0F+F8FboF0F,F0FB*&FfoF0-F46%FaoFAF,F0
F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*&)F(,*F*F-F+\"#;F_pF0F1F/
F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0F`pF0F0*&)F(,*F1F2F<F0F*F-
F+\"#eF0-F46%F6FcoF,F0FB*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46%F@FcoF,F0FB
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a51:= eG0(10,a50);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a51G,:*&)%\"qG,**$%\"jG\"\"#\"#cF+!
\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)
F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,
*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F
-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0F*F-F+FGF1F2F0-F46
%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F,F0F+F8F,F0F0*&)F(
,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"\"&F0F,F0F0*&)F(,*
F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F
6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0-F46%F6,(F1F0F+F8FboF0F,F0F0*&)F(,
*F1F2F<F0F*F-F+\"#eF0-F46%F6FcoF,F0FB*&)F(,*\"#DF0F*F-F+\"#oF1F,F0-F46
%F@FcoF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a52:= shift
down(12,a51);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a52G,:*&)%\"qG,**$
%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+
\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F
+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0
FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0
F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F
,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F1F0F+F8\"
\"&F0F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*&)F(,*F*F-F+\"#;
\"#5F0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0-F46%F6,(F1F0F+F
8FboF0F,F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6FcoF,F0FB*&)F(,*FOF0F*F-
F+!#WF1F,F0-F46%F@FSF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
19 "a53:= gpsym(7,a52);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a53G,:*&
)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F
0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(
F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F
8FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F
(,*\"#6F0F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%
F@,(F1F0F,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+\"#WF1F,F0-F46%,&F1F,\"\"$F0,(F
1F0F.F0F+!\"(F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F0FB*&)F(,*F*
F-F+\"#;\"#5F0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0-F46%F6,
(F1F0F+F8FboF0F,F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F
0F,F0FB*&)F(,*FOF0F*F-F+!#WF1F,F0-F46%F@FSF,F0FB" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 20 "a54:= negate(7,a53);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a54G,:*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"
mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+
\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#
EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46
%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(
,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+!#WF
1F,F0-F46%,&F1F,\"\"$F0FSF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%FaoFjnF,F
0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+F
gnF0-F46%F6,(F1F0F+F8FboF0F,F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1
F0F+F8\"\"&F0F,F0FB*&F\\oF0-F46%F@FSF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "a55:= eG0(7,a54);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a55G,<*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#g
pG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46
%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$
F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F
.F0F,F0FB*&)F(,*\"#6F0F*F-F+FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"
#EF1F2F0-F46%F@,(F1F0F,F0F+F8F,F0F0*&)F(,*FOF0F*F-F+!#WF1F,F0-F46%F6FS
F,F0F0*&)F(,*\"#BF0F*F-F+!#eF1F2F0-F46%F6,(F1F0F+F8!\"$F0F,F0F0*&)F(,*
F1F2F/F0F*F-F+F,F0-F46%,&F1F,\"\"$F0FjnF,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1
F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F*F-F+FgnF0-F46%F6,(F1F0F+F8F`pF0F,
F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0FB*&F\\oF0-
F46%F@FSF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a56:= eG0
(7,a55);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a56G,:*&)%\"qG,**$%\"jG
\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F
0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F
0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F
(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0F*F-F+
FGF1F2F0-F46%F6FKF,F0FB*&)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F,F0F+F
8F,F0F0*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0F,F0F0*&)F(,*
\"#BF0F*F-F+F^oF1F2F0-F46%F6FaoF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F
1F,\"\"$F0FjnF,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6FjnF,F0F0*&)F(,
*F1F2FFF0F*F-F+FgnF0-F46%F6,(F1F0F+F8F_pF0F,F0F0*&)F(,*F1F2F<F0F*F-F+
\"#eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "a57:= gpsym(5,a56);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a57G,:*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#g
pG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46
%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$
F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F
.F0F,F0FB*&)F(,*\"#6F0F*F-F+FGF1F2F0-F46%F6,(F1F0\"\"$F0F+!\"(F,F0FB*&
)F(,*FWF0F*F-F+\"#EF1F2F0-F46%F@,(F1F0F,F0F+F8F,F0F0*&)F(,*F<F0F*F-F+!
#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0F,F0F0*&)F(,*\"#BF0F*F-F+FaoF1F2F0-F46%
F6FdoF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F1F,FenF0F]oF,F0FB*&)F(,*F*
F-F+\"#;\"#5F0F1F/F0-F46%F6F]oF,F0F0*&)F(,*F1F2FFF0F*F-F+FjnF0-F46%F6,
(F1F0F+F8FenF0F,F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F
0F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a58:= negate(5,a
57);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a58G,:*&)%\"qG,**$%\"jG\"\"
#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F
,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"
\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*
\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#6F0F*F-F+\"#
EF1F2F0-F46%F6,(F1F0F+F8\"\"$F0F,F0FB*&FUF0-F46%F@,(F1F0F,F0F+F8F,F0F0
*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0F,F0F0*&)F(,*\"#BF0F*
F-F+F^oF1F2F0-F46%F6FaoF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F1F,FfnF0
FjnF,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6FjnF,F0F0*&)F(,*F1F2FFF0F
*F-F+FXF0FYF0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0
FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a59:= eG1(5,a58);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a59G,8*&)%\"qG,**$%\"jG\"\"#\"#cF+!
\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)
F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,
*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F
-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F
46%F@,(F1F0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F
8!\"$F0F,F0F0*&)F(,*\"#BF0F*F-F+FjnF1F2F0-F46%F6F]oF,F0F0*&)F(,*F1F2F/
F0F*F-F+F,F0-F46%,&F1F,FfnF0,(F1F0F,F0F+F8F,F0FB*&)F(,*F*F-F+\"#;\"#5F
0F1F/F0-F46%F6F[pF,F0F0*&)F(,*F1F2FFF0F*F-F+\"#EF0-F46%F6FenF,F0F0*&)F
(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a60:= gpsym(10,a59);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%$a60G,8*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"
\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0
F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*
F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/
F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F46%F@,(F1F
0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0F,F
0F0*&)F(,*\"#BF0F*F-F+FjnF1F2F0-F46%F6F]oF,F0F0*&)F(,*F1F2F/F0F*F-F+F,
F0-F46%,&F1F,FfnF0,(F1F0F,F0F+F8F,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F4
6%F6F[pF,F0F0*&)F(,*F1F2FFF0F*F-F+\"#EF0-F46%F6,(F1F0FBF0F+!\"(F,F0F0*
&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a61:= negate(10,a60);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%$a61G,8*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"
\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0
F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*
F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/
F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F46%F@,(F1F
0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0F,F
0F0*&)F(,*\"#BF0F*F-F+FjnF1F2F0-F46%F6F]oF,F0F0*&)F(,*F1F2F/F0F*F-F+F,
F0-F46%,&F1F,FfnF0,(F1F0F,F0F+F8F,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F4
6%F6F[pF,F0F0*&FDF0-F46%F6FKF,F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6,(
F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a6
2:= eG0(10,a61);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a62G,:*&)%\"qG,
**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0
F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F
0F+F8F,F0!\"\"*&)F(,*\"\"*F0F*F-F+!#EF1F2F0-F46%,$F1F,,(F1F0F+F8FBF0F,
F0FB*&)F(,*\"#8F0F*F-F+!#SF1F/F0-F46%FJ,(F1F0F+F8F.F0F,F0FB*&)F(,*\"#<
F0F*F-F+\"#SF1F/F0-F46%F@,(F1F0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1
F2F0-F46%F@,(F1F0F+F8!\"$F0F,F0F0*&)F(,*\"#BF0F*F-F+FjnF1F2F0-F46%F6F]
oF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F1F,FfnF0,(F1F0F,F0F+F8F,F0FB*&
)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6F[pF,F0F0*&FDF0-F46%F@FKF,F0F0*&)F(,
*\"#:F0F*F-F+FPF1F/F0-F46%F@FSF,F0F0*&)F(,*F1F2F<F0F*F-F+\"#eF0-F46%F6
,(F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "
a63:= eG0(10,a62);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a63G,4*&)%\"q
G,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1
F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F
2F0F+F8F,F0!\"\"*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F46%F@,(F1F0F+F8\"\"$F0F
,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0F,F0F0*&)F(,*\"#
BF0F*F-F+FOF1F2F0-F46%F6FRF,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F1F,FK
F0,(F1F0F,F0F+F8F,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6FjnF,F0F0*&)
F(,*\"#:F0F*F-F+!#SF1F/F0-F46%F@,(F1F0F+F8F.F0F,F0F0*&)F(,*F1F2F<F0F*F
-F+\"#eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a64:= eG0(5,a63);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a64G,6*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#gpG
6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46%,
&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F46%F@,(
F1F0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$F0
F,F0F0*&)F(,*\"#BF0F*F-F+FOF1F2F0FPF0F0*&)F(,*\"#LF0F*F-F+!#sF1F/F0-F4
6%F@,(F1F0F+F8!\"%F0F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F1F,FKF0,(F1
F0F,F0F+F8F,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6FaoF,F0F0*&)F(,*\"
#:F0F*F-F+!#SF1F/F0-F46%F@,(F1F0F+F8F.F0F,F0F0*&)F(,*F1F2F<F0F*F-F+\"#
eF0-F46%F6,(F1F0F+F8\"\"&F0F,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "a65:= shiftdown(10,a64);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a65G,6*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"
mG\"\"%F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+
\"#aF1F2F0-F46%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"#<F0F*F-F+\"#
SF1F/F0-F46%F@,(F1F0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@
,(F1F0F+F8!\"$F0F,F0F0*&)F(,*\"#BF0F*F-F+FOF1F2F0FPF0F0*&)F(,*\"#LF0F*
F-F+!#sF1F/F0-F46%F@,(F1F0F+F8!\"%F0F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F4
6%,&F1F,FKF0,(F1F0F,F0F+F8F,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6Fa
oF,F0F0*&)F(,*\"#:F0F*F-F+!#SF1F/F0-F46%F@,(F1F0F+F8F.F0F,F0F0*&)F(,*F
1F2\"#>F0F*F-F+!#aF0-F46%F6F`pF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "a66:= gpsym(7,a65);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a66G,6*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#g
pG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F46
%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F46%F@
,(F1F0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"$
F0F,F0F0*&)F(,*\"#BF0F*F-F+FOF1F2F0FPF0F0*&)F(,*\"#LF0F*F-F+!#sF1F/F0-
F46%F@,(F1F0F+F8!\"%F0F,F0F0*&)F(,*F1F2F/F0F*F-F+F,F0-F46%,&F1F,FKF0,(
F1F0F0F0F+!\"(F,F0FB*&)F(,*F*F-F+\"#;\"#5F0F1F/F0-F46%F6,(F1F0F,F0F+F8
F,F0F0*&)F(,*\"#:F0F*F-F+!#SF1F/F0-F46%F@,(F1F0F+F8F.F0F,F0F0*&)F(,*F1
F2\"#>F0F*F-F+!#aF0-F46%F6FbpF,F0FB" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a67:= negate(7,a66);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a67G,6*&)%\"qG,**$%\"jG\"\"#\"#cF+!\"#\"\"'\"\"\"%\"mG\"\"%F0-%#
gpG6%,&F1F,F,F0,(F1F0F+\"\"(F0F0F,F0F0*&)F(,*\"#@F0F*F-F+\"#aF1F2F0-F4
6%,&F1F,F0F0,(F1F0F2F0F+F8F,F0!\"\"*&)F(,*\"#<F0F*F-F+\"#SF1F/F0-F46%F
@,(F1F0F+F8\"\"$F0F,F0FB*&)F(,*F<F0F*F-F+!#eF1F2F0-F46%F@,(F1F0F+F8!\"
$F0F,F0F0*&)F(,*\"#BF0F*F-F+FOF1F2F0FPF0F0*&)F(,*\"#LF0F*F-F+!#sF1F/F0
-F46%F@,(F1F0F+F8!\"%F0F,F0F0*&F'F0-F46%,&F1F,FKF0F7F,F0FB*&)F(,*F*F-F
+\"#;\"#5F0F1F/F0-F46%F6,(F1F0F,F0F+F8F,F0F0*&)F(,*\"#:F0F*F-F+!#SF1F/
F0-F46%F@,(F1F0F+F8F.F0F,F0F0*&)F(,*F1F2\"#>F0F*F-F+!#aF0-F46%F6F^pF,F
0FB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a68:= eG0(7,a67);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a68G,4*&)%\"qG,*\"#@\"\"\"*$%\"jG
\"\"#\"#cF-\"#a%\"mG\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+F2F+F-\"\"(F.F+!\"
\"*&)F(,*\"#<F+F,F/F-\"#SF1\"\"'F+-F46%F6,(F1F+F-F8\"\"$F+F.F+F9*&)F(,
*F*F+F,F/F-!#eF1F2F+-F46%F6,(F1F+F-F8!\"$F+F.F+F+*&)F(,*\"#BF+F,F/F-FG
F1F2F+FHF+F+*&)F(,*\"#LF+F,F/F-!#sF1F?F+-F46%F6,(F1F+F-F8!\"%F+F.F+F+*
&)F(,*F,F/F-!#;\"#5F+F1F?F+-F46%,&F1F.F.F+,&F1F+F-F8F.F+F9*&)F(,*F,F/F
-\"#;FgnF+F1F?F+-F46%Fjn,(F1F+F.F+F-F8F.F+F+*&)F(,*\"#:F+F,F/F-!#SF1F?
F+-F46%F6,(F1F+F-F8!\"#F+F.F+F+*&)F(,*F1F2\"#>F+F,F/F-!#aF+-F46%FjnFjo
F.F+F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a69:= shiftup(5,a
68);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a69G,0*&)%\"qG,*\"#@\"\"\"*
$%\"jG\"\"#\"#cF-\"#a%\"mG\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+F2F+F-\"\"(F.
F+!\"\"*&)F(,*F*F+F,F/F-!#eF1F2F+-F46%F6,(F1F+F-F8!\"$F+F.F+F+*&)F(,*
\"#BF+F,F/F-F=F1F2F+F>F+F+*&)F(,*F,F/F-!#;\"#5F+F1\"\"'F+-F46%,&F1F.F.
F+,&F1F+F-F8F.F+F9*&)F(,*F,F/F-\"#;FJF+F1FKF+-F46%FN,(F1F+F.F+F-F8F.F+
F+*&)F(,*\"#:F+F,F/F-!#SF1FKF+-F46%F6,(F1F+F-F8!\"#F+F.F+F+*&)F(,*F1F2
\"#>F+F,F/F-!#aF+-F46%FNFhnF.F+F9" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "a70:= gpsym(4,a69);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a70G,0*&)%\"qG,*\"#@\"\"\"*$%\"jG\"\"#\"#cF-\"#a%\"mG\"\"%F+-%#gp
G6%,&F1F.F+F+,(F1F+F2F+F-\"\"(F.F+!\"\"*&)F(,*F*F+F,F/F-!#eF1F2F+-F46%
F6,(F1F+F-F8!\"$F+F.F+F+*&)F(,*\"#BF+F,F/F-F=F1F2F+F>F+F+*&)F(,*F,F/F-
!#;\"#5F+F1\"\"'F+-F46%,&F1F.F.F+,(F1F+F.F+F-!\"(F.F+F9*&)F(,*F,F/F-\"
#;FJF+F1FKF+-F46%FN,(F1F+F.F+F-F8F.F+F+*&)F(,*\"#:F+F,F/F-!#SF1FKF+-F4
6%F6,(F1F+F-F8!\"#F+F.F+F+*&)F(,*F1F2\"#>F+F,F/F-!#aF+-F46%FNFinF.F+F9
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a71:= negate(4,a70);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a71G,,*&)%\"qG,*\"#@\"\"\"*$%\"jG
\"\"#\"#cF-\"#a%\"mG\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+F2F+F-\"\"(F.F+!\"
\"*&)F(,*F*F+F,F/F-!#eF1F2F+-F46%F6,(F1F+F-F8!\"$F+F.F+F+*&)F(,*\"#BF+
F,F/F-F=F1F2F+F>F+F+*&)F(,*\"#:F+F,F/F-!#SF1\"\"'F+-F46%F6,(F1F+F-F8!
\"#F+F.F+F+*&)F(,*F1F2\"#>F+F,F/F-!#aF+-F46%,&F1F.F.F+FNF.F+F9" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a72:= eG1(5,a71);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a72G,**&)%\"qG,*\"#@\"\"\"*$%\"jG\"\"#\"#
cF-\"#a%\"mG\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+F2F+F-\"\"(F.F+!\"\"*&)F(,*
F*F+F,F/F-!#eF1F2F+-F46%F6,(F1F+F-F8!\"$F+F.F+F+*&)F(,*\"#BF+F,F/F-F=F
1F2F+F>F+F+*&)F(,*F1F2\"#>F+F,F/F-!#aF+F>F+F9" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 23 "a73:= shiftdown(1,a72);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a73G,&*&)%\"qG,*\"#@\"\"\"*$%\"jG\"\"#\"#cF-!#e%\"mG
\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+F-\"\"(!\"$F+F.F+F+*&)F(,*F1F2\"#>F+F,F
/F-!#aF+F3F+!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a74:= \+
shiftup(1,a73);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a74G,&*&)%\"qG,*
\"#>\"\"\"*$%\"jG\"\"#\"#cF-\"#a%\"mG\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+F2
F+F-\"\"(F.F+F+*&)F(,*F1F2F*F+F,F/F-!#aF+-F46%F6,(F1F+F-F8!\"$F+F.F+!
\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a75:= gpsym(1,a74);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a75G,&*&)%\"qG,*\"#>\"\"\"*$%\"
jG\"\"#\"#cF-\"#a%\"mG\"\"%F+-%#gpG6%,&F1F.F+F+,(F1F+!\"$F+F-!\"(F.F+F
+*&)F(,*F1F2F*F+F,F/F-!#aF+-F46%F6,(F1F+F-\"\"(F8F+F.F+!\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a76:= negate(1,a75);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a76G\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "156 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 }