let file_descr_of_int : int -> Unix.file_descr = if Obj.is_block (Obj.repr Unix.stdin) then (fun _ -> raise (Not_available "file_descr_of_int")) else Obj.magic