RosettaCodeData/Task/Tokenize-a-string-with-escaping/PicoLisp/tokenize-a-string-with-escaping-1.l

(de tokenize (Str Sep Esc)
   (split
      (make
         (for (L (chop Str)  L)
            (let C (pop 'L)
               (cond
                  ((= C Esc) (link (pop 'L)))
                  ((= C Sep) (link 0))
                  (T (link C)) ) ) ) )
      0 ) )