let string_of_resource =
  function
  | RLIMIT_CORE -> "RLIMIT_CORE"
  | RLIMIT_CPU -> "RLIMIT_CPU"
  | RLIMIT_DATA -> "RLIMIT_DATA"
  | RLIMIT_FSIZE -> "RLIMIT_FSIZE"
  | RLIMIT_NOFILE -> "RLIMIT_NOFILE"
  | RLIMIT_STACK -> "RLIMIT_STACK"
  | RLIMIT_AS -> "RLIMIT_AS"