{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 10 "##### 3.28" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "op28:= annihiloper( q^(j^2+
j) * qfac(-q^2,q^2,j) / qfac(q,q^2,j+1) / spqfac(q^2,q^2,j) , 0, forwa
rd);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%op28G,**$%\"NG\"\"#\"\"\"*&
,(!\"\"F))%\"qG,&%\"nGF(\"\"%F)F,F.F,F)F'F)F)F.F)F-F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "a1:= applyshiftop(op28, q^(3*j^2 + \+
2*j) * T1(n+1,3*j+1,1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,.*&
)%\"qG,(*$%\"jG\"\"#\"\"$F+F,\"\"\"F.F.-%#T1G6%,&%\"nGF.F.F.,&F+F-F.F.
F.F.F.*&)F(,*F*F-F+F,F3F,\"\"%F.F.F/F.!\"\"*&F'F.-F06%,&F3F.F,F.F4F.F.
F9*&F6F.F;F.F9*&)F(,&F*F-F+F,F.F;F.F9*&F@F.-F06%,&F3F.F-F.F4F.F.F." }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eT1(3,a1);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#a2G,.*&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nG
F,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+\"\"&
F/F0F.F0F0-%#T0G6%F4,&F+F-F,F0F0F0F6*&)F(,*F*F-F+F6F,F0F.F0F0-F<6%F4,$
F+F-F0F0F6*&F'F0-F26%,&F.F0F,F0F5F0F0F6*&)F(,&F*F-F+F,F0FFF0F6*&FJF0-F
26%,&F.F0F-F0F5F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3
:= eT1(6,a2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,.*&)%\"qG,**$%
\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0
!\"\"*&)F(,*F*F-F+\"\"&F/F0F.F0F0-%#T0G6%F4,&F+F-F,F0F0F0F6*&)F(,*F*F-
F+F6F,F0F.F0F0-F<6%F4,$F+F-F0F0F6*&F'F0-F26%,&F.F0F,F0F5F0F0F6*&F8F0-F
<6%FHF>F0F0F0*&F@F0-F<6%FHFDF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "a4:= shiftdown(2,a3);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#a4G,.*&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"\"\"F0-%#T1
G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+F6F,F0F.F0F0-%#T0G6%F4,&F
+F-F6F0F0F0F6*&F8F0-F;6%F4,$F+F-F0F0F6*&F'F0-F26%,&F.F0F,F0F5F0F0F6*&)
F(,*F*F-F+\"\"&F/F0F.F0F0-F;6%FE,&F+F-F,F0F0F0F0*&F8F0-F;6%FEFAF0F0F0
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a5:= shiftdown(5,a4);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,.*&)%\"qG,**$%\"jG\"\"#\"\"$F
+F,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F
-F+F6F,F0F.F0F0-%#T0G6%F4,&F+F-F6F0F0F0F6*&F8F0-F;6%F4,$F+F-F0F0F6*&F'
F0-F26%,&F.F0F,F0F5F0F0F6*&F8F0-F;6%FEF=F0F0F0*&F8F0-F;6%FEFAF0F0F0" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a6:= sym(5,a5);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#a6G,.*&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nG
F,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+F6F,F
0F.F0F0-%#T0G6%F4,&F+F-F6F0F0F0F6*&F8F0-F;6%F4,$F+F-F0F0F6*&F'F0-F26%,
&F.F0F,F0F5F0F0F6*&F8F0-F;6%FE,&F+!\"$F0F0F0F0F0*&F8F0-F;6%FEFAF0F0F0
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a7:= eT0(5,a6);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a7G,2*&)%\"qG,**$%\"jG\"\"#\"\"$F+F
,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F
+F6F,F0F.F0F0-%#T0G6%F4,&F+F-F6F0F0F0F6*&F8F0-F;6%F4,$F+F-F0F0F6*&F'F0
-F26%,&F.F0F,F0F5F0F0F6*&F8F0-F;6%F4,$F+!\"$F0F0F0*&)F(,*F*F-F+!\"%\"
\"&F0F.F,F0-F26%F4,&F+FJF0F0F0F0F0*&)F(,*F*F-F+!\"(\"\")F0F.F-F0-F;6%F
4,&F+FJF,F0F0F0F0*&F8F0-F;6%FEFAF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a8:= sym(5,a7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a8G,.*&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F.F
0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+F6F,F0F.F0F0-%#T0G6%F4,&F+F-F6F0F
0F0F6*&F'F0-F26%,&F.F0F,F0F5F0F0F6*&)F(,*F*F-F+!\"%\"\"&F0F.F,F0-F26%F
4,&F+!\"$F0F0F0F0F0*&)F(,*F*F-F+!\"(\"\")F0F.F-F0-F;6%F4,&F+FJF,F0F0F0
F0*&F8F0-F;6%FA,$F+F-F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "a9:= eT0(6,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,.*&)%\"q
G,**$%\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0
F0F0F0!\"\"*&F'F0-F26%,&F.F0F,F0F5F0F0F6*&)F(,*F*F-F+!\"%\"\"&F0F.F,F0
-F26%F4,&F+!\"$F0F0F0F0F0*&)F(,*F*F-F+!\"(\"\")F0F.F-F0-%#T0G6%F4,&F+F
CF,F0F0F0F0*&F'F0-F26%F4,$F+F-F0F0F0*&)F(,*F*F-F+F?\"\"'F0F.F-F0-FJF3F
0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a10:= eT1(2,a9);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a10G,0*&)%\"qG,**$%\"jG\"\"#\"\"$F+
F,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"#*&)F(,*F*F-F
+\"\"&F.F-\"\"(F0F0-%#T0G6%F4,&F+F-F,F0F0F0!\"\"*&)F(,*F*F-F+F@F.F-F:F
0F0-F=6%F4,$F+F-F0F0F@*&)F(,*F*F-F+!\"%F:F0F.F,F0-F26%F4,&F+!\"$F0F0F0
F0F0*&)F(,*F*F-F+!\"(\"\")F0F.F-F0-F=6%F4,&F+FNF,F0F0F0F0*&F'F0-F2FEF0
F0*&)F(,*F*F-F+F:\"\"'F0F.F-F0-F=F3F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "a11:= e0(6,a10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%$a11G,**&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"\"\"F0-%#T1G6%,&F
.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+\"\"&F.F-\"\"(F0F0-%#T0G6%F4,&F
+F-F,F0F0F0F6*&)F(,*F*F-F+!\"%F:F0F.F,F0-F26%F4,&F+!\"$F0F0F0F0F0*&)F(
,*F*F-F+!\"(\"\")F0F.F-F0-F=6%F4,&F+FGF,F0F0F0F0" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 21 "a12:= shiftup(3,a11);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a12G,**&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"
\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+\"\"&F.F-\"\"(
F0F0-%#T0G6%F4,&F+F-F,F0F0F0F6*&F'F0-F26%F4,&F+!\"$!\"#F0F0F0F0*&)F(,*
F*F-F+!\"(\"\")F0F.F-F0-F=6%F4,&F+FDF,F0F0F0F0" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "a13:= sym(3,a12);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$a13G,**&)%\"qG,**$%\"jG\"\"#\"\"$F+F,%\"nGF,\"\"%\"
\"\"F0-%#T1G6%,&F.F0F0F0,&F+F-F0F0F0F0!\"\"*&)F(,*F*F-F+\"\"&F.F-\"\"(
F0F0-%#T0G6%F4,&F+F-F,F0F0F0F6*&F'F0-F2F>F0F0*&)F(,*F*F-F+!\"(\"\")F0F
.F-F0-F=6%F4,&F+!\"$F,F0F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "a14:= e0(1,a13);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a14G,&*
&)%\"qG,**$%\"jG\"\"#\"\"$F+!\"\"%\"nGF-\"\"%\"\"\"F1-%#T0G6%,&F/F1F1F
1,&F+F-F1F1F1F1F.*&)F(,*F*F-F+!\"(\"\")F1F/F-F1-F36%F5,&F+!\"$F,F1F1F1
F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "a15:= shiftup(2,a14);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a15G,&*&)%\"qG,**$%\"jG\"\"#\"
\"$F+!\"\"%\"nGF-\"\"%\"\"\"F1-%#T0G6%,&F/F1F1F1,&F+F-F1F1F1F1F.*&F'F1
-F36%F5,&F+!\"$F.F1F1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "a16:= sym(2,a15);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a16G\"\"!
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 10 }
{VIEWOPTS 1 1 0 1 1 1803 }