sig
  type ns_span = int64
  val tock :
    delay_ns:Tick.MTICK.ns_span -> (Tick.MTICK.ns_span -> unit) -> unit
end