read `ResPerms.txt`: K:=50: 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(Vrr(4,i),i=1..K)]: print(``): lprint(gu): print(``): print(`------------------------`): print(``): print(`This took `, time(), `second `): quit: