read `ResPerms.txt`:

K:=40:



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

quit: