read `ResPerms.txt`:

K:=50:


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

quit: