sig
  val add_finalizer :
    'a Core_kernel.Std.Heap_block.t ->
    ('a Core_kernel.Std.Heap_block.t -> unit) -> unit
  val add_finalizer_exn : 'a -> ('a -> unit) -> unit
  val finalize_release : unit -> unit
end