P12

(de decode (Lst)
   (make
      (for X Lst
         (if (atom X)
            (link X)
            (do (car X) (link (cadr X))) ) ) ) )

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

10jul10

abu