external read_credentials : Unix.file_descr -> (int * int * int) =
  "caml_extunix_read_credentials"