如何在F#中计算n个序列的笛卡尔积？

let cartesianProductOfSeqs seqs =
    let rec cartesianProduct seqs acc =
        match seqs with
        | [] -> acc
        | seq::seqs ->
            seq
            |> Seq.collect (fun x -> cartesianProduct seqs acc |> Seq.map (fun xs -> x::xs))
            |> cartesianProduct seqs
    cartesianProduct seqs (Seq.singleton [])

let seq1 = [1; 2; 3]
let seq2 = ['a'; 'b'; 'c']
let seq3 = [true; false]

let result = cartesianProductOfSeqs [seq1; seq2; seq3]

for item in result do
    printfn "%A" item