P20

(de remove-at (Lst N)
   (remove N Lst) )

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

10jul10    abu