{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.94-b" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "op94:= annihiloper( q^(j^2+j
) / qfac(q,q^2,j+1)/ spqfac(q^2,q^2,j), 0, forward);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%%op94G,(*$%\"NG\"\"#\"\"\"*&,(!\"\"F))%\"qG,&%\"nG
F(\"\"%F)F,F.F,F)F'F)F)F.F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
137 "a1:= applyshiftop(op94, \n   q^(15*j^2 +  4*j    ) * gp(2*n + 1, \+
n + 5*j + 1, 1) \n - q^(15*j^2 + 16*j + 4) * gp(2*n + 1, n + 5*j + 3, \+
1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,6*&)%\"qG,(\"\"\"F**$%
\"jG\"\"#\"#:F,\"\"%F*-%#gpG6%,&%\"nGF-F*F*,(F4F*F,\"\"&F*F*F*F*F**&)F
(,(F+F.F,\"#;F6F*F*-F16%F3,(F4F*F,F6\"\"$F*F*F*!\"\"*&)F(,&F+F.F,F/F*-
F16%,&F4F-F>F*,(F4F*F-F*F,F6F*F*F?*&)F(,(F+F.F,F:F/F*F*-F16%FE,(F4F*F/
F*F,F6F*F*F**&FCF*F'F*F?*&F8F*FJF*F**&FCF*)F(,*F4F-F/F*F+F.F,F/F*F?*&)
F(,*F4F-\"\")F*F+F.F,F:F*FJF*F**&FAF*-F16%,&F4F-F6F*F=F*F*F**&FHF*-F16
%FY,(F4F*F6F*F,F6F*F*F?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "
a2:= eG0(5,a1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a2G,8*&)%\"qG,(
\"\"\"F**$%\"jG\"\"#\"#:F,\"\"%F*-%#gpG6%,&%\"nGF-F*F*,(F4F*F,\"\"&F*F
*F*F*F**&)F(,(F+F.F,\"#;F6F*F*-F16%F3,(F4F*F,F6\"\"$F*F*F*!\"\"*&)F(,&
F+F.F,F/F*-F16%,&F4F-F>F*,(F4F*F-F*F,F6F*F*F?*&)F(,(F+F.F,F:F/F*F*-F16
%FE,(F4F*F/F*F,F6F*F*F**&F'F*-F16%,&F4F-F-F*FFF*F*F?*&)F(,*F-F*F+F.F,F
?F4F*F*-F16%FPF5F*F*F?*&F8F*FJF*F**&FCF*)F(,*F4F-F/F*F+F.F,F/F*F?*&)F(
,*F4F-\"\")F*F+F.F,F:F*FJF*F**&FAF*-F16%,&F4F-F6F*F=F*F*F**&FHF*-F16%F
[o,(F4F*F6F*F,F6F*F*F?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a
3:= eG1(5,a2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,6*&)%\"qG,(*$
%\"jG\"\"#\"#:F+\"#;\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F0F0,(F5F0F+F/\"\"$F
0F0F0!\"\"*&)F(,&F*F-F+\"\"%F0-F26%,&F5F,F7F0,(F5F0F,F0F+F/F0F0F8*&)F(
,(F*F-F+F.F<F0F0-F26%F?,(F5F0F<F0F+F/F0F0F0*&)F(,*F7F0F*F-F+\"\"*F5F0F
0-F26%F4F@F0F0F8*&)F(,*F,F0F*F-F+F8F5F0F0-F26%,&F5F,F,F0,(F5F0F+F/F0F0
F0F0F8*&F'F0FDF0F0*&F=F0)F(,*F5F,F<F0F*F-F+F<F0F8*&)F(,*F5F,\"\")F0F*F
-F+F.F0FDF0F0*&F:F0-F26%,&F5F,F/F0F6F0F0F0*&FBF0-F26%Fin,(F5F0F/F0F+F/
F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a4:= eG1(9,a3);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a4G,8*&)%\"qG,(*$%\"jG\"\"#\"#:F+
\"#;\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F0F0,(F5F0F+F/\"\"$F0F0F0!\"\"*&)F(,
&F*F-F+\"\"%F0-F26%,&F5F,F7F0,(F5F0F,F0F+F/F0F0F8*&)F(,(F*F-F+F.F<F0F0
-F26%F?,(F5F0F<F0F+F/F0F0F0*&)F(,*F7F0F*F-F+\"\"*F5F0F0-F26%F4F@F0F0F8
*&)F(,*F,F0F*F-F+F8F5F0F0-F26%,&F5F,F,F0,(F5F0F+F/F0F0F0F0F8*&F'F0FDF0
F0*&F=F0)F(,*F5F,F<F0F*F-F+F<F0F8*&)F(,*F5F,\"\")F0F*F-F+F.F0FDF0F0*&F
:F0-F26%,&F5F,F<F0F@F0F0F0*&FHF0-F26%FinF6F0F0F0*&FBF0-F26%,&F5F,F/F0,
(F5F0F/F0F+F/F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a5:=
 eG0(9,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,6*&)%\"qG,(*$%\"
jG\"\"#\"#:F+\"#;\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F0F0,(F5F0F+F/\"\"$F0F0
F0!\"\"*&)F(,(F*F-F+F.\"\"%F0F0-F26%,&F5F,F7F0,(F5F0F<F0F+F/F0F0F0*&)F
(,*F7F0F*F-F+\"\"*F5F0F0-F26%F4,(F5F0F,F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F8
F5F0F0-F26%,&F5F,F,F0,(F5F0F+F/F0F0F0F0F8*&F'F0F=F0F0*&-F26%F?FGF0F0)F
(,*F5F,F<F0F*F-F+F<F0F8*&)F(,*F5F,\"\")F0F*F-F+F.F0F=F0F0*&FIF0-F26%F?
FNF0F0F0*&FBF0-F26%,&F5F,F<F0F6F0F0F0*&F:F0-F26%,&F5F,F/F0,(F5F0F/F0F+
F/F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a6:= eG0(10,a5)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a6G,8*&)%\"qG,(*$%\"jG\"\"#\"#
:F+\"#;\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F0F0,(F5F0F+F/\"\"$F0F0F0!\"\"*&)
F(,(F*F-F+F.\"\"%F0F0-F26%,&F5F,F7F0,(F5F0F<F0F+F/F0F0F0*&)F(,*F7F0F*F
-F+\"\"*F5F0F0-F26%F4,(F5F0F,F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F8F5F0F0-F26
%,&F5F,F,F0,(F5F0F+F/F0F0F0F0F8*&F'F0F=F0F0*&-F26%F?FGF0F0)F(,*F5F,F<F
0F*F-F+F<F0F8*&)F(,*F5F,\"\")F0F*F-F+F.F0F=F0F0*&FIF0-F26%F?FNF0F0F0*&
FBF0-F26%,&F5F,F<F0F6F0F0F0*&F:F0-F26%Fin,(F5F0F/F0F+F/F0F0F8*&)F(,*F*
F-F+\"#6F<F0F5F0F0-F26%FinF@F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "a7:= eG1(10,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%#a7G,6*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#;\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F
0F0,(F5F0F+F/\"\"$F0F0F0!\"\"*&)F(,*F7F0F*F-F+\"\"*F5F0F0-F26%F4,(F5F0
F,F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F8F5F0F0-F26%,&F5F,F,F0,(F5F0F+F/F0F0F0
F0F8*&F'F0-F26%,&F5F,F7F0,(F5F0\"\"%F0F+F/F0F0F0*&-F26%FJF?F0F0)F(,*F5
F,FLF0F*F-F+FLF0F8*&)F(,*F5F,\"\")F0F*F-F+F.F0FHF0F0*&FAF0-F26%FJFFF0F
0F0*&F:F0-F26%,&F5F,FLF0F6F0F0F0*&)F(,*F*F-F+\"#@F<F0F5F0F0-F26%FJ,(F5
F0F/F0F+F/F0F0F8*&)F(,*F*F-F+\"#6FLF0F5F0F0-F26%FfnFKF0F0F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a8:= eG1(4,a7);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a8G,8*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#;\"\"&\"
\"\"F0-%#gpG6%,&%\"nGF,F0F0,(F5F0F+F/\"\"$F0F0F0!\"\"*&)F(,*F7F0F*F-F+
\"\"*F5F0F0-F26%F4,(F5F0F,F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F8F5F0F0-F26%,&
F5F,F,F0,(F5F0F+F/F0F0F0F0F8*&F'F0-F26%FEF6F0F0F0*&)F(,*F*F-F+\"#@F<F0
F5F0F0-F26%FE,(F5F0\"\"%F0F+F/F0F0F0*&-F26%,&F5F,F7F0F?F0F0)F(,*F5F,FQ
F0F*F-F+FQF0F8*&)F(,*F5F,\"\")F0F*F-F+F.F0-F26%FUFPF0F0F0*&FAF0-F26%FU
FFF0F0F0*&F:F0-F26%,&F5F,FQF0F6F0F0F0*&FKF0-F26%FU,(F5F0F/F0F+F/F0F0F8
*&)F(,*F*F-F+\"#6FQF0F5F0F0-F26%F^oFPF0F0F8" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 15 "a9:= eG0(4,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%#a9G,6*&)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"#:F-\"\"*%\"nGF+F+-%#gpG6%
,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+!\"\"*&)F(,*F.F+F,F/F-F8F1F+F+-F36%,&F1
F.F.F+,(F1F+F-F7F+F+F+F+F8*&)F(,*F,F/F-\"#6\"\"%F+F1F+F+F2F+F+*&)F(,*F
,F/F-\"#@F0F+F1F+F+-F36%F>,(F1F+FDF+F-F7F+F+F+*&-F36%,&F1F.F*F+F6F+F+)
F(,*F1F.FDF+F,F/F-FDF+F8*&)F(,*F1F.\"\")F+F,F/F-\"#;F+-F36%FOFKF+F+F+*
&F:F+-F36%FOF?F+F+F+*&F'F+-F36%,&F1F.FDF+,(F1F+F-F7F*F+F+F+F+*&FFF+-F3
6%FO,(F1F+F7F+F-F7F+F+F8*&FAF+-F36%FinFKF+F+F8" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "a10:= eG0(7,a9);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a10G,4*&)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"#:F-\"\"*%\"nGF+F+-%
#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+!\"\"*&)F(,*F,F/F-\"#6\"\"%F+F1F+
F+F2F+F+*&)F(,*F,F/F-\"#@F0F+F1F+F+-F36%,&F1F.F.F+,(F1F+F=F+F-F7F+F+F+
*&-F36%,&F1F.F*F+F6F+F+)F(,*F1F.F=F+F,F/F-F=F+F8*&)F(,*F1F.\"\")F+F,F/
F-\"#;F+-F36%FIFEF+F+F+*&)F(,*F=F+F,F/F-!\"'F1F.F+-F36%FD,&F1F+F-F7F+F
+F+*&F'F+-F36%,&F1F.F=F+,(F1F+F-F7F*F+F+F+F+*&F?F+-F36%FI,(F1F+F7F+F-F
7F+F+F8*&F:F+-F36%FgnFEF+F+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "a11:= eG1(8,a10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a11G,2*&
)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"#:F-\"\"*%\"nGF+F+-%#gpG6%,&F1F.F+F+,
(F1F+F.F+F-\"\"&F+F+!\"\"*&)F(,*F,F/F-\"#6\"\"%F+F1F+F+F2F+F+*&-F36%,&
F1F.F*F+F6F+F+)F(,*F1F.F=F+F,F/F-F=F+F8*&)F(,*F1F.\"\")F+F,F/F-\"#;F+-
F36%FA,(F1F+F=F+F-F7F+F+F+*&)F(,*F=F+F,F/F-!\"'F1F.F+-F36%,&F1F.F.F+,&
F1F+F-F7F+F+F+*&F'F+-F36%,&F1F.F=F+,(F1F+F-F7F*F+F+F+F+*&)F(,*F,F/F-\"
#E\"#9F+F1F.F+-F36%FR,(F1F+F7F+F-F7F+F+F8*&F:F+-F36%FWFKF+F+F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a12:= eG0(6,a11);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a12G,0*&)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"
#:F-\"\"*%\"nGF+F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+!\"\"*&)F(,*F
,F/F-\"#6\"\"%F+F1F+F+F2F+F+*&)F(,*F1F.\"\")F+F,F/F-\"#;F+-F36%,&F1F.F
*F+,(F1F+F=F+F-F7F+F+F+*&)F(,*F=F+F,F/F-!\"'F1F.F+-F36%,&F1F.F.F+,&F1F
+F-F7F+F+F+*&F'F+-F36%FE,(F1F+F-F7F*F+F+F+F+*&)F(,*F,F/F-\"#E\"#9F+F1F
.F+-F36%FM,(F1F+F7F+F-F7F+F+F8*&F:F+-F36%,&F1F.F=F+FFF+F+F8" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a13:= eG1(5,a12);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a13G,2*&)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"
#:F-\"\"*%\"nGF+F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+!\"\"*&)F(,*F
,F/F-\"#6\"\"%F+F1F+F+F2F+F+*&)F(,*F1F.\"\")F+F,F/F-\"#;F+-F36%,&F1F.F
*F+,(F1F+F=F+F-F7F+F+F+*&)F(,*F=F+F,F/F-!\"'F1F.F+-F36%,&F1F.F.F+,&F1F
+F-F7F+F+F+*&F'F+-F36%FMF6F+F+F+*&)F(,*\"\"'F+F,F/F-\"#9F1F.F+-F36%FM,
(F1F+F-F7F*F+F+F+F+*&)F(,*F,F/F-\"#EFVF+F1F.F+-F36%FM,(F1F+F7F+F-F7F+F
+F8*&F:F+-F36%,&F1F.F=F+FFF+F+F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a14:= eG0(5,a13);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a14G,0*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#6\"\"%\"\"\"%\"nGF0F0-%#gpG6%,
&F1F,F0F0,(F1F0F,F0F+\"\"&F0F0F0*&)F(,*F1F,\"\")F0F*F-F+\"#;F0-F36%,&F
1F,\"\"$F0,(F1F0F/F0F+F7F0F0F0*&)F(,*F/F0F*F-F+!\"'F1F,F0-F36%,&F1F,F,
F0,&F1F0F+F7F0F0F0*&)F(,*F@F0F*F-F+F/F1F,F0-F36%F5,(F1F0F+F7F0F0F0F0F0
*&)F(,*\"\"'F0F*F-F+\"#9F1F,F0-F36%FH,(F1F0F+F7F@F0F0F0F0*&)F(,*F*F-F+
\"#EFTF0F1F,F0-F36%FH,(F1F0F7F0F+F7F0F0!\"\"*&F'F0-F36%,&F1F,F/F0FAF0F
0Fin" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a15:= eG1(7,a14);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a15G,.*&)%\"qG,**$%\"jG\"\"#\"#:F
+\"#6\"\"%\"\"\"%\"nGF0F0-%#gpG6%,&F1F,F0F0,(F1F0F,F0F+\"\"&F0F0F0*&)F
(,*F/F0F*F-F+!\"'F1F,F0-F36%,&F1F,F,F0,&F1F0F+F7F0F0F0*&)F(,*\"\"$F0F*
F-F+F/F1F,F0-F36%F5,(F1F0F+F7F0F0F0F0F0*&)F(,*\"\"'F0F*F-F+\"#9F1F,F0-
F36%F>,(F1F0F+F7FCF0F0F0F0*&)F(,*F*F-F+\"#EFKF0F1F,F0-F36%F>,(F1F0F7F0
F+F7F0F0!\"\"*&F'F0-F36%,&F1F,FCF0FNF0F0FV" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "a16:= eG0(6,a15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$a16G,0*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#6\"\"%\"\"\"%\"nGF0F0-%#gpG6
%,&F1F,F0F0,(F1F0F,F0F+\"\"&F0F0F0*&)F(,*F/F0F*F-F+!\"'F1F,F0-F36%,&F1
F,F,F0,&F1F0F+F7F0F0F0*&)F(,*\"\"$F0F*F-F+F/F1F,F0-F36%F5,(F1F0F+F7F0F
0F0F0F0*&)F(,*\"\"'F0F*F-F+\"#9F1F,F0-F36%F>,(F1F0F+F7FCF0F0F0F0*&)F(,
*F*F-F+\"#EFKF0F1F,F0-F36%F>,(F1F0F7F0F+F7F0F0!\"\"*&F'F0FLF0FV*&)F(,*
F*F-F+FJF/F0F1F,F0-F36%F>F6F0F0FV" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a17:= eG1(6,a16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a17G,.*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-!\"'%\"nGF.F+-%#gpG6%,
&F1F.F.F+,&F1F+F-\"\"&F+F+F+*&)F(,*\"\"$F+F,F/F-F*F1F.F+-F36%,&F1F.F+F
+,(F1F+F-F7F+F+F+F+F+*&)F(,*\"\"'F+F,F/F-\"#9F1F.F+-F36%F5,(F1F+F-F7F;
F+F+F+F+*&)F(,*F,F/F-\"#EFDF+F1F.F+-F36%F5,(F1F+F7F+F-F7F+F+!\"\"*&)F(
,*F,F/F-\"#;\"\"(F+F1F.F+-F36%F>FGF+F+FO*&)F(,*F,F/F-FCF*F+F1F.F+-F36%
F5,(F1F+F.F+F-F7F+F+FO" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a
18:= gpsym(1,a17);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a18G,.*&)%\"q
G,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-!\"'%\"nGF.F+-%#gpG6%,&F1F.F.F+,(F1F+F
.F+F-!\"&F+F+F+*&)F(,*\"\"$F+F,F/F-F*F1F.F+-F36%,&F1F.F+F+,(F1F+F-\"\"
&F+F+F+F+F+*&)F(,*\"\"'F+F,F/F-\"#9F1F.F+-F36%F5,(F1F+F-F@F;F+F+F+F+*&
)F(,*F,F/F-\"#EFEF+F1F.F+-F36%F5,(F1F+F@F+F-F@F+F+!\"\"*&)F(,*F,F/F-\"
#;\"\"(F+F1F.F+-F36%F>FHF+F+FP*&)F(,*F,F/F-FDF*F+F1F.F+-F36%F5,(F1F+F.
F+F-F@F+F+FP" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a19:= negat
e(1,a18);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a19G,**&)%\"qG,*\"\"$
\"\"\"*$%\"jG\"\"#\"#:F-\"\"%%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F-\"\"&F
+F+F+F+F+*&)F(,*\"\"'F+F,F/F-\"#9F1F.F+-F36%,&F1F.F.F+,(F1F+F-F7F*F+F+
F+F+*&)F(,*F,F/F-\"#EF<F+F1F.F+-F36%F?,(F1F+F7F+F-F7F+F+!\"\"*&)F(,*F,
F/F-\"#;\"\"(F+F1F.F+-F36%F5F@F+F+FH" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "a20:= shiftdown(3,a19);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a20G,**&)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"#:F-\"\"%%\"nGF.F+-%
#gpG6%,&F1F.F+F+,(F1F+F-\"\"&F+F+F+F+F+*&)F(,*\"\"'F+F,F/F-\"#9F1F.F+-
F36%,&F1F.F.F+,(F1F+F-F7F*F+F+F+F+*&)F(,*F,F/F-!\"%F*F+F1F.F+-F36%F?,&
F1F+F-F7F+F+!\"\"*&)F(,*F,F/F-\"#;\"\"(F+F1F.F+-F36%F5F@F+F+FH" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a21:= gpsym(3,a20);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a21G,**&)%\"qG,*\"\"$\"\"\"*$%\"jG
\"\"#\"#:F-\"\"%%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F-\"\"&F+F+F+F+F+*&)F
(,*\"\"'F+F,F/F-\"#9F1F.F+-F36%,&F1F.F.F+,(F1F+F-F7F*F+F+F+F+*&)F(,*F,
F/F-!\"%F*F+F1F.F+-F36%F?,(F1F+F.F+F-!\"&F+F+!\"\"*&)F(,*F,F/F-\"#;\"
\"(F+F1F.F+-F36%F5F@F+F+FI" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "a22:= negate(3,a21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a22G,**
&)%\"qG,*\"\"$\"\"\"*$%\"jG\"\"#\"#:F-\"\"%%\"nGF.F+-%#gpG6%,&F1F.F+F+
,(F1F+F-\"\"&F+F+F+F+F+*&)F(,*\"\"'F+F,F/F-\"#9F1F.F+-F36%,&F1F.F.F+,(
F1F+F-F7F*F+F+F+F+*&F'F+-F36%F?,(F1F+F.F+F-F7F+F+!\"\"*&)F(,*F,F/F-\"#
;\"\"(F+F1F.F+-F36%F5F@F+F+FE" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "a23:= eG1(3,a22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a23G,(*&
)%\"qG,*\"\"'\"\"\"*$%\"jG\"\"#\"#:F-\"#9%\"nGF.F+-%#gpG6%,&F1F.F.F+,(
F1F+F-\"\"&\"\"$F+F+F+F+*&)F(,*F7F+F,F/F-\"\"*F1F8F+-F36%,&F1F.F+F+,(F
1F+F.F+F-F7F+F+!\"\"*&)F(,*F,F/F-\"#;\"\"(F+F1F.F+-F36%F?F6F+F+FA" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a24:= shiftdown(1,a23);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a24G,(*&)%\"qG,*\"\"(\"\"\"*$%\"jG
\"\"#\"#:F-!#;%\"nGF.F+-%#gpG6%,&F1F.F.F+,(F1F+F-\"\"&!\"#F+F+F+F+*&)F
(,*F7F+F,F/F-\"\"*F1\"\"$F+-F36%,&F1F.F+F+,(F1F+F.F+F-F7F+F+!\"\"*&)F(
,*F,F/F-\"#;F*F+F1F.F+-F36%F@,(F1F+F-F7F=F+F+F+FB" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 19 "a25:= gpsym(1,a24);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a25G,(*&)%\"qG,*\"\"(\"\"\"*$%\"jG\"\"#\"#:F-!#;%\"n
GF.F+-%#gpG6%,&F1F.F.F+,(F1F+\"\"%F+F-!\"&F+F+F+*&)F(,*\"\"&F+F,F/F-\"
\"*F1\"\"$F+-F36%,&F1F.F+F+,(F1F+F.F+F-F<F+F+!\"\"*&)F(,*F,F/F-\"#;F*F
+F1F.F+-F36%FA,(F1F+F-F<F>F+F+F+FC" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a26:= negate(1,a25);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a26G,(*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#;\"\"(\"\"\"%\"nGF,F0-%#gpG
6%,&F1F,F,F0,(F1F0\"\"%F0F+\"\"&F0F0F0*&)F(,*F8F0F*F-F+\"\"*F1\"\"$F0-
F36%,&F1F,F0F0,(F1F0F,F0F+F8F0F0!\"\"*&F'F0-F36%F@,(F1F0F+F8F=F0F0F0FB
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a27:= eG1(1,a26);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,&*&)%\"qG,**$%\"jG\"\"#\"#:F+
\"#@\"#6\"\"\"%\"nG\"\"$F0-%#gpG6%,&F1F,F0F0,(F1F0\"\"%F0F+\"\"&F0F0F0
*&)F(,*F9F0F*F-F+\"\"*F1F2F0-F46%F6,(F1F0F,F0F+F9F0F0!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a28:= shiftdown(1,a27);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a28G,&*&)%\"qG,**$%\"jG\"\"#\"#:F+!\"*\"
\"&\"\"\"%\"nG\"\"$F0-%#gpG6%,&F1F,F0F0,(F1F0!\"\"F0F+F/F0F0F0*&)F(,*F
/F0F*F-F+\"\"*F1F2F0-F46%F6,(F1F0F,F0F+F/F0F0F8" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "a29:= gpsym(1,a28);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a29G,&*&)%\"qG,**$%\"jG\"\"#\"#:F+!\"*\"\"&\"\"\"%\"
nG\"\"$F0-%#gpG6%,&F1F,F0F0,(F1F0F,F0F+!\"&F0F0F0*&)F(,*F/F0F*F-F+\"\"
*F1F2F0-F46%F6,(F1F0F,F0F+F/F0F0!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a30:= negate(1,a29);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$a30G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }