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