type t
val create : putenv:(string * string option) list ‑> dir:Path.t ‑> prog:string ‑> args:string list ‑> t