type color = | Default| Red| Green| Yellow| Cyan| Bold| Faint
val color : color -> string -> stringval opt_color : bool -> color -> string -> stringval frame : string -> stringval horizontal_line : unit -> stringval left_col : string -> stringval quote_multiline_text :
?decorate_comment:(string -> string) ->
?decorate_data_fragment:(string -> string) ->
?max_bytes:int ->
string ->
string