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