sig
  type t
  val create : int -> Slap_io.Context.t
  val ellipsis_default : string Pervasives.ref
  val vertical_default : Slap_io.Context.t option Pervasives.ref
  val horizontal_default : Slap_io.Context.t option Pervasives.ref
  val set_dim_defaults : Slap_io.Context.t option -> unit
end