let
pidmap: (int,signed_fd list)
Hashtbl
.t =
Hashtbl
.create 1024