sig
  val create :
    ?debug:Console.Ansi.attr list ->
    ?info:Console.Ansi.attr list ->
    ?error:Console.Ansi.attr list ->
    Core.Std.Out_channel.t -> Async.Std.Log.Message.t -> unit
end