type t = {
  page_size : int;
  n_pages : int;
  shared_size : int;
  partial_enabled : bool;
  shared_used : int;
  n_used_pages : int;
  pages_used : int;
  n_partial : int;
  n_full : int;
}
external dump_infos : unit -> t = "caml_gc_dump_infos"
external enable_partial : bool -> unit = "caml_gc_enable_partial"
external gc : unit -> unit = "caml_gc_do"
val print_infos : out_channel -> t -> unit