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