如何获得两个列表，每个列表包含F#记录的必需和可选属性的名称？

type MyRecord = { 
    RequiredProperty: string
    OptionalProperty: int option
}

let getRequiredProperties(record: MyRecord) =
    record.RequiredProperty

let getOptionalProperties(record: MyRecord) =
    match record.OptionalProperty with
    | Some _ -> "OptionalProperty"
    | None -> ""

let mutable requiredPropertiesList = []
let mutable optionalPropertiesList = []

let recordsList = [ { RequiredProperty = "Value1"; OptionalProperty = Some 2 }
                    { RequiredProperty = "Value2"; OptionalProperty = None }
                    { RequiredProperty = "Value3"; OptionalProperty = Some 4 } ]

for record in recordsList do
    requiredPropertiesList <- getRequiredProperties record :: requiredPropertiesList
    optionalPropertiesList <- getOptionalProperties record :: optionalPropertiesList

printfn "Required Properties: %A" requiredPropertiesList
printfn "Optional Properties: %A" optionalPropertiesList