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