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

(for (I . S) (tokenize "one\^|uno||three\^\^\^\^|four\^\^\^|\^cuatro|" "|" "\^")
   (prinl I ": " S) )