type t = { prog : Path.t ; args : string list ; dir : Path.t ; env : string array ; stdout_to : Path.t option ; touches : Path.t list }