sig   exception Not_available   module Server :     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   module Client :     sig       type t       exception Pipe_busy       val openpipe : string -> Named_pipe.Client.t       val to_fd : Named_pipe.Client.t -> Unix.file_descr       val wait : string -> int -> unit     end end