sig
  val register_close_handler : (unit -> unit) -> unit
  val call_close_handlers : unit -> unit
end