sig   type t   val create : string -> Named_pipe.Server.t   val connect : Named_pipe.Server.t -> unit   val to_fd : Named_pipe.Server.t -> Unix.file_descr   val flush : Named_pipe.Server.t -> unit   val disconnect : Named_pipe.Server.t -> unit   val destroy : Named_pipe.Server.t -> unit end