external getpgid : int -> int = "caml_extunix_getpgid"