sig
  val printer : Format.formatter -> Rope.rope -> unit
  val max_display_length : int Pervasives.ref
  val ellipsis : string Pervasives.ref
end