external getpriority : which_prio_t -> priority = "caml_extunix_getpriority"