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