let FlipSeq (rows: (_ []) []) =
    let len = Array.min (Array.map Array.length rows)
    [|0 .. len - 1|]
    |> Array.map (fun i ->
        rows
        |> Array.map (fun xs -> Array.get xs i)
    )