external getsid : int -> int = "caml_extunix_getsid"