read `YoungT.txt`: N:=30: print(`-----------------------------------------`): print(`Starting 2 Dimensions `): print(`The first `, N, `terms starting at n=1 of the sequence enumerating words with 2n letters, where each letter occurs n times`): print(`such that no run is of length 1 is`): print(``): lprint(Fseq([{1},{1}],N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating Young tableaux os shape [n,n]`): print(`such that no run is of length 1 is`): print(``): lprint(Gseq([{1},{1}],N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating words with 2n letters, where each letter occurs n times`): print(`such all runs are odd is`): print(``): lprint(FseqR([2*r,2*r],r,N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating Young tableaux of shape [n,n]`): print(`such all runs are odd is`): print(``): lprint(GseqR([2*r,2*r],r,N)): print(``): print(`----------------------------`): print(`-----------------------------------------`): print(`Starting 3 Dimensions `): print(`The first `, N, `terms starting at n=1 of the sequence enumerating words with 3n letters, where each letter occurs n times`): print(`such that no run is of length 1 is`): print(``): lprint(Fseq([{1},{1},{1}],N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating Young tableaux os shape [n,n,n]`): print(`such that no run is of length 1 is`): print(``): lprint(Gseq([{1},{1},{1}],N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating words with 3n letters, where each letter occurs n times`): print(`such all runs are odd is`): print(``): lprint(FseqR([2*r,2*r,2*r],r,N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating Young tableaux of shape [n,n,n]`): print(`such all runs are odd is`): print(``): lprint(GseqR([2*r,2*r,2*r],r,N)): print(``): print(`----------------------------`): print(`-----------------------------------------`): print(`Starting 4 Dimensions `): print(`The first `, N, `terms starting at n=1 of the sequence enumerating words with 4n letters, where each letter occurs n times`): print(`such that no run is of length 1 is`): print(``): lprint(Fseq([{1},{1},{1},{1}],N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating Young tableaux os shape [n,n,n,n]`): print(`such that no run is of length 1 is`): print(``): lprint(Gseq([{1},{1},{1},{1}],N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating words with 4n letters, where each letter occurs n times`): print(`such all runs are odd is`): print(``): lprint(FseqR([2*r,2*r,2*r,2*r],r,N)): print(``): print(`----------------------------`): print(`The first `, N, `terms starting at n=1 of the sequence enumerating Young tableaux of shape [n,n,n,n]`): print(`such all runs are odd is`): print(``): lprint(GseqR([2*r,2*r,2*r,2*r],r,N)): print(``): print(`----------------------------`): quit: