{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 12 "##### 3.79-b" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "op79:= annihiloper( q^(j^2) \+
/ qfac(q,q^2,j) / spqfac(q^2,q^2,j), 0, forward);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%op79G,(*$%\"NG\"\"#\"\"\"*&,(%\"qG!\"\"F-F))F,,&\"\"
$F)%\"nGF(F-F)F'F)F)F,F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
103 "a1:= applyshiftop(op79, \n   q^(15*j^2 + j)*gp(2*n,n+5*j,1) \n  -
q^(15*j^2 +19*j + 6)*gp(2*n,n+5*j+3,1));" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#a1G,6*&-%#gpG6%,$%\"nG\"\"#,&F+\"\"\"%\"jG\"\"&F.F.)%\"qG,(F.
F.*$F/F,\"#:F/F.F.F.*&-F(6%F*,(F+F.F/F0\"\"$F.F.F.)F2,(F4F5F/\"#>\"\"(
F.F.!\"\"*&-F(6%,&F+F,F,F.,(F+F.F.F.F/F0F.F.F1F.F?*&-F(6%FC,(F+F.\"\"%
F.F/F0F.F.F;F.F.*&)F2,&F4F5F/F.F.FAF.F?*&)F2,(F4F5F/F=\"\"'F.F.FFF.F.*
&FAF.)F2,*F:F.F+F,F4F5F/F.F.F?*&FFF.)F2,*\"\"*F.F+F,F4F5F/F=F.F.*&FKF.
-F(6%,&F+F,FIF.,(F+F.F,F.F/F0F.F.F.*&FNF.-F(6%Fen,(F+F.F0F.F/F0F.F.F?
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eG1(3,a1);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a2G,8*&-%#gpG6%,$%\"nG\"\"#,&F+\"\"
\"%\"jG\"\"&F.F.)%\"qG,(F.F.*$F/F,\"#:F/F.F.F.*&-F(6%F*,(F+F.F/F0\"\"$
F.F.F.)F2,(F4F5F/\"#>\"\"(F.F.!\"\"*&F1F.-F(6%,&F+F,F.F.F-F.F.F?*&)F2,
*F,F.F4F5F/\"\"'F+F.F.-F(6%FC,(F+F.F.F.F/F0F.F.F?*&-F(6%,&F+F,F,F.,(F+
F.\"\"%F.F/F0F.F.F;F.F.*&)F2,&F4F5F/F.F.-F(6%FNFJF.F.F?*&)F2,(F4F5F/F=
FGF.F.FLF.F.*&FTF.)F2,*F:F.F+F,F4F5F/F.F.F?*&FLF.)F2,*\"\"*F.F+F,F4F5F
/F=F.F.*&FRF.-F(6%,&F+F,FPF.,(F+F.F,F.F/F0F.F.F.*&FWF.-F(6%F]o,(F+F.F0
F.F/F0F.F.F?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG0(3,
a2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,6*&-%#gpG6%,$%\"nG\"\"#
,(F+\"\"\"%\"jG\"\"&\"\"$F.F.F.)%\"qG,(*$F/F,\"#:F/\"#>\"\"(F.F.!\"\"*
&)F3,*F,F.F5F6F/!\"%F+F.F.-F(6%F*,(F+F.F/F0F9F.F.F.F9*&)F3,*F,F.F5F6F/
\"\"'F+F.F.-F(6%,&F+F,F.F.,(F+F.F.F.F/F0F.F.F9*&-F(6%,&F+F,F,F.,(F+F.
\"\"%F.F/F0F.F.F2F.F.*&)F3,&F5F6F/F.F.-F(6%FLFHF.F.F9*&)F3,(F5F6F/F7FD
F.F.FJF.F.*&FRF.)F3,*F1F.F+F,F5F6F/F.F.F9*&FJF.)F3,*\"\"*F.F+F,F5F6F/F
7F.F.*&FPF.-F(6%,&F+F,FNF.,(F+F.F,F.F/F0F.F.F.*&FUF.-F(6%F[o,(F+F.F0F.
F/F0F.F.F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a4:= eG0(9,a3
); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a4G,8*&-%#gpG6%,$%\"nG\"\"#,
(F+\"\"\"%\"jG\"\"&\"\"$F.F.F.)%\"qG,(*$F/F,\"#:F/\"#>\"\"(F.F.!\"\"*&
)F3,*F,F.F5F6F/!\"%F+F.F.-F(6%F*,(F+F.F/F0F9F.F.F.F9*&)F3,*F,F.F5F6F/
\"\"'F+F.F.-F(6%,&F+F,F.F.,(F+F.F.F.F/F0F.F.F9*&-F(6%,&F+F,F,F.,(F+F.
\"\"%F.F/F0F.F.F2F.F.*&)F3,&F5F6F/F.F.-F(6%FLFHF.F.F9*&)F3,(F5F6F/F7FD
F.F.FJF.F.*&FRF.)F3,*F1F.F+F,F5F6F/F.F.F9*&FJF.)F3,*\"\"*F.F+F,F5F6F/F
7F.F.*&FPF.-F(6%,&F1F.F+F,,(F+F.F,F.F/F0F.F.F.*&F;F.-F(6%F[oFHF.F.F.*&
FUF.-F(6%,&F+F,FNF.,(F+F.F0F.F/F0F.F.F9" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a5:= eG1(9,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a5G,6*&-%#gpG6%,$%\"nG\"\"#,(F+\"\"\"%\"jG\"\"&\"\"$F.F.F.)%\"qG,(*$F
/F,\"#:F/\"#>\"\"(F.F.!\"\"*&)F3,*F,F.F5F6F/!\"%F+F.F.-F(6%F*,(F+F.F/F
0F9F.F.F.F9*&)F3,*F,F.F5F6F/\"\"'F+F.F.-F(6%,&F+F,F.F.,(F+F.F.F.F/F0F.
F.F9*&-F(6%,&F+F,F,F.,(F+F.\"\"%F.F/F0F.F.F2F.F.*&)F3,(F5F6F/F7FDF.F.F
JF.F.*&-F(6%FLFHF.F.)F3,*F1F.F+F,F5F6F/F.F.F9*&FJF.)F3,*\"\"*F.F+F,F5F
6F/F7F.F.*&FBF.-F(6%FL,(F+F.F,F.F/F0F.F.F.*&F;F.-F(6%,&F1F.F+F,FHF.F.F
.*&FPF.-F(6%,&F+F,FNF.,(F+F.F0F.F/F0F.F.F9" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "a6:= eG1(4,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%#a6G,8*&-%#gpG6%,$%\"nG\"\"#,(F+\"\"\"%\"jG\"\"&\"\"$F.F.F.)%\"qG,(*
$F/F,\"#:F/\"#>\"\"(F.F.!\"\"*&)F3,*F,F.F5F6F/!\"%F+F.F.-F(6%F*,(F+F.F
/F0F9F.F.F.F9*&)F3,*F,F.F5F6F/\"\"'F+F.F.-F(6%,&F+F,F.F.,(F+F.F.F.F/F0
F.F.F9*&F2F.-F(6%FGF-F.F.F.*&)F3,*F5F6F/\"#C\"#6F.F+F.F.-F(6%FG,(F+F.
\"\"%F.F/F0F.F.F.*&)F3,(F5F6F/F7FDF.F.-F(6%,&F+F,F,F.FSF.F.F.*&-F(6%FZ
FHF.F.)F3,*F1F.F+F,F5F6F/F.F.F9*&FXF.)F3,*\"\"*F.F+F,F5F6F/F7F.F.*&FBF
.-F(6%FZ,(F+F.F,F.F/F0F.F.F.*&F;F.-F(6%,&F1F.F+F,FHF.F.F.*&FVF.-F(6%,&
F+F,FTF.,(F+F.F0F.F/F0F.F.F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 15 "a7:= eG0(4,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a7G,6*&)%
\"qG,*\"\"#\"\"\"*$%\"jGF*\"#:F-!\"%%\"nGF+F+-%#gpG6%,$F0F*,(F0F+F-\"
\"&!\"\"F+F+F+F7*&)F(,*F*F+F,F.F-\"\"'F0F+F+-F26%,&F0F*F+F+,(F0F+F+F+F
-F6F+F+F7*&)F(,*F,F.F-\"#9F6F+F0F+F+-F26%F4,(F0F+F*F+F-F6F+F+F+*&)F(,*
F,F.F-\"#C\"#6F+F0F+F+-F26%F>,(F0F+\"\"%F+F-F6F+F+F+*&)F(,(F,F.F-\"#>F
;F+F+-F26%,&F0F*F*F+FNF+F+F+*&-F26%FVF?F+F+)F(,*\"\"$F+F0F*F,F.F-F+F+F
7*&FTF+)F(,*\"\"*F+F0F*F,F.F-FSF+F+*&F9F+-F26%FVFFF+F+F+*&F'F+-F26%,&F
fnF+F0F*F?F+F+F+*&FQF+-F26%,&F0F*FOF+,(F0F+F6F+F-F6F+F+F7" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a8:= eG1(8,a7);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a8G,4*&)%\"qG,*\"\"#\"\"\"*$%\"jGF*\"#:F-!\"%%\"nG
F+F+-%#gpG6%,$F0F*,(F0F+F-\"\"&!\"\"F+F+F+F7*&)F(,*F,F.F-\"#9F6F+F0F+F
+-F26%F4,(F0F+F*F+F-F6F+F+F+*&)F(,*F,F.F-\"#C\"#6F+F0F+F+-F26%,&F0F*F+
F+,(F0F+\"\"%F+F-F6F+F+F+*&)F(,(F,F.F-\"#>\"\"'F+F+-F26%,&F0F*F*F+FGF+
F+F+*&-F26%FP,(F0F+F+F+F-F6F+F+)F(,*\"\"$F+F0F*F,F.F-F+F+F7*&FNF+)F(,*
\"\"*F+F0F*F,F.F-FLF+F+*&)F(,*FHF+F,F.F-FCF0F*F+-F26%FFF>F+F+F+*&F'F+-
F26%,&FWF+F0F*FTF+F+F+*&FJF+-F26%,&F0F*FHF+,(F0F+F6F+F-F6F+F+F7" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a9:= eG1(9,a8);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a9G,6*&)%\"qG,*\"\"#\"\"\"*$%\"jGF*\"#:F-!\"
%%\"nGF+F+-%#gpG6%,$F0F*,(F0F+F-\"\"&!\"\"F+F+F+F7*&)F(,*F,F.F-\"#9F6F
+F0F+F+-F26%F4,(F0F+F*F+F-F6F+F+F+*&)F(,*F,F.F-\"#C\"#6F+F0F+F+-F26%,&
F0F*F+F+,(F0F+\"\"%F+F-F6F+F+F+*&)F(,(F,F.F-\"#>\"\"'F+F+-F26%,&F0F*F*
F+FGF+F+F+*&-F26%FP,(F0F+F+F+F-F6F+F+)F(,*\"\"$F+F0F*F,F.F-F+F+F7*&FNF
+)F(,*\"\"*F+F0F*F,F.F-FLF+F+*&)F(,*FHF+F,F.F-FCF0F*F+-F26%FFF>F+F+F+*
&F'F+-F26%,&FWF+F0F*FTF+F+F+*&FJF+-F26%F^oFGF+F+F7*&F@F+-F26%F^o,(F0F+
F6F+F-F6F+F+F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a10:= eG0
(9,a9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a10G,4*&)%\"qG,*\"\"#\"
\"\"*$%\"jGF*\"#:F-!\"%%\"nGF+F+-%#gpG6%,$F0F*,(F0F+F-\"\"&!\"\"F+F+F+
F7*&)F(,*F,F.F-\"#9F6F+F0F+F+-F26%F4,(F0F+F*F+F-F6F+F+F+*&)F(,*F,F.F-
\"#C\"#6F+F0F+F+-F26%,&F0F*F+F+,(F0F+\"\"%F+F-F6F+F+F+*&-F26%,&F0F*F*F
+,(F0F+F+F+F-F6F+F+)F(,*\"\"$F+F0F*F,F.F-F+F+F7*&-F26%FLFGF+F+)F(,*\"
\"*F+F0F*F,F.F-\"#>F+F+*&)F(,*FHF+F,F.F-FCF0F*F+-F26%FFF>F+F+F+*&F'F+-
F26%,&FPF+F0F*FMF+F+F+*&F9F+-F26%FL,(F0F+F-F6FPF+F+F+F7*&F@F+-F26%Fjn,
(F0F+F6F+F-F6F+F+F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a11:
= eG1(7,a10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a11G,2*&)%\"qG,*\"
\"#\"\"\"*$%\"jGF*\"#:F-!\"%%\"nGF+F+-%#gpG6%,$F0F*,(F0F+F-\"\"&!\"\"F
+F+F+F7*&)F(,*F,F.F-\"#9F6F+F0F+F+-F26%F4,(F0F+F*F+F-F6F+F+F+*&)F(,*F,
F.F-\"#C\"#6F+F0F+F+-F26%,&F0F*F+F+,(F0F+\"\"%F+F-F6F+F+F+*&-F26%,&F0F
*F*F+FGF+F+)F(,*\"\"*F+F0F*F,F.F-\"#>F+F+*&)F(,*FHF+F,F.F-FCF0F*F+-F26
%FFF>F+F+F+*&F'F+-F26%FL,&F0F+F-F6F+F+F+*&F9F+-F26%FL,(F0F+F-F6\"\"$F+
F+F+F7*&F@F+-F26%,&FhnF+F0F*,(F0F+F6F+F-F6F+F+F7" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 17 "a12:= eG0(6,a11);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a12G,4*&)%\"qG,*\"\"#\"\"\"*$%\"jGF*\"#:F-!\"%%\"nGF
+F+-%#gpG6%,$F0F*,(F0F+F-\"\"&!\"\"F+F+F+F7*&)F(,*F,F.F-\"#9F6F+F0F+F+
-F26%F4,(F0F+F*F+F-F6F+F+F+*&)F(,*F,F.F-\"#C\"#6F+F0F+F+-F26%,&F0F*F+F
+,(F0F+\"\"%F+F-F6F+F+F+*&-F26%,&F0F*F*F+FGF+F+)F(,*\"\"*F+F0F*F,F.F-
\"#>F+F+*&)F(,*FHF+F,F.F-FCF0F*F+-F26%FFF>F+F+F+*&F'F+-F26%FF,&F0F+F-F
6F+F+F+*&)F(,*FHF+F,F.F-!\"*F0F*F+-F26%FFF5F+F+F+*&F9F+-F26%FL,(F0F+F-
F6\"\"$F+F+F+F7*&F@F+-F26%,&F^oF+F0F*,(F0F+F6F+F-F6F+F+F7" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a13:= eG1(6,a12);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a13G,2*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#9\"\"&\"\"\"
%\"nGF0F0-%#gpG6%,$F1F,,(F1F0F,F0F+F/F0F0F0*&)F(,*F*F-F+\"#C\"#6F0F1F0
F0-F36%,&F1F,F0F0,(F1F0\"\"%F0F+F/F0F0F0*&-F36%,&F1F,F,F0F?F0F0)F(,*\"
\"*F0F1F,F*F-F+\"#>F0F0*&)F(,*F@F0F*F-F+F;F1F,F0-F36%F>F6F0F0F0*&)F(,*
F,F0F*F-F+F0F1F,F0-F36%F5,&F1F0F+F/F0F0F0*&)F(,*F@F0F*F-F+!\"*F1F,F0-F
36%F>,(F1F0F+F/!\"\"F0F0F0F0*&F'F0-F36%FD,(F1F0F+F/\"\"$F0F0F0Fen*&F8F
0-F36%,&FjnF0F1F,,(F1F0F/F0F+F/F0F0Fen" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a14:= eG1(7,a13);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a14G,4*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#9\"\"&\"\"\"%\"nGF0F0-%#gpG6%,
$F1F,,(F1F0F,F0F+F/F0F0F0*&)F(,*F*F-F+\"#C\"#6F0F1F0F0-F36%,&F1F,F0F0,
(F1F0\"\"%F0F+F/F0F0F0*&-F36%,&F1F,F,F0F?F0F0)F(,*\"\"*F0F1F,F*F-F+\"#
>F0F0*&)F(,*F@F0F*F-F+F;F1F,F0-F36%F>F6F0F0F0*&)F(,*F,F0F*F-F+F0F1F,F0
-F36%F5,&F1F0F+F/F0F0F0*&)F(,*F@F0F*F-F+!\"*F1F,F0-F36%F>,(F1F0F+F/!\"
\"F0F0F0F0*&F'F0FLF0Fen*&)F(,*F*F-F+FH\"\")F0F1F,F0-F36%F>,(F1F0F+F/\"
\"$F0F0F0Fen*&F8F0-F36%,&F^oF0F1F,,(F1F0F/F0F+F/F0F0Fen" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a15:= eG0(7,a14);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%$a15G,2*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#C\"#6\"\"\"%
\"nGF0F0-%#gpG6%,&F1F,F0F0,(F1F0\"\"%F0F+\"\"&F0F0F0*&-F36%,&F1F,F,F0F
6F0F0)F(,*\"\"*F0F1F,F*F-F+\"#>F0F0*&)F(,*F7F0F*F-F+F/F1F,F0-F36%F5,(F
1F0F,F0F+F8F0F0F0*&)F(,*F,F0F*F-F+F0F1F,F0-F36%,$F1F,,&F1F0F+F8F0F0F0*
&)F(,*F7F0F*F-F+!\"*F1F,F0-F36%F5,(F1F0F+F8!\"\"F0F0F0F0*&)F(,*F*F-F+F
?F7F0F1F,F0-F36%FL,(F1F0F0F0F+F8F0F0FU*&)F(,*F*F-F+F@\"\")F0F1F,F0-F36
%F5,(F1F0F+F8\"\"$F0F0F0FU*&F'F0-F36%,&F]oF0F1F,,(F1F0F8F0F+F8F0F0FU" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a16:= eG0(8,a15);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a16G,0*&)%\"qG,**$%\"jG\"\"#\"#:F+
\"#C\"#6\"\"\"%\"nGF0F0-%#gpG6%,&F1F,F0F0,(F1F0\"\"%F0F+\"\"&F0F0F0*&)
F(,*F7F0F*F-F+F/F1F,F0-F36%F5,(F1F0F,F0F+F8F0F0F0*&)F(,*F,F0F*F-F+F0F1
F,F0-F36%,$F1F,,&F1F0F+F8F0F0F0*&)F(,*F7F0F*F-F+!\"*F1F,F0-F36%F5,(F1F
0F+F8!\"\"F0F0F0F0*&)F(,*F*F-F+\"\"*F7F0F1F,F0-F36%FD,(F1F0F0F0F+F8F0F
0FM*&)F(,*F*F-F+\"#>\"\")F0F1F,F0-F36%F5,(F1F0F+F8\"\"$F0F0F0FM*&F'F0-
F36%,&F1F,F,F0,(F1F0F8F0F+F8F0F0FM" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a17:= eG1(7,a16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a17G,.*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,
&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$F1F.,&
F1F+F-F7F+F+F+*&)F(,*F*F+F,F/F-!\"*F1F.F+-F36%F5,(F1F+F-F7!\"\"F+F+F+F
+*&)F(,*F,F/F-\"\"*F*F+F1F.F+-F36%F=,(F1F+F+F+F-F7F+F+FF*&)F(,*F,F/F-
\"#>\"\")F+F1F.F+-F36%F5,(F1F+F-F7\"\"$F+F+F+FF*&)F(,*F,F/F-\"#H\"#;F+
F1F.F+-F36%F5,(F1F+F7F+F-F7F+F+FF" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a18:= negate(3,a17);" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$a18G,.*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG
6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$F1F
.,&F1F+F-F7F+F+F+*&)F(,*F,F/F-\"\"*F*F+F1F.F+-F36%F5,(F1F+F-!\"&!\"\"F
+F+F+F+*&F@F+-F36%F=,(F1F+F+F+F-F7F+F+FG*&)F(,*F,F/F-\"#>\"\")F+F1F.F+
-F36%F5,(F1F+F-F7\"\"$F+F+F+FG*&)F(,*F,F/F-\"#H\"#;F+F1F.F+-F36%F5,(F1
F+F7F+F-F7F+F+FG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a19:= g
psym(3,a18);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a19G,.*&)%\"qG,*\"
\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-
\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$F1F.,&F1F+F-F7F+F+F+*&)F(,*
F,F/F-\"\"*F*F+F1F.F+F2F+F+*&F@F+-F36%F=,(F1F+F+F+F-F7F+F+!\"\"*&)F(,*
F,F/F-\"#>\"\")F+F1F.F+-F36%F5,(F1F+F-F7\"\"$F+F+F+FG*&)F(,*F,F/F-\"#H
\"#;F+F1F.F+-F36%F5,(F1F+F7F+F-F7F+F+FG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "a20:= eG1(3,a19);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%$a20G,,*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,
&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$F1F.,&
F1F+F-F7F+F+F+*&)F(,*F,F/F-\"#9\"\"'F+F1\"\"$F+-F36%F=F6F+F+F+*&)F(,*F
,F/F-\"#>\"\")F+F1F.F+-F36%F5,(F1F+F-F7FDF+F+F+!\"\"*&)F(,*F,F/F-\"#H
\"#;F+F1F.F+-F36%F5,(F1F+F7F+F-F7F+F+FO" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "a21:= shiftdown(5,a20);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%$a21G,,*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#
gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$
F1F.,&F1F+F-F7F+F+F+*&)F(,*F,F/F-\"#9\"\"'F+F1\"\"$F+-F36%F=F6F+F+F+*&
)F(,*F,F/F-\"#>\"\")F+F1F.F+-F36%F5,(F1F+F-F7FDF+F+F+!\"\"*&)F(,*F,F/F
-FOF.F+F1F.F+-F36%F5F>F+F+FO" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 23 "a22:= shiftdown(4,a21);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a2
2G,,*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,&F1F.
F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$F1F.,&F1F+F
-F7F+F+F+*&)F(,*F,F/F-\"#9\"\"'F+F1\"\"$F+-F36%F=F6F+F+F+*&)F(,*F,F/F-
!#6F*F+F1F.F+-F36%F5,(F1F+F-F7!\"#F+F+F+!\"\"*&)F(,*F,F/F-FOF.F+F1F.F+
-F36%F5F>F+F+FO" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a23:= ne
gate(5,a22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a23G,,*&)%\"qG,*\"
\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-
\"\"&F+F+F+*&)F(,*F.F+F,F/F-F+F1F.F+-F36%,$F1F.,&F1F+F-F7F+F+F+*&)F(,*
F,F/F-\"#9\"\"'F+F1\"\"$F+-F36%F=F6F+F+F+*&)F(,*F,F/F-!#6F*F+F1F.F+-F3
6%F5,(F1F+F-F7!\"#F+F+F+!\"\"*&F9F+-F36%F5,&F1F+F-!\"&F+F+FO" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a24:= gpsym(5,a23);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a24G,,*&)%\"qG,*\"\"%\"\"\"*$%\"jG
\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(
,*F.F+F,F/F-F+F1F.F+-F36%,$F1F.,&F1F+F-F7F+F+F+*&)F(,*F,F/F-\"#9\"\"'F
+F1\"\"$F+-F36%F=F6F+F+F+*&)F(,*F,F/F-!#6F*F+F1F.F+-F36%F5,(F1F+F-F7!
\"#F+F+F+!\"\"*&F9F+-F36%F5,(F1F+F+F+F-F7F+F+FO" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "a25:= eG1(5,a24);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a25G,**&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-\"#6%\"
nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F,F/F-\"#9\"\"'F
+F1\"\"$F+-F36%,$F1F.F6F+F+F+*&)F(,*F,F/F-!#6F*F+F1F.F+-F36%F5,(F1F+F-
F7!\"#F+F+F+!\"\"*&)F(,*F=F+F,F/F-F<F1F=F+-F36%F@,(F1F+F+F+F-F7F+F+FI
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a26:= negate(3,a25);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a26G,**&)%\"qG,*\"\"%\"\"\"*$%\"jG
\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(
,*F,F/F-\"#9\"\"'F+F1\"\"$F+-F36%,$F1F.F6F+F+F+*&F'F+-F36%F5,(F1F+F-!
\"&!\"#F+F+F+!\"\"*&)F(,*F=F+F,F/F-F<F1F=F+-F36%F@,(F1F+F+F+F-F7F+F+FG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a27:= gpsym(3,a26);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a27G,**&)%\"qG,*\"\"%\"\"\"*$%\"jG
\"\"#\"#:F-\"#6%\"nGF.F+-%#gpG6%,&F1F.F+F+,(F1F+F.F+F-\"\"&F+F+F+*&)F(
,*F,F/F-\"#9\"\"'F+F1\"\"$F+-F36%,$F1F.F6F+F+F+*&F'F+-F36%F5,(F1F+F-F7
F=F+F+F+!\"\"*&)F(,*F=F+F,F/F-F<F1F=F+-F36%F@,(F1F+F+F+F-F7F+F+FE" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a28:= eG0(1,a27);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$a28G,(*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"
#:F-\"#6%\"nGF.F+-%#gpG6%,$F1F.,(F1F+F.F+F-\"\"&F+F+F+*&)F(,*F,F/F-\"#
9\"\"'F+F1\"\"$F+F2F+F+*&F'F+-F36%,&F1F.F+F+,(F1F+F-F7F=F+F+F+!\"\"" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a29:= eG1(3,a28);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a29G,&*&)%\"qG,**$%\"jG\"\"#\"#:F+
\"#9\"\"'\"\"\"%\"nG\"\"$F0-%#gpG6%,$F1F,,(F1F0F,F0F+\"\"&F0F0F0*&)F(,
*\"\"(F0F*F-F+\"#;F1F2F0-F46%F6,(F1F0F+F8F2F0F0F0!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a30:= shiftdown(2,a29);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$a30G,&*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#9\"
\"'\"\"\"%\"nG\"\"$F0-%#gpG6%,$F1F,,(F1F0F,F0F+\"\"&F0F0F0*&)F(,*F/F0F
*F-F+!#9F1F2F0-F46%F6,(F1F0F+F8!\"#F0F0F0!\"\"" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 20 "a31:= negate(2,a30);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$a31G,&*&)%\"qG,**$%\"jG\"\"#\"#:F+\"#9\"\"'\"\"\"%\"
nG\"\"$F0-%#gpG6%,$F1F,,(F1F0F,F0F+\"\"&F0F0F0*&F'F0-F46%F6,(F1F0F+!\"
&!\"#F0F0F0!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a32:= g
psym(2,a31);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a32G\"\"!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }