sig
  type 'a t
  val unit : unit Runtime_events.Type.t
  type span = Begin | End
  val span : Runtime_events.Type.span Runtime_events.Type.t
  val int : int Runtime_events.Type.t
  val register :
    encode:(bytes -> 'a -> int) ->
    decode:(bytes -> int -> 'a) -> 'a Runtime_events.Type.t
end