{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 17 "########## 3.99-t" }
}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 70 "op1:= annihiloper( q^(j^2+j)/qfac(q,q^2,j)/ spqfac(q^
2,q^2,j),0,back);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op1G,(\"\"\"F&
*&,(F&F&%\"qGF&)F),$%\"nG\"\"#F&F&%\"NG!\"\"F/*&F)F&F.!\"#F&" }}}
{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 118 "A1:= applyshiftop( op1, q^(10*j^2 +   j     ) * T1(n
+1, 5*j    , 1)\n  +  q^(10*j^2 + 11*j + 3) * T1(n+1, 5*j + 3, 1));" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A1G,6*&)%\"qG,(\"\"\"F**$%\"jG\"\"
#\"#5F,F*F*-%#T1G6%,&%\"nGF*!\"\"F*,$F,\"\"&F*F*F**&)F(,(F+F.F,\"#6\"
\"%F*F*-F06%F2,&F,F6\"\"$F*F*F*F**&)F(,&F+F.F,F*F*-F06%F3F5F*F*F4*&)F(
,(F+F.F,F:F?F*F*-F06%F3F>F*F*F4*&F'F*FCF*F4*&FHF*F8F*F4*&)F(,(F3F-F+F.
F,F*F*FCF*F4*&FHF*)F(,*F3F-F+F.F,F:F?F*F*F4*&FAF*-F06%,&F3F*F*F*F5F*F*
F**&FFF*-F06%FUF>F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A2:= eT1(10,A1);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A2G,6*&)%\"qG,(\"\"\"F**$%\"jG\"\"#
\"#5F,F*F*-%#T1G6%,&%\"nGF*!\"\"F*,$F,\"\"&F*F*F**&)F(,(F+F.F,\"#6\"\"
%F*F*-F06%F2,&F,F6\"\"$F*F*F*F**&)F(,&F+F.F,F*F*-F06%F3F5F*F*F4*&F'F*F
CF*F4*&-F06%F3F>F*F*F8F*F4*&)F(,(F3F-F+F.F,F*F*FCF*F4*&FGF*)F(,*F3F-F+
F.F,F:F?F*F*F4*&FAF*-F06%,&F3F*F*F*F5F*F*F**&)F(,*F+F.F,\"#;\"\"(F*F3F
*F*-%#T0G6%F3,&F,F6F;F*F*F*F**&)F(,*F+F.F,\"\"'F*F*F3F*F*-FY6%F3,&F,F6
F-F*F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A3:=eT1(8,A2)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A3G,6*&)%\"qG,(\"\"\"F**$%\"jG
\"\"#\"#5F,F*F*-%#T1G6%,&%\"nGF*!\"\"F*,$F,\"\"&F*F*F**&)F(,(F+F.F,\"#
6\"\"%F*F*-F06%F2,&F,F6\"\"$F*F*F*F**&F'F*-F06%F3F5F*F*F4*&-F06%F3F>F*
F*F8F*F4*&)F(,(F3F-F+F.F,F*F*FAF*F4*&FDF*)F(,*F3F-F+F.F,F:F?F*F*F4*&)F
(,*F+F.F,\"\"'F*F*F3F*F*-%#T0G6%F3,&F,F6F*F*F*F*F**&)F(,*F+F.F,!\"%F3F
*F*F*F*-FQ6%F3,&F,F6F4F*F*F*F**&)F(,*F+F.F,\"#;\"\"(F*F3F*F*-FQ6%F3,&F
,F6F;F*F*F*F**&FMF*-FQ6%F3,&F,F6F-F*F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 14 "A4:=eT1(3,A3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%#A4G,6*&)%\"qG,(*$%\"jG\"\"#\"#5F+\"#6\"\"%\"\"\"F0-%#T1G6%,&%\"nGF0!
\"\"F0,&F+\"\"&\"\"$F0F0F0F0*&)F(,*F*F-F+\"\"'F0F0F5F0F0-%#T0G6%F4,&F+
F8F0F0F0F0F6*&)F(,*F*F-F+!\"%F5F0F0F0F0-F?6%F4,&F+F8F6F0F0F0F6*&-F26%F
5F7F0F0F'F0F6*&)F(,(F5F,F*F-F+F0F0-F26%F5,$F+F8F0F0F6*&FJF0)F(,*F5F,F*
F-F+F.F9F0F0F6*&F;F0-F?6%F5FAF0F0F0*&FCF0-F?6%F5FHF0F0F0*&)F(,*F*F-F+
\"#;\"\"(F0F5F0F0-F?6%F5,&F+F8F/F0F0F0F0*&F;F0-F?6%F5,&F+F8F,F0F0F0F0
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A5:= eT1(4,A4);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A5G,6*&)%\"qG,**$%\"jG\"\"#\"#5F+\"
\"'\"\"\"F/%\"nGF/F/-%#T0G6%,&F0F/!\"\"F/,&F+\"\"&F/F/F/F/F5*&)F(,*F*F
-F+!\"%F0F/F/F/F/-F26%F4,&F+F7F5F/F/F/F5*&)F(,*F*F-F+\"#;\"\"(F/F0F/F/
-F26%F4,&F+F7\"\"%F/F/F/F5*&F'F/-F26%F4,&F+F7F,F/F/F/F5*&)F(,(F0F,F*F-
F+F/F/-%#T1G6%F0,$F+F7F/F/F5*&-FP6%F0,&F+F7\"\"$F/F/F/)F(,*F0F,F*F-F+
\"#6FWF/F/F5*&F'F/-F26%F0F6F/F/F/*&F9F/-F26%F0F>F/F/F/*&F@F/-F26%F0FFF
/F/F/*&F'F/-F26%F0FKF/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A6:=shiftdown(9,A5);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A6G,2*&)%\"qG,**$%\"jG\"\"#\"#5
F+\"\"'\"\"\"F/%\"nGF/F/-%#T0G6%,&F0F/!\"\"F/,&F+\"\"&F/F/F/F/F5*&)F(,
*F*F-F+!\"%F0F/F/F/F/-F26%F4,&F+F7F5F/F/F/F5*&)F(,*F*F-F+\"#;\"\"(F/F0
F/F/-F26%F4,&F+F7\"\"%F/F/F/F5*&F'F/-F26%F4,&F+F7F,F/F/F/F5*&)F(,(F0F,
F*F-F+F/F/-%#T1G6%F0,$F+F7F/F/F5*&-FP6%F0,&F+F7\"\"$F/F/F/)F(,*F0F,F*F
-F+\"#6FWF/F/F5*&F'F/-F26%F0F6F/F/F/*&F'F/-F26%F0FKF/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A7:= sym(7,A6);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#A7G,2*&)%\"qG,**$%\"jG\"\"#\"#5F+\"\"'\"\"\"F/%\"n
GF/F/-%#T0G6%,&F0F/!\"\"F/,&F+\"\"&F/F/F/F/F5*&)F(,*F*F-F+!\"%F0F/F/F/
F/-F26%F4,&F+F7F5F/F/F/F5*&)F(,*F*F-F+\"#;\"\"(F/F0F/F/-F26%F4,&F+F7\"
\"%F/F/F/F5*&F'F/-F26%F4,&F+F7F,F/F/F/F5*&)F(,(F0F,F*F-F+F/F/-%#T1G6%F
0,$F+F7F/F/F5*&-FP6%F0,&F+F7\"\"$F/F/F/)F(,*F0F,F*F-F+\"#6FWF/F/F5*&F'
F/-F26%F0,&F+!\"&F5F/F/F/F/*&F'F/-F26%F0FKF/F/F/" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 15 "A8:= eT0(7,A7);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#A8G,6*&)%\"qG,**$%\"jG\"\"#\"#5F+\"\"'\"\"\"F/%\"nGF/F/-%#T0G
6%,&F0F/!\"\"F/,&F+\"\"&F/F/F/F/F5*&)F(,*F*F-F+!\"%F0F/F/F/F/-F26%F4,&
F+F7F5F/F/F/F5*&)F(,*F*F-F+\"#;\"\"(F/F0F/F/-F26%F4,&F+F7\"\"%F/F/F/F5
*&F'F/-F26%F4,&F+F7F,F/F/F/F5*&)F(,(F0F,F*F-F+F/F/-%#T1G6%F0,$F+F7F/F/
F5*&-FP6%F0,&F+F7\"\"$F/F/F/)F(,*F0F,F*F-F+\"#6FWF/F/F5*&F'F/-F26%F4,&
F+!\"&!\"#F/F/F/F/*&FMF/-FP6%F4,&F+FinF5F/F/F/F/*&)F(,*F*F-F+F;F5F/F0F
WF/-F26%F4,$F+FinF/F/F/*&F'F/-F26%F0FKF/F/F/" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 14 "A9:=sym(7,A8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%#A9G,2*&)%\"qG,**$%\"jG\"\"#\"#5F+\"\"'\"\"\"F/%\"nGF/F/-%#T0G6%,&
F0F/!\"\"F/,&F+\"\"&F/F/F/F/F5*&)F(,*F*F-F+!\"%F0F/F/F/F/-F26%F4,&F+F7
F5F/F/F/F5*&)F(,*F*F-F+\"#;\"\"(F/F0F/F/-F26%F4,&F+F7\"\"%F/F/F/F5*&)F
(,(F0F,F*F-F+F/F/-%#T1G6%F0,$F+F7F/F/F5*&-FL6%F0,&F+F7\"\"$F/F/F/)F(,*
F0F,F*F-F+\"#6FSF/F/F5*&FIF/-FL6%F4,&F+!\"&F5F/F/F/F/*&)F(,*F*F-F+F;F5
F/F0FSF/-F26%F4,$F+FenF/F/F/*&F'F/-F26%F0,&F+F7F,F/F/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A10:= eT0(8,A9);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A10G,2*&)%\"qG,**$%\"jG\"\"#\"#5F+!\"%%\"nG\"\"\"F
0F0F0-%#T0G6%,&F/F0!\"\"F0,&F+\"\"&F5F0F0F0F5*&)F(,*F*F-F+\"#;\"\"(F0F
/F0F0-F26%F4,&F+F7\"\"%F0F0F0F5*&)F(,(F/F,F*F-F+F0F0-%#T1G6%F/,$F+F7F0
F0F5*&-FE6%F/,&F+F7\"\"$F0F0F0)F(,*F/F,F*F-F+\"#6FLF0F0F5*&FBF0-FE6%F4
,&F+!\"&F5F0F0F0F0*&)F(,*F*F-F+F.F5F0F/FLF0-F26%F4,$F+FTF0F0F0*&FMF0-F
E6%F4,&F+F7F,F0F0F0F0*&)F(,*F*F-F+F;F7F0F/FLF0-F26%F4FKF0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A11:= eT1(3,A10);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A11G,6*&)%\"qG,**$%\"jG\"\"#\"#5F+!\"%%\"
nG\"\"\"F0F0F0-%#T0G6%,&F/F0!\"\"F0,&F+\"\"&F5F0F0F0F5*&)F(,*F*F-F+\"#
;\"\"(F0F/F0F0-F26%F4,&F+F7\"\"%F0F0F0F5*&)F(,(F/F,F*F-F+F0F0-%#T1G6%F
4,$F+F7F0F0F5*&)F(,(F/\"\"$F*F-F+\"\"'F0-F26%F4,&F+F7F0F0F0F0F5*&)F(,(
F/FKF*F-F+F.F0F1F0F5*&-FE6%F/,&F+F7FKF0F0F0)F(,*F/F,F*F-F+\"#6FKF0F0F5
*&FBF0-FE6%F4,&F+!\"&F5F0F0F0F0*&)F(,*F*F-F+F.F5F0F/FKF0-F26%F4,$F+Fhn
F0F0F0*&FWF0-FE6%F4,&F+F7F,F0F0F0F0*&)F(,*F*F-F+F;F7F0F/FKF0-F26%F4FVF
0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A12:=sym(7,A11);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A12G,6*&)%\"qG,**$%\"jG\"\"#\"#5F
+!\"%%\"nG\"\"\"F0F0F0-%#T0G6%,&F/F0!\"\"F0,&F+\"\"&F5F0F0F0F5*&)F(,*F
*F-F+\"#;\"\"(F0F/F0F0-F26%F4,&F+F7\"\"%F0F0F0F5*&)F(,(F/F,F*F-F+F0F0-
%#T1G6%F4,$F+F7F0F0F5*&)F(,(F/\"\"$F*F-F+\"\"'F0-F26%F4,&F+F7F0F0F0F0F
5*&)F(,(F/FKF*F-F+F.F0F1F0F5*&-FE6%F/,&F+F7FKF0F0F0)F(,*F/F,F*F-F+\"#6
FKF0F0F5*&FBF0-FEFNF0F0*&)F(,*F*F-F+F.F5F0F/FKF0-F26%F4,$F+!\"&F0F0F0*
&FWF0-FE6%F4,&F+F7F,F0F0F0F0*&)F(,*F*F-F+F;F7F0F/FKF0-F26%F4FVF0F0F0" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A13:=e0(3,A12);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$A13G,2*&)%\"qG,**$%\"jG\"\"#\"#5F+!\"%%\"
nG\"\"\"F0F0F0-%#T0G6%,&F/F0!\"\"F0,&F+\"\"&F5F0F0F0F5*&)F(,*F*F-F+\"#
;\"\"(F0F/F0F0-F26%F4,&F+F7\"\"%F0F0F0F5*&)F(,*F*F-F+F.F5F0F/\"\"$F0-F
26%F4,$F+F7F0F0F5*&)F(,(F/FDF*F-F+F.F0F1F0F5*&-%#T1G6%F/,&F+F7FDF0F0F0
)F(,*F/F,F*F-F+\"#6FDF0F0F5*&FBF0-F26%F4,$F+!\"&F0F0F0*&FPF0-FM6%F4,&F
+F7F,F0F0F0F0*&)F(,*F*F-F+F;F7F0F/FDF0-F26%F4FOF0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A14:=sym(6,A13);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%$A14G,.*&)%\"qG,**$%\"jG\"\"#\"#5F+!\"%%\"nG\"\"\"F
0F0F0-%#T0G6%,&F/F0!\"\"F0,&F+\"\"&F5F0F0F0F5*&)F(,*F*F-F+\"#;\"\"(F0F
/F0F0-F26%F4,&F+F7\"\"%F0F0F0F5*&)F(,(F/\"\"$F*F-F+F.F0F1F0F5*&-%#T1G6
%F/,&F+F7FDF0F0F0)F(,*F/F,F*F-F+\"#6FDF0F0F5*&FJF0-FG6%F4,&F+F7F,F0F0F
0F0*&)F(,*F*F-F+F;F7F0F/FDF0-F26%F4FIF0F0F0" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 16 "A15:=eT1(4,A14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%$A15G,2*&)%\"qG,**$%\"jG\"\"#\"#5F+!\"%%\"nG\"\"\"F0F0F0-%#T0G6%,&
F/F0!\"\"F0,&F+\"\"&F5F0F0F0F5*&)F(,*F*F-F+\"#;\"\"(F0F/F0F0-F26%F4,&F
+F7\"\"%F0F0F0F5*&)F(,(F/\"\"$F*F-F+F.F0F1F0F5*&)F(,*F/F,F*F-F+\"#6FDF
0F0-%#T1G6%F4,&F+F7FDF0F0F0F5*&)F(,*F/FDF*F-F+F;\"\"'F0F0F=F0F5*&)F(,(
F/FDF*F-F+FPF0-F26%F4,&F+F7F,F0F0F0F5*&FFF0-FJFUF0F0*&)F(,*F*F-F+F;F7F
0F/FDF0-F2FKF0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A16:=e0
(7,A15);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A16G,**&)%\"qG,**$%\"jG
\"\"#\"#5F+!\"%%\"nG\"\"\"F0F0F0-%#T0G6%,&F/F0!\"\"F0,&F+\"\"&F5F0F0F0
F5*&)F(,*F*F-F+\"#;\"\"(F0F/F0F0-F26%F4,&F+F7\"\"%F0F0F0F5*&)F(,(F/\"
\"$F*F-F+F.F0F1F0F5*&)F(,*F/FDF*F-F+F;\"\"'F0F0F=F0F5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "A17:= shiftdown(2,A16);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$A17G,&*&)%\"qG,(%\"nG\"\"$*$%\"jG\"\"#\"#
5F-!\"%\"\"\"-%#T0G6%,&F*F1!\"\"F1,&F-\"\"&F6F1F1F1F6*&)F(,*F*F+F,F/F-
\"#;\"\"'F1F1-F36%F5,&F-F8\"\"%F1F1F1F6" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "A18:= shiftdown (2,A17);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$A18G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}}{MARK "3 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }