sig
  type t
  type ty = [ `Msg ]
  val create :
    ?ty:Asl.Message.ty ->
    ?time:string ->
    ?host:string ->
    ?sender:string ->
    ?facility:string ->
    ?pid:string ->
    ?uid:string ->
    ?gid:string ->
    ?level:string ->
    ?msg:string -> ?extra:(string * string) list -> unit -> Asl.Message.t
end