load a CSV file (See related posts)

    read-csv: func [
        "Load and parse a delimited text file."
        file [file!]
        /with
            delimiter
        /local lines
    ][
        if not with [delimiter: ","]
        lines: read/lines file
        forall lines [
            change/only lines parse/all first lines delimiter
        ]
        ; head lines  ;<- needed for View < 1.3
    ]