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