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