let
open_fds: (
Unix
.file_descr,channel_pipe)
Hashtbl
.t =
Hashtbl
.create 1024