sig
  type 'a t
  val create :
    ?align:Ascii_table.Align.t ->
    ?min_width:int ->
    ?max_width:int -> string -> ('a -> string) -> 'a Ascii_table.Column.t
  val create_attr :
    ?align:Ascii_table.Align.t ->
    ?min_width:int ->
    ?max_width:int ->
    string ->
    ('a -> Console.Ansi.attr list * string) -> 'a Ascii_table.Column.t
end