type color =
| Default
| Red
| Green
| Yellow
| Cyan
| Bold
| Faint
val color : color -> string -> string
val opt_color : bool -> color -> string -> string
val frame : string -> string
val horizontal_line : unit -> string
val left_col : string -> string
val quote_multiline_text : string -> string