P15

(de repli (Lst N)
   (mapcan '((X) (need N NIL X)) Lst) )

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

10jul10

abu