P12

(de decode (Lst)
   (make
      (for X Lst
         (if (atom X)
            (link X)
            (do (car X) (link (cadr X))) ) ) ) )
http://picolisp.com/5000/!wiki?99p12TeX   PDF   10jul10   abu