split function (See related posts)

    ; Gabriele's, with Andreas's ANY mod.
    split: func [string delim /local result data] [
        result: copy []
        parse/all string [
            ; The ANY bit ensures we don't insert NONE values.
            any [copy data to delim (insert tail result any [data copy ""]) delim]
            copy data to end (insert tail result any [data copy ""])
        ]
        result
    ]