sig
  type 'a t
  val null : unit -> 'Timing_wheel_intf.Timing_wheel.Alarm.t
  val at :
    'Timing_wheel_intf.Timing_wheel.timing_wheel ->
    'Timing_wheel_intf.Timing_wheel.Alarm.t -> Time.t
  val interval_num :
    'Timing_wheel_intf.Timing_wheel.timing_wheel ->
    'Timing_wheel_intf.Timing_wheel.Alarm.t ->
    Timing_wheel_intf.Interval_num.t
  val value :
    'Timing_wheel_intf.Timing_wheel.timing_wheel ->
    'Timing_wheel_intf.Timing_wheel.Alarm.t -> 'a
  val sexp_of_t :
    ('-> Sexplib.Sexp.t) ->
    'Timing_wheel_intf.Timing_wheel.Alarm.t -> Sexplib.Sexp.t
end