P16

(de drop (Lst N)
   (make
      (for (I . X) Lst
         (unless (=0 (% I N))
            (link X) ) ) ) )

http://picolisp.com/wiki/?99p16

11jul10

abu