Read rows from a multi-line string

splitrows.fs

open System.IO

let splitRows (s:string) = 
    new StringReader(s) 
    |> Seq.unfold (fun sr -> 
        match sr.ReadLine() with
        | null -> sr.Dispose(); None 
        | str -> Some(str, sr))
    |> Seq.toArray