let
fdmap: (
Unix
.file_descr,string*string)
Hashtbl
.t =
Hashtbl
.create 1024