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