sig
  type t = {
    messages : int option;
    size : Core.Std.Byte_units.t option;
    time : (Core.Std.Time.Ofday.t * Core.Std.Zone.t) option;
    keep : [ `All | `At_least of int | `Newer_than of Core.Std.Time.Span.t ];
  }
end