{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 29 "######## 3.105-A wit
h q-->q^2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 160 "op2:= annihil
oper( qfac(-q^2,q^2,j+1) * qfac(-q^4,q^4,j) * qfac(q^2,q^2, j+1) * q^(
j^2+j) / qfac(q^2,q^4,j+1) / qfac(q^4,q^4,j+1) / spqfac(q^2,q^2,j), 0,
 back);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op2G,.\"\"\"F&*&,&F&F&)%
\"qG,$%\"nG\"\"#F&F&%\"NG!\"\"F/*&,&*$F*\"\"%F&*$F*F-F&F&F.!\"#F/*&,&F
2F/F4F/F&F.!\"$F/*&F*\"\"'F.!\"%F&*&,&*$F*F:F&F)F/F&F.!\"&F/" }}}
{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "altsign:=true;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(
altsignG%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "A1:= app
lyshiftop(op2, q^(8*j^2 + 4*j) * T1(n+1, 4*j+1, 1));" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%#A1G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%\"\"'\"\"
\"F0-%#T1G6%,&%\"nGF0!\"%F0,&F+F.F0F0F0F0!\"\"*&)F(,(F*F-F+F.F5F,F0F1F
0F0*&F'F0-F26%,&F5F0!\"$F0F7F0F0F0*&)F(,(F*F-F+F.F.F0F0-F26%,&F5F0!\"#
F0F7F0F0F0*&)F(,(F*F-F+F.F,F0F0FDF0F0*&-F26%,&F5F0F8F0F7F0F0FBF0F8*&FL
F0FIF0F8*&)F(,&F*F-F+F.F0-F26%F5F7F0F0F8*&F:F0FSF0F8*&FQF0-F26%,&F5F0F
0F0F7F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A2:= eT1(10,
A1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A2G,6*&)%\"qG,(*$%\"jG\"\"#
\"\")F+\"\"%\"\"'\"\"\"F0-%#T1G6%,&%\"nGF0!\"%F0,&F+F.F0F0F0F0!\"\"*&)
F(,(F*F-F+F.F5F,F0F1F0F0*&F'F0-F26%,&F5F0!\"$F0F7F0F0F0*&)F(,(F*F-F+F.
F.F0F0-F26%,&F5F0!\"#F0F7F0F0F0*&)F(,(F*F-F+F.F,F0F0FDF0F0*&-F26%,&F5F
0F8F0F7F0F0FBF0F8*&FLF0FIF0F8*&F:F0-F26%F5F7F0F0F8*&)F(,*F*F-F+F-F5F0F
,F0F0-%#T0G6%F5,&F+F.F,F0F0F0F0*&)F(,&F*F-F5F0F0-FW6%F5,$F+F.F0F0F0" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A3:= eT1(7,A2);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#A3G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%\"
\"'\"\"\"F0-%#T1G6%,&%\"nGF0!\"%F0,&F+F.F0F0F0F0!\"\"*&)F(,(F*F-F+F.F5
F,F0F1F0F0*&F'F0-F26%,&F5F0!\"$F0F7F0F0F0*&)F(,(F*F-F+F.F.F0F0-F26%,&F
5F0!\"#F0F7F0F0F0*&-F26%,&F5F0F8F0F7F0F0FBF0F8*&)F(,*F*F-F+F-F5F0F,F0F
0-%#T0G6%FF,&F+F.F,F0F0F0F8*&)F(,&F*F-F5F0F0-FP6%FF,$F+F.F0F0F8*&F:F0-
F26%F5F7F0F0F8*&FMF0-FP6%F5FRF0F0F0*&FTF0-FP6%F5FXF0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A4:= eT1(5,A3);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#A4G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%\"\"'\"\"\"
F0-%#T1G6%,&%\"nGF0!\"%F0,&F+F.F0F0F0F0!\"\"*&)F(,(F*F-F+F.F5F,F0F1F0F
0*&F'F0-F26%,&F5F0!\"$F0F7F0F0F0*&)F(,*F*F-F+F-F.F0F5F0F0-%#T0G6%,&F5F
0!\"#F0,&F+F.F,F0F0F0F8*&)F(,(F*F-F,F0F5F0F0-FE6%FG,$F+F.F0F0F8*&)F(,*
F*F-F+F-F5F0F,F0F0FDF0F8*&)F(,&F*F-F5F0F0FMF0F8*&F:F0-F26%F5F7F0F0F8*&
FQF0-FE6%F5FIF0F0F0*&FTF0-FE6%F5FOF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "A5:= eT1(3,A4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#A5G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"
%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0
*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!
\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/F0F,F0F0FEF0FI*&)F(,&F*F-F/F
0F0FKF0FI*&F'F0-F26%F/F6F0F0FI*&FNF0-F;6%F/F=F0F0F0*&FQF0-F;6%F/FCF0F0
F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "#####" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A6:= eT0(10,A5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%#A6G,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!
\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0
F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F
0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/F0F,F0F0FEF0FI*&)F(,&F*F-F
/F0F0FKF0FI*&F'F0-F26%F/F6F0F0FI*&FNF0-F;6%F/F=F0F0F0*&FQF0-F;6%,&F/F0
FIF0,&F+F.FIF0F0F0F0*&F'F0-F26%FfnFCF0F0F0*&)F(,(F*F-F/\"\"$F+F-F0-F;6
%FfnF6F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A7:=sym(10,
A6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A7G,:*&)%\"qG,(*$%\"jG\"\"#
\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*
F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4
,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)
F(,*F*F-F+F-F/F0F,F0F0FEF0FI*&)F(,&F*F-F/F0F0FKF0FI*&F'F0-F26%F/F6F0F0
FI*&FNF0-F;6%F/F=F0F0F0*&FQF0-F;6%,&F/F0FIF0,&F+F5F0F0F0F0F0*&F'F0-F26
%FfnFCF0F0F0*&)F(,(F*F-F/\"\"$F+F-F0-F;6%FfnF6F0F0F0" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "A8:=eT0(10,A7);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#A8G,>*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"
-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F
4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&
F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/F0F,F0F0FEF
0FI*&)F(,&F*F-F/F0F0FKF0FI*&F'F0-F26%F/F6F0F0FI*&FNF0-F;6%F/F=F0F0F0*&
FQF0-F;6%FG,$F+F5F0F0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)
F(,(F*F-F/\"\"$F+!\")F0-F;6%FG,&F+F5F,F0F0F0F0*&F'F0-F26%,&F/F0FIF0FCF
0F0F0*&)F(,(F*F-F/F`oF+F-F0-F;6%FhoF6F0F0F0" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 16 "A9:= sym(10,A8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%#A9G,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F
0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0
F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F
0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/F0F,F0F0FEF0FI*&F'F0-F26
%F/F6F0F0FI*&FNF0-F;6%F/F=F0F0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0
F0F0F0*&)F(,(F*F-F/\"\"$F+!\")F0-F;6%FG,&F+F5F,F0F0F0F0*&F'F0-F26%,&F/
F0FIF0FCF0F0F0*&)F(,(F*F-F/FinF+F-F0-F;6%FaoF6F0F0F0" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "A10:=eT1(7,A9);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A10G,>*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"
\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6
%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%
,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/F0F,F0F0F
EF0FI*&F'F0-F26%,&F/F0FIF0F6F0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%FSF
=F0F0FI*&)F(,(F*F-F/FWFIF0F0-F;6%FSFCF0F0FI*&FNF0-F;6%F/F=F0F0F0*&)F(,
(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)F(,(F*F-F/FWF+!\")F0-F;6%FG,&
F+F5F,F0F0F0F0*&F'F0-F2FhnF0F0*&)F(,(F*F-F/FWF+F-F0-F;FRF0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A11:= e0(13,A10);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A11G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%
\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F
0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*
&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F
/F0F,F0F0FEF0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&FN
F0-F;6%F/F=F0F0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)F(,(F*
F-F/FSF+!\")F0-F;6%FG,&F+F5F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "#########" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "A12:= sym(8,A11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A12G,6*&)%
\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F
0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F
-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0
-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/F0F,F0F0FEF0FI*&)F(,*F*F-F+F-F/\"\"$F0
F0F0-F;6%,&F/F0FIF0F=F0F0FI*&FNF0-F;6%F/,&F+F5FHF0F0F0F0*&)F(,(F*F-F/F
,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)F(,(F*F-F/FSF+!\")F0-F;6%FG,&F+F5F,F0
F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A13:= eT0(8,A12);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A13G,:*&)%\"qG,(*$%\"jG\"\"#\"
\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-
F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$
F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(
,*F*F-F+F-F/F0F,F0F0FEF0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F
=F0F0FI*&FNF0-F;6%FV,&F+F5!\"$F0F0F0F0*&F'F0-F26%FV,&F+F5FHF0F0F0F0*&)
F(,(F*F-F/FSFHF0F0-F;6%FV,&F+F5FIF0F0F0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,
&F+F5F0F0F0F0F0*&)F(,(F*F-F/FSF+!\")F0-F;6%FG,&F+F5F,F0F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A14:=sym(8,A13);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A14G,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%
\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F
0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*
&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F
/F0F,F0F0FEF0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&FN
F0-F;6%FV,&F+F.FSF0F0F0F0*&F'F0-F26%FV,&F+F5FHF0F0F0F0*&)F(,(F*F-F/FSF
HF0F0-F;6%FV,&F+F5FIF0F0F0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0
F0*&)F(,(F*F-F/FSF+!\")F0-F;6%FG,&F+F5F,F0F0F0F0" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 16 "A15:=eT0(8,A14);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A15G,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"
\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6
%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%
,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0
F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F*F-F+\"#7F/F,F.F0F0-F26%FG,&F+F.FPF0F
0F0F0*&)F(,*F*F-F+\"#;F/FP\"\"'F0F0-F;6%FG,&F+F.F.F0F0F0F0*&F'F0-F26%F
S,&F+F5FHF0F0F0F0*&)F(,(F*F-F/FPFHF0F0-F;6%FS,&F+F5FIF0F0F0F0*&)F(,(F*
F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)F(,(F*F-F/FPF+!\")F0-F;6%FG,&F+F
5F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "############
###" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 17 "A16:= eT1(9,A15);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A16G,>*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"
\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6
%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%
,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0
F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F*F-F+\"#7F/F,F.F0F0-F26%FG,&F+F.FPF0F
0F0F0*&)F(,*F*F-F+\"#;F/FP\"\"'F0F0-F;6%FG,&F+F.F.F0F0F0F0*&F'F0-F26%F
G,&F+F5FHF0F0F0F0*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F5FIF0F0F0F0*&FNF0-
F;6%FG,&F+F5FdoF0F0F0F0*&)F(,(F*F-F/FPFHF0F0-F;6%FSFgoF0F0F0*&)F(,(F*F
-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)F(,(F*F-F/FPF+!\")F0-F;6%FG,&F+F5
F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "A17:= shiftdo
wn(9,A16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A17G,>*&)%\"qG,(*$%\"
jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&
)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0
-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0
F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F*F-F+\"
#7F/F,F.F0F0-F26%FG,&F+F.FPF0F0F0F0*&)F(,*F*F-F+\"#;F/FP\"\"'F0F0-F;6%
FG,&F+F.F.F0F0F0F0*&)F(,*F*F-F+!#7F.F0F/F,F0-F26%FG,&F+F5F,F0F0F0FI*&)
F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F5FIF0F0F0F0*&FNF0-F;6%FG,&F+F5FgoF0F0F
0F0*&)F(,(F*F-F/FPFHF0F0-F;6%FSFjoF0F0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&
F+F5F0F0F0F0F0*&)F(,(F*F-F/FPF+!\")F0-F;FboF0F0" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "A18:=negate(9,A17);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A18G,>*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"
\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6
%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%
,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0
F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F*F-F+\"#7F/F,F.F0F0-F26%FG,&F+F.FPF0F
0F0F0*&)F(,*F*F-F+\"#;F/FP\"\"'F0F0-F;6%FG,&F+F.F.F0F0F0F0*&FUF0-F2FFF
0FI*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F5FIF0F0F0F0*&FNF0-F;6%FG,&F+F5Fb
oF0F0F0F0*&)F(,(F*F-F/FPFHF0F0-F;6%FSFeoF0F0F0*&)F(,(F*F-F/F,F+F5F0-F2
6%FG,&F+F5F0F0F0F0F0*&)F(,(F*F-F/FPF+!\")F0-F;6%FG,&F+F5F,F0F0F0F0" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A19:=e0(9,A18);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A19G,>*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%
\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F
0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*
&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F
/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F*F-F+\"#;F/FP\"\"'F0F0-F;6%
FG,&F+F.F.F0F0F0F0*&)F(,(F*F-F/FPF+F-F0FEF0FI*&)F(,*F*F-F+FWF/FP\"\"&F
0F0-F;6%FG,&F+F.FPF0F0F0F0*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F5FIF0F0F0
F0*&FNF0-F;6%FG,&F+F5FcoF0F0F0F0*&)F(,(F*F-F/FPFHF0F0-F;6%FSFfoF0F0F0*
&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0*&)F(,(F*F-F/FPF+!\")F0-F;6
%FG,&F+F5F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A20:
=negate(14,A19);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A20G,:*&)%\"qG,
(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0
F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0
F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%
FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F*
F-F+\"#;F/FP\"\"'F0F0-F;6%FG,&F+F.F.F0F0F0F0*&)F(,*F*F-F+FWF/FP\"\"&F0
F0-F;6%FG,&F+F.FPF0F0F0F0*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F5FIF0F0F0F
0*&FNF0-F;6%FG,&F+F5F`oF0F0F0F0*&)F(,(F*F-F/FPFHF0F0-F;6%FSFcoF0F0F0*&
)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 23 "A21:= shiftdown(7,A20);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A21G,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"
\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6
%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%
,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0
F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,(F*F-F/FPFHF0F0FKF0FI*&)F(,*F*F-F+\"#;F
/FP\"\"&F0F0-F;6%FG,&F+F.FPF0F0F0F0*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F
5FIF0F0F0F0*&FNF0-F;6%FG,&F+F5F\\oF0F0F0F0*&FUF0-F;6%FSF_oF0F0F0*&)F(,
(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "A22:= sym(11,A21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%$A22G,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F
0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0
F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F
0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FI
F0F=F0F0FI*&)F(,(F*F-F/FPFHF0F0FKF0FI*&)F(,*F*F-F+\"#;F/FP\"\"&F0F0-F;
6%FG,&F+F.FPF0F0F0F0*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F5FIF0F0F0F0*&FN
F0-F;6%FG,&F+F5F\\oF0F0F0F0*&FUF0-F;6%FSF6F0F0F0*&)F(,(F*F-F/F,F+F5F0-
F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A
23:= eT0(11,A22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A23G,:*&)%\"qG
,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F
0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F
0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6
%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&)F(,*F
*F-F+\"#;F/FP\"\"&F0F0-F;6%FG,&F+F.FPF0F0F0F0*&)F(,(F*F-F/FP!\"$F0F0-F
;6%FG,&F+F5FIF0F0F0F0*&FNF0-F;6%FG,&F+F5FinF0F0F0F0*&)F(,*F*F-F/F.FHF0
F+F.F0-F26%FGF6F0F0F0*&)F(,*F*F-F/FXFHF0F+F-F0FEF0F0*&)F(,(F*F-F/F,F+F
5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "A24:= shiftdown(7,A23);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A24G
,:*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,
&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F
(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"
*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0
FI*&)F(,(F*F-F/FP!\"$F0F0-F;6%FG,&F+F.FIF0F0F0FI*&FUF0-F;6%FG,&F+F5FIF
0F0F0F0*&FNF0-F;6%FG,&F+F5FWF0F0F0F0*&)F(,*F*F-F/F.FHF0F+F.F0-F26%FGF6
F0F0F0*&)F(,*F*F-F/\"\"&FHF0F+F-F0FEF0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&
F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A25:=nega
te(7,A24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A25G,6*&)%\"qG,(*$%\"
jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&
)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0
-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0
F0FI*&)F(,*F*F-F+F-F/\"\"$F0F0F0-F;6%,&F/F0FIF0F=F0F0FI*&FNF0-F;6%FG,&
F+F5!\"$F0F0F0F0*&)F(,*F*F-F/F.FHF0F+F.F0-F26%FGF6F0F0F0*&)F(,*F*F-F/
\"\"&FHF0F+F-F0FEF0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A26:=sym(6,A25);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A26G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%
\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F
0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*
&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F+F-F
/\"\"$F0F0F0-F;6%,&F/F0FIF0,&F+F5FHF0F0F0FI*&FNF0-F;6%FG,&F+F5!\"$F0F0
F0F0*&)F(,*F*F-F/F.FHF0F+F.F0-F26%FGF6F0F0F0*&)F(,*F*F-F/\"\"&FHF0F+F-
F0FEF0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 17 "A27:= eT0(6,A26);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A27G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"
\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6
%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%
,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,*F*F-F/F.FHF0F+F.F0-
F26%FG,&F+F5FHF0F0F0FI*&)F(,(F*F-F/\"\"&!\"&F0F0-F;6%FG,&F+F5FIF0F0F0F
I*&FNF0-F26%FGF6F0F0F0*&)F(,*F*F-F/FVFHF0F+F-F0FEF0F0*&)F(,(F*F-F/F,F+
F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "A28:= sym(6,A27);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A28G,6*&)%
\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F
0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F
-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0
-F;6%FGFCF0F0FI*&)F(,*F*F-F/F.FHF0F+F.F0-F2FFF0FI*&)F(,(F*F-F/\"\"&!\"
&F0F0-F;6%FG,&F+F5FIF0F0F0FI*&FNF0-F26%FGF6F0F0F0*&)F(,*F*F-F/FTFHF0F+
F-F0FEF0F0*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A29:= e0(8,A28);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A29G,2*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"
\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0
G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;
6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FGFCF0F0FI*&)F(,(F*F-F/\"\"&!\"&F0
F0-F;6%FG,&F+F5FIF0F0F0FI*&FNF0-F;6%FGF6F0F0F0*&)F(,(F*F-F/F,F+F5F0-F2
6%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A30
:= sym(6,A29);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A30G,.*&)%\"qG,(*
$%\"jG\"\"#\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0
F0*&)F(,*F*F-F+F-F.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/
F0F0-F;6%F4,$F+F.F0F0F0*&F8F0-F;6%,&F/F0!\"#F0F=F0F0!\"\"*&F?F0-F;6%FG
FCF0F0FI*&)F(,(F*F-F/F,F+F5F0-F26%FG,&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 12 "############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A31:= eT0(4,A30);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A31G,2*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%
\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F
0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*
&F8F0-F;6%,&F/F0!\"$F0F6F0F0!\"\"*&)F(,*F*F-F+\"#7F/F,F.F0F0-F26%FGF=F
0F0FI*&)F(,*F*F-F+\"#;F.F0F/\"\"$F0-F;6%FG,&F+F.FTF0F0F0FI*&F?F0-F;6%,
&F/F0!\"#F0FCF0F0FI*&)F(,(F*F-F/F,F+F5F0-F26%Fen,&F+F5F0F0F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A32:= sym(4,A31);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A32G,2*&)%\"qG,(*$%\"jG\"\"#\"\")F+\"\"%%
\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F.F0F/F
0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F0F0F0*
&F8F0-F;6%,&F/F0!\"$F0,&F+F5!\"\"F0F0F0FJ*&)F(,*F*F-F+\"#7F/F,F.F0F0-F
26%FGF=F0F0FJ*&)F(,*F*F-F+\"#;F.F0F/\"\"$F0-F;6%FG,&F+F.FUF0F0F0FJ*&F?
F0-F;6%,&F/F0!\"#F0FCF0F0FJ*&)F(,(F*F-F/F,F+F5F0-F26%Ffn,&F+F5F0F0F0F0
F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A33:= eT0(4,A32);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A33G,6*&)%\"qG,(*$%\"jG\"\"#\"\")F+
\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,*F*F-F+F-F
.F0F/F0F0-%#T0G6%F4,&F+F.F,F0F0F0F0*&)F(,(F*F-F,F0F/F0F0-F;6%F4,$F+F.F
0F0F0*&F8F0-F;6%F4,&F+F5!\"#F0F0F0!\"\"*&F'F0-F26%F4,&F+F5FIF0F0F0FI*&
)F(,(F*F-F5F0F/\"\"$F0-F;6%F4,$F+F5F0F0FI*&)F(,*F*F-F+\"#7F/F,F.F0F0-F
26%,&F/F0!\"$F0F=F0F0FI*&)F(,*F*F-F+\"#;F.F0F/FQF0-F;6%Fen,&F+F.FQF0F0
F0FI*&F?F0-F;6%,&F/F0FHF0FCF0F0FI*&)F(,(F*F-F/F,F+F5F0-F26%Fao,&F+F5F0
F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A34:= sym(4,A33
);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A34G,2*&)%\"qG,(*$%\"jG\"\"#
\"\")F+\"\"%%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"%F0,&F+F.F0F0F0F0F0*&)F(,(F*
F-F,F0F/F0F0-%#T0G6%F4,$F+F.F0F0F0*&F'F0-F26%F4,&F+F5!\"\"F0F0F0FB*&)F
(,(F*F-F5F0F/\"\"$F0-F;6%F4,$F+F5F0F0FB*&)F(,*F*F-F+\"#7F/F,F.F0F0-F26
%,&F/F0!\"$F0,&F+F.F,F0F0F0FB*&)F(,*F*F-F+\"#;F.F0F/FFF0-F;6%FP,&F+F.F
FF0F0F0FB*&F8F0-F;6%,&F/F0!\"#F0F=F0F0FB*&)F(,(F*F-F/F,F+F5F0-F26%Fgn,
&F+F5F0F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A35:= sy
m(1,A34);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A35G,.*&)%\"qG,(*$%\"j
G\"\"#\"\")F,\"\"\"%\"nGF.F.-%#T0G6%,&F/F.!\"%F.,$F+\"\"%F.F.F.*&)F(,(
F*F-F4F.F/\"\"$F.-F16%F3,$F+F4F.F.!\"\"*&)F(,*F*F-F+\"#7F/F,F6F.F.-%#T
1G6%,&F/F.!\"$F.,&F+F6F,F.F.F.F>*&)F(,*F*F-F+\"#;F6F.F/F:F.-F16%FF,&F+
F6F:F.F.F.F>*&F'F.-F16%,&F/F.!\"#F.F5F.F.F>*&)F(,(F*F-F/F,F+F4F.-FD6%F
S,&F+F4F.F.F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#######
##" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 17 "A36:= eT0(5,A35);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A36G,2*&)%\"qG,(*$%\"jG\"\"#\"\")F,\"\"\"%\"nGF.F.-%
#T0G6%,&F/F.!\"%F.,$F+\"\"%F.F.F.*&)F(,(F*F-F4F.F/\"\"$F.-F16%F3,$F+F4
F.F.!\"\"*&)F(,*F*F-F+\"#7F/F,F6F.F.-%#T1G6%,&F/F.!\"$F.,&F+F6F,F.F.F.
F>*&)F(,*F*F-F+\"#;F6F.F/F:F.-F16%FF,&F+F6F:F.F.F.F>*&F'F.-F16%FF,&F+F
6F>F.F.F.F>*&)F(,(F*F-F+F6F/F,F.-FD6%FFF5F.F.F>*&)F(,*F*F-!\"#F.F/F:F+
F-F.-F16%FF,&F+F6F.F.F.F.F>*&)F(,(F*F-F/F,F+F4F.-FD6%,&F/F.FfnF.,&F+F4
F.F.F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A37:=sym(5,A3
6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A37G,2*&)%\"qG,(*$%\"jG\"\"#
\"\")F,\"\"\"%\"nGF.F.-%#T0G6%,&F/F.!\"%F.,$F+\"\"%F.F.F.*&)F(,(F*F-F4
F.F/\"\"$F.-F16%F3,$F+F4F.F.!\"\"*&)F(,*F*F-F+\"#7F/F,F6F.F.-%#T1G6%,&
F/F.!\"$F.,&F+F6F,F.F.F.F>*&)F(,*F*F-F+\"#;F6F.F/F:F.-F16%FF,&F+F6F:F.
F.F.F>*&F'F.-F16%FF,&F+F4F.F.F.F.F>*&)F(,(F*F-F+F6F/F,F.-FD6%FFF5F.F.F
>*&)F(,*F*F-!\"#F.F/F:F+F-F.-F16%FF,&F+F6F.F.F.F.F>*&)F(,(F*F-F/F,F+F4
F.-FD6%,&F/F.FfnF.FSF.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "A38:=eT0(5,A37);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A38G,6*&)%
\"qG,(*$%\"jG\"\"#\"\")F,\"\"\"%\"nGF.F.-%#T0G6%,&F/F.!\"%F.,$F+\"\"%F
.F.F.*&)F(,(F*F-F4F.F/\"\"$F.-F16%F3,$F+F4F.F.!\"\"*&)F(,*F*F-F+\"#7F/
F,F6F.F.-%#T1G6%,&F/F.!\"$F.,&F+F6F,F.F.F.F>*&)F(,*F*F-F+\"#;F6F.F/F:F
.-F16%FF,&F+F6F:F.F.F.F>*&F'F.F;F.F>*&)F(,(F*F-F/F,F+F4F.-FD6%F3,&F+F4
F.F.F.F.F>*&)F(,*F*F-!\"#F.F/F:F+!\")F.-F16%F3,&F+F4F,F.F.F.F>*&)F(,(F
*F-F+F6F/F,F.-FD6%FFF5F.F.F>*&)F(,*F*F-FZF.F/F:F+F-F.-F16%FF,&F+F6F.F.
F.F.F>*&FRF.-FD6%,&F/F.FZF.FVF.F.F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "A39:= sym(5,A38);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$A39G,2*&)%\"qG,(*$%\"jG\"\"#\"\")!\"%\"\"\"%\"nG\"\"$F/-%#T0G6%,&F0
F/F.F/,$F+F.F/F/!\"\"*&)F(,*F*F-F+\"#7F0F,\"\"%F/F/-%#T1G6%,&F0F/!\"$F
/,&F+F<F,F/F/F/F7*&)F(,*F*F-F+\"#;F<F/F0F1F/-F36%F@,&F+F<F1F/F/F/F7*&)
F(,(F*F-F0F,F+F.F/-F>6%F5,&F+F.F/F/F/F/F7*&)F(,*F*F-!\"#F/F0F1F+!\")F/
-F36%F5,&F+F.F,F/F/F/F7*&)F(,(F*F-F+F<F0F,F/-F>6%F@,$F+F<F/F/F7*&)F(,*
F*F-FSF/F0F1F+F-F/-F36%F@,&F+F<F/F/F/F/F7*&FKF/-F>6%,&F0F/FSF/FOF/F/F/
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "A40:= eT1(8,A39);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A40G,6*&)%\"qG,(*$%\"jG\"\"#\"\")!\"%\"\"\"%\"nG\"\"
$F/-%#T0G6%,&F0F/F.F/,$F+F.F/F/!\"\"*&)F(,*F*F-F+\"#7F0F,\"\"%F/F/-%#T
1G6%,&F0F/!\"$F/,&F+F<F,F/F/F/F7*&)F(,*F*F-F+\"#;F<F/F0F1F/-F36%F@,&F+
F<F1F/F/F/F7*&)F(,(F*F-F0F,F+F.F/-F>6%F5,&F+F.F/F/F/F/F7*&)F(,*F*F-!\"
#F/F0F1F+!\")F/-F36%F5,&F+F.F,F/F/F/F7*&)F(,(F*F-F+F<F0F,F/-F>6%F@,$F+
F<F/F/F7*&)F(,*F*F-FSF/F0F1F+F-F/-F36%F@,&F+F<F/F/F/F/F7*&FKF/-F>6%F@F
OF/F/F/*&)F(,*F*F-F0F1F+FTF7F/F/-F36%F@FWF/F/F/*&)F(,(F*F-F0F1FAF/F/-F
36%F@F6F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A41:= eT1(
8,A40);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A41G,.*&)%\"qG,**$%\"jG
\"\"#\"\")F+\"#7%\"nGF,\"\"%\"\"\"F1-%#T1G6%,&F/F1!\"$F1,&F+F0F,F1F1F1
!\"\"*&)F(,*F*F-F+\"#;F0F1F/\"\"$F1-%#T0G6%F5,&F+F0F=F1F1F1F8*&)F(,(F*
F-F+F0F/F,F1-F36%F5,$F+F0F1F1F8*&)F(,*F*F-!\"#F1F/F=F+F-F1-F?6%F5,&F+F
0F1F1F1F1F8*&)F(,*F*F-F/F=F+!\")F8F1F1-F?6%F5,&F+!\"%F,F1F1F1F1*&)F(,(
F*F-F/F=F6F1F1-F?6%F5,$F+FVF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "###############" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "A42:= shiftdown(1,A41);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$A42G,.*&)%\"qG,(*$%\"jG\"\"#\"\")%\"nGF,F+!\"%\"\"\"-%#T1G6%,
&F.F0!\"$F0,&F+\"\"%!\"#F0F0F0F0*&)F(,*F*F-F+\"#;F7F0F.\"\"$F0-%#T0G6%
F4,&F+F7F=F0F0F0!\"\"*&)F(,(F*F-F+F7F.F,F0-F26%F4,$F+F7F0F0FB*&)F(,*F*
F-F8F0F.F=F+F-F0-F?6%F4,&F+F7F0F0F0F0FB*&)F(,*F*F-F.F=F+!\")FBF0F0-F?6
%F4,&F+F/F,F0F0F0F0*&)F(,(F*F-F.F=F5F0F0-F?6%F4,$F+F/F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A43:=e0(1,A42);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%$A43G,2*&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"\"$F
+!\")!\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\"%!\"#F2F2F2F2*&)F(,(F*F-
F.F,F+!\"%F2-%#T1G6%F6,&F+F9F1F2F2F2F2*&)F(,(F*F-F>F2F.F/F2-F4FAF2F1*&
)F(,*F*F-F+\"#;F9F2F.F/F2-F46%F6,&F+F9F/F2F2F2F1*&)F(,(F*F-F+F9F.F,F2-
F@6%F6,$F+F9F2F2F1*&)F(,*F*F-F:F2F.F/F+F-F2-F46%F6,&F+F9F2F2F2F2F1*&F'
F2-F46%F6,&F+F>F,F2F2F2F2*&)F(,(F*F-F.F/F7F2F2-F46%F6,$F+F>F2F2F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A44:= negate(2,A43);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A44G,2*&)%\"qG,**$%\"jG\"\"#\"\")%
\"nG\"\"$F+!\")!\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\"%!\"#F2F2F2F2*
&)F(,(F*F-F+F9F.F,F2-%#T1G6%F6,&F+!\"%F1F2F2F2F2*&)F(,(F*F-FBF2F.F/F2-
F46%F6,&F+F9F1F2F2F2F1*&)F(,*F*F-F+\"#;F9F2F.F/F2-F46%F6,&F+F9F/F2F2F2
F1*&F<F2-F?6%F6,$F+F9F2F2F1*&)F(,*F*F-F:F2F.F/F+F-F2-F46%F6,&F+F9F2F2F
2F2F1*&F'F2-F46%F6,&F+FBF,F2F2F2F2*&)F(,(F*F-F.F/F7F2F2-F46%F6,$F+FBF2
F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A45:=sym(2,A44);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A45G,2*&)%\"qG,**$%\"jG\"\"#\"\")%
\"nG\"\"$F+!\")!\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\"%!\"#F2F2F2F2*
&)F(,(F*F-F+F9F.F,F2-%#T1G6%F6,&F+F9F2F2F2F2F2*&)F(,(F*F-!\"%F2F.F/F2-
F46%F6,&F+F9F1F2F2F2F1*&)F(,*F*F-F+\"#;F9F2F.F/F2-F46%F6,&F+F9F/F2F2F2
F1*&F<F2-F?6%F6,$F+F9F2F2F1*&)F(,*F*F-F:F2F.F/F+F-F2-F4F@F2F1*&F'F2-F4
6%F6,&F+FEF,F2F2F2F2*&)F(,(F*F-F.F/F7F2F2-F46%F6,$F+FEF2F2F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A46:= e0(5,A45);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A46G,.*&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"
\"$F+!\")!\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\"%!\"#F2F2F2F2*&)F(,(
F*F-!\"%F2F.F/F2-F46%F6,&F+F9F1F2F2F2F1*&)F(,*F*F-F+\"#;F9F2F.F/F2-F46
%F6,&F+F9F/F2F2F2F1*&)F(,(F*F-F.F/F7F2F2-F46%F6,$F+F9F2F2F1*&F'F2-F46%
F6,&F+F>F,F2F2F2F2*&FJF2-F46%F6,$F+F>F2F2F2" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 17 "A47:= sym(4,A46);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$A47G,**&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"\"$F+!\")!\"\"\"\"\"F2-%
#T0G6%,&F.F2!\"$F2,&F+\"\"%!\"#F2F2F2F2*&)F(,(F*F-!\"%F2F.F/F2-F46%F6,
&F+F9F1F2F2F2F1*&)F(,*F*F-F+\"#;F9F2F.F/F2-F46%F6,&F+F9F/F2F2F2F1*&F'F
2-F46%F6,&F+F>F,F2F2F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 
"A48:= shiftdown(3,A47);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$A48G,&*
&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"\"$F+!\")!\"\"\"\"\"F2-%#T0G6%,&F.F2!
\"$F2,&F+\"\"%!\"#F2F2F2F2*&F'F2-F46%F6,&F+!\"%F,F2F2F2F2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A49:=sym(2,A48);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%$A49G,$*&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"\"$F+!\")!
\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\"%!\"#F2F2F2F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "A50:= A49/2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$A50G*&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"\"$F*!\")!\"\"
\"\"\"F1-%#T0G6%,&F-F1!\"$F1,&F*\"\"%!\"#F1F1F1" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 40 "A51:= subs(j=2*j,A50)-subs(j=2*j+1,A50);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A51G,&*&)%\"qG,**$%\"jG\"\"#\"#K%\"
nG\"\"$F+!#;!\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\")!\"#F2F2F2F2*&)F
(,**$,&F+F,F2F2F,F9F.F/F+F0!\"*F2F2-F46%F6,&F+F9F,F2F2F2F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A52:=expandall(A51);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%$A52G,&*&)%\"qG,**$%\"jG\"\"#\"#K%\"nG\"\"$F+!
#;!\"\"\"\"\"F2-%#T0G6%,&F.F2!\"$F2,&F+\"\")!\"#F2F2F2F2*&)F(,*F*F-F+
\"#;F1F2F.F/F2-F46%F6,&F+F9F,F2F2F2F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "A53:= negate(1,A52);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$A53G,&*&)%\"qG,**$%\"jG\"\"#\"#KF+\"#;!\"\"\"\"\"%\"nG\"\"$F0-%#
T0G6%,&F1F0!\"$F0,&F+!\")!\"#F0F0F0F0*&F'F0-F46%F6,&F+\"\")F,F0F0F0F/
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A54:= sym(1,A53);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$A54G\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }