{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 26 "####### 3.80 with q-
-> q^2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "op2:= annihiloper
( q^(j^2 + j) / qfac(q^2,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&" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 113 "A1:=applyshiftop( op2,  q^(21*j^2 + 5*j)   \+
 * T1(n+1, 7*j + 1, 1) \n  -q^(21*j^2 +23*j + 6)* T1(n+1, 7*j + 4, 1))
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A1G,6*&)%\"qG,(\"\"#\"\"\"*$%
\"jGF*\"#@F-\"\"&F+-%#T1G6%,&%\"nGF+!\"#F+,&F-\"\"(F+F+F+F+F+*&-F16%F3
,&F-F7\"\"%F+F+F+)F(,(\"\")F+F,F.F-\"#BF+!\"\"*&-F16%,&F4F+FAF+F6F+F+F
'F+FA*&F=F+-F16%FEF;F+F+F+*&)F(,&F,F.F-F/F+-F16%F4F6F+F+FA*&)F(,(F,F.F
-F@\"\"'F+F+-F16%F4F;F+F+F+*&FLF+)F(,(F4F*F,F.F-F/F+FA*&)F(,*F4F*F,F.F
-F@FQF+F+FRF+F+*&FJF+-F16%,&F4F+F+F+F6F+F+F+*&FOF+-F16%FgnF;F+F+FA" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A2:= eT1(9,A1);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#A2G,6*&)%\"qG,(\"\"#\"\"\"*$%\"jGF*\"#@F-
\"\"&F+-%#T1G6%,&%\"nGF+!\"#F+,&F-\"\"(F+F+F+F+F+*&-F16%F3,&F-F7\"\"%F
+F+F+)F(,(\"\")F+F,F.F-\"#BF+!\"\"*&-F16%,&F4F+FAF+F6F+F+F'F+FA*&F=F+-
F16%FEF;F+F+F+*&)F(,(F,F.F-F@\"\"'F+F+-F16%F4F;F+F+F+*&-F16%F4F6F+F+)F
(,(F4F*F,F.F-F/F+FA*&)F(,*F4F*F,F.F-F@FLF+F+FMF+F+*&)F(,*F,F.F-\"#7F4F
+F*F+F+-%#T0G6%F4,&F-F7F*F+F+F+F+*&)F(,(F,F.F-F5F4F+F+-Ffn6%F4,$F-F7F+
F+F+*&FJF+-F16%,&F4F+F+F+F;F+F+FA" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "A3:=eT1(10,A2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#A3G,6*&)%\"qG,(\"\"#\"\"\"*$%\"jGF*\"#@F-\"\"&F+-%#T1G6%,&%\"nGF+!\"#
F+,&F-\"\"(F+F+F+F+F+*&-F16%F3,&F-F7\"\"%F+F+F+)F(,(\"\")F+F,F.F-\"#BF
+!\"\"*&-F16%,&F4F+FAF+F6F+F+F'F+FA*&F=F+-F16%FEF;F+F+F+*&-F16%F4F6F+F
+)F(,(F4F*F,F.F-F/F+FA*&)F(,*F4F*F,F.F-F@\"\"'F+F+-F16%F4F;F+F+F+*&)F(
,*F,F.F-\"#7F4F+F*F+F+-%#T0G6%F4,&F-F7F*F+F+F+F+*&)F(,(F,F.F-F5F4F+F+-
FY6%F4,$F-F7F+F+F+*&)F(,*F,F.F-\"#I\"#6F+F4F+F+-FY6%F4,&F-F7F/F+F+F+FA
*&)F(,*F,F.F-\"#;\"\"$F+F4F+F+-FY6%F4,&F-F7FhoF+F+F+FA" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A4:=eT1(3,A3);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#A4G,6*&-%#T1G6%,&%\"nG\"\"\"!\"#F,,&%\"jG\"\"(\"\"%F
,F,F,)%\"qG,(\"\")F,*$F/\"\"#\"#@F/\"#BF,!\"\"*&)F3,*F6F8F/\"#7F+F,F7F
,F,-%#T0G6%F*,&F/F0F7F,F,F,F:*&)F3,(F6F8F/F-F+F,F,-F@6%F*,$F/F0F,F,F:*
&F2F,-F(6%,&F+F,F:F,F.F,F,F,*&-F(6%F+,&F/F0F,F,F,F,)F3,(F+F7F6F8F/\"\"
&F,F:*&)F3,*F+F7F6F8F/F9\"\"'F,F,-F(6%F+F.F,F,F,*&F<F,-F@6%F+FBF,F,F,*
&FDF,-F@6%F+FHF,F,F,*&)F3,*F6F8F/\"#I\"#6F,F+F,F,-F@6%F+,&F/F0FSF,F,F,
F:*&)F3,*F6F8F/\"#;\"\"$F,F+F,F,-F@6%F+,&F/F0FfoF,F,F,F:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A5:=eT1(4,A4);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#A5G,6*&)%\"qG,**$%\"jG\"\"#\"#@F+\"#7%\"nG\"\"\"F,F0
F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F,F0F0F0!\"\"*&)F(,(F*F-F+F5F/F0F0-F26%
F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I\"#6F0F/F0F0-F26%F4,&F+F7\"\"&F0F0F0F0*
&)F(,*F*F-F+\"#;\"\"$F0F/F0F0-F26%F4,&F+F7FLF0F0F0F0*&-%#T1G6%F/,&F+F7
F0F0F0F0)F(,(F/F,F*F-F+FGF0F8*&)F(,*F/F,F*F-F+\"#B\"\"'F0F0-FR6%F/,&F+
F7\"\"%F0F0F0F0*&F'F0-F26%F/F6F0F0F0*&F:F0-F26%F/F>F0F0F0*&F@F0-F26%F/
FFF0F0F8*&FIF0-F26%F/FOF0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 7 "#######" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "#A6:=sym(10
,A5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "#A7:=eT0(10,A6);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "#A8:=sym(10,A7);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "#A9:=eT0(10,A8);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "#A10:=shiftdown(3,A9);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "#A11:=shiftdown(9,A10);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A6:=eT0
(10,A5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A6G,:*&)%\"qG,**$%\"jG
\"\"#\"#@F+\"#7%\"nG\"\"\"F,F0F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F,F0F0F0!
\"\"*&)F(,(F*F-F+F5F/F0F0-F26%F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I\"#6F0F/F
0F0-F26%F4,&F+F7\"\"&F0F0F0F0*&)F(,*F*F-F+\"#;\"\"$F0F/F0F0-F26%F4,&F+
F7FLF0F0F0F0*&-%#T1G6%F/,&F+F7F0F0F0F0)F(,(F/F,F*F-F+FGF0F8*&)F(,*F/F,
F*F-F+\"#B\"\"'F0F0-FR6%F/,&F+F7\"\"%F0F0F0F0*&F'F0-F26%F/F6F0F0F0*&F:
F0-F26%F/F>F0F0F0*&F@F0-F26%F/FFF0F0F8*&FIF0-F26%,&F/F0F8F0F6F0F0F8*&F
XF0-FR6%FfoFOF0F0F8*&)F(,*F*F-F+FB\"\"*F0F/FLF0-F26%FfoFhnF0F0F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A7:=sym(10,A6);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#A7G,:*&)%\"qG,**$%\"jG\"\"#\"#@F+\"#7%\"nG\"
\"\"F,F0F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F,F0F0F0!\"\"*&)F(,(F*F-F+F5F/F
0F0-F26%F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I\"#6F0F/F0F0-F26%F4,&F+F7\"\"&F
0F0F0F0*&)F(,*F*F-F+\"#;\"\"$F0F/F0F0-F26%F4,&F+F7FLF0F0F0F0*&-%#T1G6%
F/,&F+F7F0F0F0F0)F(,(F/F,F*F-F+FGF0F8*&)F(,*F/F,F*F-F+\"#B\"\"'F0F0-FR
6%F/,&F+F7\"\"%F0F0F0F0*&F'F0-F26%F/F6F0F0F0*&F:F0-F26%F/F>F0F0F0*&F@F
0-F26%F/FFF0F0F8*&FIF0-F26%,&F/F0F8F0,&F+!\"(F5F0F0F0F8*&FXF0-FR6%FfoF
OF0F0F8*&)F(,*F*F-F+FB\"\"*F0F/FLF0-F26%FfoFhnF0F0F8" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "A8:=eT0(10,A7);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%#A8G,>*&)%\"qG,**$%\"jG\"\"#\"#@F+\"#7%\"nG\"\"\"F,F0
F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F,F0F0F0!\"\"*&)F(,(F*F-F+F5F/F0F0-F26%
F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I\"#6F0F/F0F0-F26%F4,&F+F7\"\"&F0F0F0F0*
&)F(,*F*F-F+\"#;\"\"$F0F/F0F0-F26%F4,&F+F7FLF0F0F0F0*&-%#T1G6%F/,&F+F7
F0F0F0F0)F(,(F/F,F*F-F+FGF0F8*&)F(,*F/F,F*F-F+\"#B\"\"'F0F0-FR6%F/,&F+
F7\"\"%F0F0F0F0*&F'F0-F26%F/F6F0F0F0*&F:F0-F26%F/F>F0F0F0*&F@F0-F26%F/
FFF0F0F8*&FIF0-F26%F4,&F+!\"(!\"$F0F0F0F8*&)F(,(F*F-F+\"\"*F/F,F0-FR6%
F4,&F+FgoF5F0F0F0F8*&)F(,*F*F-F+F,FhoF0F/FLF0-F26%F4,&F+FgoF8F0F0F0F8*
&FXF0-FR6%,&F/F0F8F0FOF0F0F8*&)F(,*F*F-F+FBF\\pF0F/FLF0-F26%FipFhnF0F0
F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A9:=sym(10,A8);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A9G,:*&)%\"qG,**$%\"jG\"\"#\"#@F+\"
#7%\"nG\"\"\"F,F0F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F,F0F0F0!\"\"*&)F(,(F*
F-F+F5F/F0F0-F26%F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I\"#6F0F/F0F0-F26%F4,&F
+F7\"\"&F0F0F0F0*&-%#T1G6%F/,&F+F7F0F0F0F0)F(,(F/F,F*F-F+FGF0F8*&)F(,*
F/F,F*F-F+\"#B\"\"'F0F0-FJ6%F/,&F+F7\"\"%F0F0F0F0*&F'F0-F26%F/F6F0F0F0
*&F:F0-F26%F/F>F0F0F0*&F@F0-F26%F/FFF0F0F8*&)F(,(F*F-F+\"\"*F/F,F0-FJ6
%F4,&F+!\"(F5F0F0F0F8*&)F(,*F*F-F+F,!\"$F0F/\"\"$F0-F26%F4,&F+FboF8F0F
0F0F8*&FPF0-FJ6%,&F/F0F8F0,&F+F7FgoF0F0F0F8*&)F(,*F*F-F+FBF^oF0F/FgoF0
-F26%F^pFVF0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "#######
#####" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A10:= eT1(5,A9);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A10G,>*&)%\"qG,**$%\"jG\"\"#\"#@F
+\"#7%\"nG\"\"\"F,F0F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(F,F0F0F0!\"\"*&)F(,
(F*F-F+F5F/F0F0-F26%F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I\"#6F0F/F0F0-F26%F4
,&F+F7\"\"&F0F0F0F0*&-%#T1G6%F/,&F+F7F0F0F0F0)F(,(F/F,F*F-F+FGF0F8*&)F
(,*F/F,F*F-F+\"#B\"\"'F0F0-FJ6%,&F/F0F8F0,&F+F7\"\"%F0F0F0F0*&)F(,*F/
\"\"$F*F-F+FB\"#5F0F0-F26%FVFFF0F0F0*&)F(,*F/FfnF*F-F+\"#;F,F0F0-F26%F
V,&F+F7FfnF0F0F0F0*&F'F0-F26%F/F6F0F0F0*&F:F0-F26%F/F>F0F0F0*&F@F0-F26
%F/FFF0F0F8*&)F(,(F*F-F+\"\"*F/F,F0-FJ6%F4,&F+!\"(F5F0F0F0F8*&)F(,*F*F
-F+F,!\"$F0F/FfnF0-F26%F4,&F+FapF8F0F0F0F8*&FPF0-FJF_oF0F8*&)F(,*F*F-F
+FBF]pF0F/FfnF0-F2FUF0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 
"A11:=e0(13,A10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A11G,6*&)%\"qG
,**$%\"jG\"\"#\"#@F+\"#7%\"nG\"\"\"F,F0F0-%#T0G6%,&F/F0!\"#F0,&F+\"\"(
F,F0F0F0!\"\"*&)F(,(F*F-F+F5F/F0F0-F26%F4,$F+F7F0F0F8*&)F(,*F*F-F+\"#I
\"#6F0F/F0F0-F26%F4,&F+F7\"\"&F0F0F0F0*&-%#T1G6%F/,&F+F7F0F0F0F0)F(,(F
/F,F*F-F+FGF0F8*&)F(,*F/\"\"$F*F-F+FB\"#5F0F0-F26%,&F/F0F8F0FFF0F0F0*&
F'F0-F26%F/F6F0F0F0*&F:F0-F26%F/F>F0F0F0*&F@F0-F26%F/FFF0F0F8*&)F(,(F*
F-F+\"\"*F/F,F0-FJ6%F4,&F+!\"(F5F0F0F0F8*&)F(,*F*F-F+F,!\"$F0F/FRF0-F2
6%F4,&F+FaoF8F0F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A1
2:=shiftdown(3,A11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A12G,6*&)%
\"qG,**$%\"jG\"\"#\"#@F+\"#7%\"nG\"\"\"F,F0F0-%#T0G6%,&F/F0!\"#F0,&F+
\"\"(F,F0F0F0!\"\"*&)F(,(F*F-F+F5F/F0F0-F26%F4,$F+F7F0F0F8*&)F(,*F*F-F
+!#7F,F0F/F0F0-F26%F4,&F+F7F5F0F0F0F0*&-%#T1G6%F/,&F+F7F0F0F0F0)F(,(F/
F,F*F-F+\"\"&F0F8*&)F(,*F/\"\"$F*F-F+\"#I\"#5F0F0-F26%,&F/F0F8F0,&F+F7
FMF0F0F0F0*&F'F0-F26%F/F6F0F0F0*&F:F0-F26%F/F>F0F0F0*&)F(,*F*F-F+FR\"#
6F0F/F0F0-F26%F/FWF0F0F8*&)F(,(F*F-F+\"\"*F/F,F0-FH6%F4,&F+!\"(F5F0F0F
0F8*&)F(,*F*F-F+F,!\"$F0F/FQF0-F26%F4,&F+FeoF8F0F0F0F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A13:=negate(1,A12);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%$A13G,6*&)%\"qG,**$%\"jG\"\"#\"#@F+!#7F,\"\"\"%
\"nGF/F/-%#T0G6%,&F0F/!\"#F/,&F+!\"(F,F/F/F/!\"\"*&)F(,(F*F-F+F5F0F/F/
-F26%F4,$F+\"\"(F/F/F8*&F'F/-F26%F4,&F+F?F5F/F/F/F/*&-%#T1G6%F0,&F+F?F
/F/F/F/)F(,(F0F,F*F-F+\"\"&F/F8*&)F(,*F0\"\"$F*F-F+\"#I\"#5F/F/-F26%,&
F0F/F8F/,&F+F?FKF/F/F/F/*&)F(,*F*F-F+\"#7F0F/F,F/F/-F26%F0,&F+F?F,F/F/
F/F/*&F:F/-F26%F0F>F/F/F/*&)F(,*F*F-F+FP\"#6F/F0F/F/-F26%F0FUF/F/F8*&)
F(,(F*F-F+\"\"*F0F,F/-FF6%F4,&F+F7F5F/F/F/F8*&)F(,*F*F-F+F,!\"$F/F0FOF
/-F26%F4,&F+F7F8F/F/F/F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 
"A14:=sym(1,A13);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A14G,2*&)%\"qG
,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!
\"\"*&-%#T1G6%F/,&F+F6F0F0F0F0)F(,(F/F,F*F-F+\"\"&F0F7*&)F(,*F/\"\"$F*
F-F+\"#I\"#5F0F0-F26%,&F/F0F7F0,&F+F6F?F0F0F0F0*&)F(,*F*F-F+\"#7F/F0F,
F0F0-F26%F/,&F+F6F,F0F0F0F0*&F'F0-F26%F/F5F0F0F0*&)F(,*F*F-F+FD\"#6F0F
/F0F0-F26%F/FIF0F0F7*&)F(,(F*F-F+\"\"*F/F,F0-F:6%F4,&F+!\"(F.F0F0F0F7*
&)F(,*F*F-F+F,!\"$F0F/FCF0-F26%F4,&F+F[oF7F0F0F0F7" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 23 "A15:= shiftdown(6,A14);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A15G,2*&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F
0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!\"\"*&-%#T1G6%F/,&F+F6F0F0F0F0)F(,(F/
F,F*F-F+\"\"&F0F7*&)F(,*F/\"\"$F*F-F+\"#I\"#5F0F0-F26%,&F/F0F7F0,&F+F6
F?F0F0F0F0*&)F(,*F*F-F+\"#7F/F0F,F0F0-F26%F/,&F+F6F,F0F0F0F0*&F'F0-F26
%F/F5F0F0F0*&)F(,*F*F-F+!#7F,F0F/F0F0-F26%F/,&F+F6F.F0F0F0F7*&)F(,(F*F
-F+\"\"*F/F,F0-F:6%F4,&F+!\"(F.F0F0F0F7*&)F(,*F*F-F+F,!\"$F0F/FCF0-F26
%F4,&F+F\\oF7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A1
6:=negate(6,A15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A16G,2*&)%\"qG
,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!
\"\"*&-%#T1G6%F/,&F+F6F0F0F0F0)F(,(F/F,F*F-F+\"\"&F0F7*&)F(,*F/\"\"$F*
F-F+\"#I\"#5F0F0-F26%,&F/F0F7F0,&F+F6F?F0F0F0F0*&)F(,*F*F-F+\"#7F/F0F,
F0F0-F26%F/,&F+F6F,F0F0F0F0*&F'F0-F26%F/F5F0F0F0*&FKF0-F26%F/,&F+!\"(F
.F0F0F0F7*&)F(,(F*F-F+\"\"*F/F,F0-F:6%F4FWF0F0F7*&)F(,*F*F-F+F,!\"$F0F
/FCF0-F26%F4,&F+FXF7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "A17:=sym(4,A16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A17G,.*&)
%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F
0F0!\"\"*&-%#T1G6%F/,&F+F6F0F0F0F0)F(,(F/F,F*F-F+\"\"&F0F7*&)F(,*F/\"
\"$F*F-F+\"#I\"#5F0F0-F26%,&F/F0F7F0,&F+F6F?F0F0F0F0*&F'F0-F26%F/F5F0F
0F0*&)F(,(F*F-F+\"\"*F/F,F0-F:6%F4,&F+!\"(F.F0F0F0F7*&)F(,*F*F-F+F,!\"
$F0F/FCF0-F26%F4,&F+FTF7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "########" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 
"A18:= eT0(4,A17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A18G,2*&)%\"q
G,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!
\"\"*&-%#T1G6%F/,&F+F6F0F0F0F0)F(,(F/F,F*F-F+\"\"&F0F7*&)F(,*F/\"\"$F*
F-F+\"#I\"#5F0F0-F26%,&F/F0F7F0,&F+F6F?F0F0F0F0*&F'F0-F26%FH,&F+F6F7F0
F0F0F0*&F=F0-F:6%FHF5F0F0F0*&)F(,(F*F-F+\"#7F/FCF0-F26%FHF<F0F0F0*&)F(
,(F*F-F+\"\"*F/F,F0-F:6%F4,&F+!\"(F.F0F0F0F7*&)F(,*F*F-F+F,!\"$F0F/FCF
0-F26%F4,&F+FhnF7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "A19:= eT1(2,A18);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A19G,6*&)%
\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0
F0!\"\"*&)F(,(F/F,F*F-F+\"\"&F0-%#T1G6%,&F/F0F7F0,&F+F6F0F0F0F0F7*&)F(
,*F/\"\"$F*F-F+\"#7F0F0F0-F26%F?,&F+F6F,F0F0F0F7*&)F(,*F/FDF*F-F+F.F7F
0F0-F26%F?F5F0F0F7*&)F(,*F/FDF*F-F+\"#I\"#5F0F0-F26%F?,&F+F6F;F0F0F0F0
*&F'F0-F26%F?,&F+F6F7F0F0F0F0*&F9F0-F=FMF0F0*&)F(,(F*F-F+FEF/FDF0-F2F>
F0F0*&)F(,(F*F-F+\"\"*F/F,F0-F=6%F4,&F+!\"(F.F0F0F0F7*&)F(,*F*F-F+F,!
\"$F0F/FDF0-F26%F4,&F+FaoF7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A20:= e0(7,A19);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$A20G,.*&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F
0,$F+\"\"(F0F0!\"\"*&)F(,*F/\"\"$F*F-F+\"#7F0F0F0-F26%,&F/F0F7F0,&F+F6
F,F0F0F0F7*&)F(,*F/F;F*F-F+\"#I\"#5F0F0-F26%F?,&F+F6\"\"&F0F0F0F0*&F'F
0-F26%F?,&F+F6F7F0F0F0F0*&)F(,(F*F-F+\"\"*F/F,F0-%#T1G6%F4,&F+!\"(F.F0
F0F0F7*&)F(,*F*F-F+F,!\"$F0F/F;F0-F26%F4,&F+FVF7F0F0F0F7" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A21:=shiftdown(3,A20);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%$A21G,.*&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG
\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!\"\"*&)F(,*F/\"\"$F*F-F+\"#7F0
F0F0-F26%,&F/F0F7F0,&F+F6F,F0F0F0F7*&)F(,*F/F;F*F-F+!#7F0F0F0-F26%F?,&
F+F6F.F0F0F0F0*&F'F0-F26%F?,&F+F6F7F0F0F0F0*&)F(,(F*F-F+\"\"*F/F,F0-%#
T1G6%F4,&F+!\"(F.F0F0F0F7*&)F(,*F*F-F+F,!\"$F0F/F;F0-F26%F4,&F+FTF7F0F
0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A22:=negate(2,A21)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A22G,.*&)%\"qG,(*$%\"jG\"\"#\"
#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!\"\"*&)F(,*F/\"\"
$F*F-F+!#7F0F0F0-F26%,&F/F0F7F0,&F+!\"(F,F0F0F0F7*&F9F0-F26%F?,&F+F6F.
F0F0F0F0*&F'F0-F26%F?,&F+F6F7F0F0F0F0*&)F(,(F*F-F+\"\"*F/F,F0-%#T1G6%F
4,&F+FAF.F0F0F0F7*&)F(,*F*F-F+F,!\"$F0F/F;F0-F26%F4,&F+FAF7F0F0F0F7" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A23:=sym(2,A22);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A23G,**&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"
nG\"\"\"F0-%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!\"\"*&F'F0-F26%,&F/F0F7F0,&F
+F6F7F0F0F0F0*&)F(,(F*F-F+\"\"*F/F,F0-%#T1G6%F4,&F+!\"(F.F0F0F0F7*&)F(
,*F*F-F+F,!\"$F0F/\"\"$F0-F26%F4,&F+FEF7F0F0F0F7" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 17 "A24:= sym(2,A23);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$A24G,**&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-
%#T0G6%,&F/F0F.F0,$F+\"\"(F0F0!\"\"*&F'F0-F26%,&F/F0F7F0,&F+!\"(F0F0F0
F0F0*&)F(,(F*F-F+\"\"*F/F,F0-%#T1G6%F4,&F+F=F.F0F0F0F7*&)F(,*F*F-F+F,!
\"$F0F/\"\"$F0-F26%F4,&F+F=F7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "A25:= eT0(2,A24);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$A25G,.*&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"#%\"nG\"\"\"F0-%#T0G6%,&F/F0F.
F0,$F+\"\"(F0F0!\"\"*&F'F0-F26%F4,$F+!\"(F0F0F0*&)F(,(F*F-F+!\"*F/F,F0
-%#T1G6%F4,&F+F<F0F0F0F0F0*&)F(,(F*F-F+!#;F/\"\"$F0-F26%F4,&F+F<F,F0F0
F0F0*&)F(,(F*F-F+\"\"*F/F,F0-FB6%F4,&F+F<F.F0F0F0F7*&)F(,*F*F-F+F,!\"$
F0F/FIF0-F26%F4,&F+F<F7F0F0F0F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "A26:= sym(1,A25);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A26G,*
*&)%\"qG,(*$%\"jG\"\"#\"#@F+!\"*%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"#F0,&F+!
\"(F0F0F0F0F0*&)F(,(F*F-F+!#;F/\"\"$F0-%#T0G6%F4,&F+F7F,F0F0F0F0*&)F(,
(F*F-F+\"\"*F/F,F0-F26%F4,&F+F7F5F0F0F0!\"\"*&)F(,*F*F-F+F,!\"$F0F/F<F
0-F>6%F4,&F+F7FHF0F0F0FH" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 
"A27:= negate(1,A26);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A27G,**&)%
\"qG,(*$%\"jG\"\"#\"#@F+\"\"*%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"#F0,&F+\"\"
(F0F0F0F0F0*&)F(,(F*F-F+!#;F/\"\"$F0-%#T0G6%F4,&F+!\"(F,F0F0F0F0*&F'F0
-F26%F4,&F+FAF5F0F0F0!\"\"*&)F(,*F*F-F+F,!\"$F0F/F<F0-F>6%F4,&F+FAFFF0
F0F0FF" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A28:=sym(3,A27);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A28G,**&)%\"qG,(*$%\"jG\"\"#\"#
@F+\"\"*%\"nGF,\"\"\"-%#T1G6%,&F/F0!\"#F0,&F+\"\"(F0F0F0F0F0*&)F(,(F*F
-F+!#;F/\"\"$F0-%#T0G6%F4,&F+!\"(F,F0F0F0F0*&F'F0-F26%F4,&F+F7F,F0F0F0
!\"\"*&)F(,*F*F-F+F,!\"$F0F/F<F0-F>6%F4,&F+FAFFF0F0F0FF" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A29:= e0(1,A28);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A29G,**&)%\"qG,**$%\"jG\"\"#\"#@F+F,!\"$\"\"\"%\"n
G\"\"$F/-%#T0G6%,&F0F/!\"#F/,&F+\"\"(F/F/F/F/F/*&)F(,(F*F-F+\"#;F0F1F/
-F36%F5,&F+F8F,F/F/F/!\"\"*&)F(,(F*F-F+!#;F0F1F/-F36%F5,&F+!\"(F,F/F/F
/F/*&F'F/-F36%F5,&F+FHF@F/F/F/F@" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "A30:=sym(1,A29);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%$A30G,&*&)%\"qG,(*$%\"jG\"\"#\"#@F+\"#;%\"nG\"\"$\"\"\"-%#T0G6%,&F/F1
!\"#F1,&F+\"\"(F,F1F1F1!\"\"*&)F(,(F*F-F+!#;F/F0F1-F36%F5,&F+!\"(F,F1F
1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A31:= negate(1,A30
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$A31G\"\"!" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 }