如何在F#中编写类似ZipN的函数？

let zipN lists =
    let rec zipNRec lists acc =
        match lists with
        | [] -> List.rev acc
        | (h::t)::rest -> zipNRec rest ((h::t)::acc)
        | _ -> failwith "Unexpected input"
    zipNRec lists []

[[1; 2; 3]; [4; 5; 6]; [7; 8; 9]]

[[1; 4; 7]; [2; 5; 8]; [3; 6; 9]]