sig
  type t
  type opt = [ `No_delay | `No_remote | `Stderr ]
  val create :
    ident:string ->
    facility:string -> ?opts:Asl.Client.opt list -> unit -> Asl.Client.t
end