read `ResPerms.txt`:

K:=56:



print(`The first`, K, `terms of the sequence enumerating permutations of length n such that pi[i+3]-pi[i] is never 3 are`):
print(``):
gu:=[seq(Urr(3,i),i=1..K)]:
print(``):
lprint(gu):
print(``):
print(`------------------------`):
print(``):
print(`This took `, time(), `second `):

quit: