read SymUGJ:
print(`This is a sample example for SymUGJ`):
print(`This is a simple example of an Umbral Scheme for`):
print(`for generating functions for enumerating words in {1,2,3}`):
print(`that avoid  any factor of the form`):
print(` 1^(a+1)2^(a+1)3^(a+1) , for all a>=0 `):
print(` and its five permutations, in other words you can't `):
print(` have 3 consecutive blocks of all 3 letters of the same length`):
ListSW:= [ [[[1,a+1],[2,a+1],[3,a+1]],[a]]]:
lu:=WtUmSc(ListSW,x,t,3):
print(`The Umbral Scheme is`):
print(YafeUmSc(lu,F,D));
print(`Using this Umbral Scheme, the first 30 terms of the`):
print(`generating function are`):
gu:=UGJseries(ListSW,3,30):
print(gu):
print(`The whole thing took`, time(), `minutes of CPU time `):
quit: