sig
  val fork_exec :
    ?stdin:Core.Std.Unix.File_descr.t ->
    ?stdout:Core.Std.Unix.File_descr.t ->
    ?stderr:Core.Std.Unix.File_descr.t ->
    ?path_lookup:bool ->
    ?env:[ `Extend of (string * string) list
         | `Replace of (string * string) list ] ->
    ?working_dir:string ->
    ?setuid:int -> ?setgid:int -> string -> string list -> Core.Std.Pid.t
  val seteuid : int -> unit
  val setreuid : uid:int -> euid:int -> unit
  val gettid : unit -> int
  type statvfs = {
    bsize : int;
    frsize : int;
    blocks : int;
    bfree : int;
    bavail : int;
    files : int;
    ffree : int;
    favail : int;
    fsid : int;
    flag : int;
    namemax : int;
  }
  external statvfs : string -> Extended_unix.statvfs = "statvfs_stub"
  external getloadavg : unit -> float * float * float = "getloadavg_stub"
  module Extended_passwd :
    sig
      val of_passwd_line : string -> Core.Std.Unix.Passwd.t option
      val of_passwd_line_exn : string -> Core.Std.Unix.Passwd.t
      val of_passwd_file : string -> Core.Std.Unix.Passwd.t list option
      val of_passwd_file_exn : string -> Core.Std.Unix.Passwd.t list
    end
  val bin_statvfs : Extended_unix.statvfs Core.Std.Bin_prot.Type_class.t
  val bin_read_statvfs :
    Extended_unix.statvfs Core.Std.Bin_prot.Read_ml.reader
  val bin_read_statvfs_ :
    Extended_unix.statvfs Core.Std.Bin_prot.Unsafe_read_c.reader
  val bin_read_statvfs__ :
    (int -> Extended_unix.statvfs) Core.Std.Bin_prot.Unsafe_read_c.reader
  val bin_reader_statvfs :
    Extended_unix.statvfs Core.Std.Bin_prot.Type_class.reader
  val bin_size_statvfs : Extended_unix.statvfs Core.Std.Bin_prot.Size.sizer
  val bin_write_statvfs :
    Extended_unix.statvfs Core.Std.Bin_prot.Write_ml.writer
  val bin_write_statvfs_ :
    Extended_unix.statvfs Core.Std.Bin_prot.Unsafe_write_c.writer
  val bin_writer_statvfs :
    Extended_unix.statvfs Core.Std.Bin_prot.Type_class.writer
  val statvfs_of_sexp : Sexplib.Sexp.t -> Extended_unix.statvfs
  val sexp_of_statvfs : Extended_unix.statvfs -> Sexplib.Sexp.t
  val ounit_tests : unit -> OUnit.test
end