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 : 'a Conduit.conduit -> 'a -> Rapids.Release_order.t -> unit
  val io : string option Io.literate
end