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