type color = | Default| Black| Red| Green| Yellow| Blue| Magenta| Cyan| White
type attrs = {fg : color;bg : color;bold : bool;reverse : bool;
}type cell = {glyph : string;attrs : attrs;
}val create : rows:int -> cols:int -> tval feed : t -> string -> tval cell : t -> int -> int -> cellval cursor : t -> int * intval cursor_visible : t -> boolval text : t -> string listval key : ?alt:bool -> ctrl:bool -> string -> string option