sig
  val print_all_handles : file -> Int_result.unit
  val print_active_handles : file -> Int_result.unit
  val valgrind_happy : unit -> unit
end