Символьную строку в кортеж

type Group = { Name: string; Surname: string; BirthDate: string }
let mutable DataBase:Group list = [];

    let ReadDB() =
        use sr = new StreamReader("../../FSharpDB.txt")
        let db = sr.ReadToEnd()
        let source = db.Split([|' '|], StringSplitOptions.RemoveEmptyEntries) |> Array.toList
        let rec ConvertToGroup (listIn: string list) (grOut: Group list)=
// как я себе это представлял, всё неправильно
            match listIn with
            | [name, surname, birth] :: tail -> 
                grOut :: { Name = name; Surname = surname; BirthDate = birth }
                ConvertToGroup tail grOut
            | _ -> []
        ConvertToGroup source DataBase

    let ReadDB() =
        let db = System.IO.File.ReadAllLines("../../FSharpDB.txt") |> Array.toList
        let rec loop (xs : string list) acc = 
            match xs with
            | line :: t -> 
                match line.Split([|' '|], System.StringSplitOptions.RemoveEmptyEntries) with
                | [|name; surname; birth|] -> loop t ({ Name = name; Surname = surname; BirthDate = birth } :: acc)
                | _ -> loop t acc
            | [] -> acc
        loop db []

[|name; surname; birth|]

[name; surname; birth]

type Group = { Name: string; Surname: string; BirthDate: string }
 
//Класс для работы с БД
type DB_Engine(DB_path:string) =
 
    // считывание БД во внтреннее представление
    let ReadDB() =
        try
            let db = File.ReadAllLines("../../FSharpDB.txt") |> Array.toList
 
            let rec loop (xs : string list) acc =
                match xs with
                | line :: tail ->
                    match line.Split([|' '|], StringSplitOptions.RemoveEmptyEntries) with 
                    | [|name; surname; birth|] -> loop tail ({ Name = name; Surname = surname; BirthDate = birth} :: acc)
                    | _ -> loop tail acc
                | [] -> acc
            loop db []
        with 
            :? IO.FileNotFoundException -> []
        
    // внутреннее представление БД
    let mutable DataBase = ReadDB()  
 
    // Добавление записи в БД
    member __.InsertData (data:string) =
        match data.Split([|' '|], StringSplitOptions.RemoveEmptyEntries) with
        | [|name; surname; birth|] -> { Name = name; Surname = surname; BirthDate = birth} :: DataBase
        | _ -> failwith "Неверные данные" 
 
[<EntryPoint>]
let main argv = 
    let mutable path = "../../FSharpDB.txt"
    let db = DB_Engine(path)
 
    db.InsertData("Вася Пупкин 2000") // Данное выражение должно иметь тип "unit", а имеет тип "Group list". Используйте "ignore", чтобы отменить результат выражения, или же "let", чтобы привязать результат к имени
 
    Console.ReadKey()
    0 // возвращение целочисленного кода выхода

member __.InsertData (data:string) =
        match data.Split([|' '|], StringSplitOptions.RemoveEmptyEntries) with
        | [|name; surname; birth|] -> DataBase <- { Name = name; Surname = surname; BirthDate = birth} :: DataBase
        | _ -> failwith "Неверные данные"