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