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