sig
  val add_finalizer : 'Heap_block.t -> ('Heap_block.t -> unit) -> unit
  val add_finalizer_exn : '-> ('-> unit) -> unit
  val finalize_release : unit -> unit
  module Alarm :
    sig
      type t
      val create : (unit -> unit) -> Core_gc.Expert.Alarm.t
      val delete : Core_gc.Expert.Alarm.t -> unit
      val sexp_of_t : Core_gc.Expert.Alarm.t -> Sexplib.Sexp.t
    end
end