sig
  type t = string option
  val compare : Rapids.Release_order.t -> Rapids.Release_order.t -> int
  val set_comparator :
    (Rapids.Release_order.t -> Rapids.Release_order.t -> int) -> unit
  val scribe : 'Conduit.conduit -> '-> Rapids.Release_order.t -> unit
  val io : string option Io.literate
end