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"