sig
  type t = string
  val compare :
    Rapids.STRING_ORDERED_LITERATE.t ->
    Rapids.STRING_ORDERED_LITERATE.t -> int
  val scribe :
    'a Conduit.conduit -> 'a -> Rapids.STRING_ORDERED_LITERATE.t -> unit
  val io : string Io.literate
end