read `ResPerms.txt`:

K:=10:
N:=100:

for s from 1 to K do
print(`The first`, N, `terms of the sequence enumerating permutations of length n such that pi[i+1]-pi[i] is never equal to`, s, `are  `):

print(``):
print([seq(U1sF(s,i),i=1..N)]):
print(``):
od:

print(``):
print(`This took`, time(), `seconds. `):

quit: