sig
  type level = Show | Error | Warning | Info | Debug
  val msg :
    ?header:string ->
    Assemblage.Log.level ->
    ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
  val kmsg :
    ?header:string ->
    (unit -> 'a) ->
    Assemblage.Log.level ->
    ('b, Format.formatter, unit, 'a) Pervasives.format4 -> 'b
  val show :
    ?header:string ->
    ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
  val err :
    ?header:string ->
    ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
  val warn :
    ?header:string ->
    ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
  val info :
    ?header:string ->
    ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
  val debug :
    ?header:string ->
    ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
end