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