sig
  type color = private Default | Index of int | RGB of int * int * int
  val default : LTerm_style.color
  val index : int -> LTerm_style.color
  val rgb : int -> int -> int -> LTerm_style.color
  val black : LTerm_style.color
  val red : LTerm_style.color
  val green : LTerm_style.color
  val yellow : LTerm_style.color
  val blue : LTerm_style.color
  val magenta : LTerm_style.color
  val cyan : LTerm_style.color
  val white : LTerm_style.color
  val lblack : LTerm_style.color
  val lred : LTerm_style.color
  val lgreen : LTerm_style.color
  val lyellow : LTerm_style.color
  val lblue : LTerm_style.color
  val lmagenta : LTerm_style.color
  val lcyan : LTerm_style.color
  val lwhite : LTerm_style.color
  type t = {
    bold : bool option;
    underline : bool option;
    blink : bool option;
    reverse : bool option;
    foreground : LTerm_style.color option;
    background : LTerm_style.color option;
  }
  val bold : LTerm_style.t -> bool option
  val underline : LTerm_style.t -> bool option
  val blink : LTerm_style.t -> bool option
  val reverse : LTerm_style.t -> bool option
  val foreground : LTerm_style.t -> LTerm_style.color option
  val background : LTerm_style.t -> LTerm_style.color option
  val none : LTerm_style.t
  val merge : LTerm_style.t -> LTerm_style.t -> LTerm_style.t
  val equal : LTerm_style.t -> LTerm_style.t -> bool
end