Write TSV relatively regularly

Tsv.fs

module Csv

// Transliterated from https://stackoverflow.com/a/4685745/1924257

module private Internals =
    let quote = "\""
    let escapedQuote = "\\\""
    let delimiter = "\t"

    let escapedCharacters = ['\t'; '\n'] |> Set.ofList

    let escape (s: string) =
        let escaped = s.Replace(quote, escapedQuote)
        let asSet = escaped.ToCharArray() |> Set.ofSeq

        if (Set.intersect asSet escapedCharacters |> Set.isEmpty)
        then escaped
        else [quote; escaped; quote] |> String.concat ""


    let escapeRow (rows: string array) =
        rows
        |> Seq.map(escape)
        |> String.concat delimiter

open Internals

let write (xs: 'a seq) header (transform: 'a -> string array): string =
    let processedHeader = escapeRow header
    let escapedRows = xs |> Seq.map(transform >> escapeRow) |> List.ofSeq

    List.append [ processedHeader ] escapedRows
    |> String.concat "\n"