如何在Ocaml中打印不同类型的列表？

let rec print_int_list lst =
  match lst with
  | [] -> ()
  | hd::tl -> print_int hd; print_string " "; print_int_list tl

let int_list = [1; 2; 3; 4; 5]
print_int_list int_list

type person = { name : string; age : int }

let print_person p =
  print_string ("Name: " ^ p.name ^ ", Age: " ^ string_of_int p.age)

let rec print_person_list lst =
  match lst with
  | [] -> ()
  | hd::tl -> print_person hd; print_string " "; print_person_list tl

let person_list = [{name = "John"; age = 25}; {name = "Jane"; age = 30}]
print_person_list person_list

let print_function f =
  let f_str = "Function" in
  print_string f_str

let rec print_function_list lst =
  match lst with
  | [] -> ()
  | hd::tl -> print_function hd; print_string " "; print_function_list tl

let function_list = [fun x -> x + 1; fun x -> x * 2]
print_function_list function_list