在压缩之前，如何从包含两个列表的元组中提取两个列表？(使用OCaml)

let extract_lists tuple =
  match tuple with
  | (list1, list2) -> (list1, list2)
  | _ -> ([], [])  (* 处理元组不符合要求的情况 *)

let tuple = ([1; 2; 3], [4; 5; 6])
let (list1, list2) = extract_lists tuple