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