(dolist(a(cdr(set'x(loop for i to 1e4 collect i))))(format(do`(x #1=(nthcdr(max(1- a)1)x)#1#)((not x)t)(pop(cdr x)))"~D "a))