read `ResPerms.txt`:

K:=50:



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

quit: