sig
  type t
  val pp : Format.formatter -> Events_common.EVENT.t -> unit
  val show : Events_common.EVENT.t -> string
end