1 XS=4!1!2!3!5!NIL
10 DEFUN K(P,X)=X<P
20 NXS=FILTER(K<~HEAD XS,XS)
30 PRINT NXS