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