`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`