P14

(de dupli (Lst)
   (mapcan list Lst Lst) )

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

10jul10

abu