struct type t = Ketrew_program.t let (&&) a b = `And [a; b] let sh c = `Shell_command c let shf fmt = Printf.ksprintf sh fmt let exec l = `Exec l let chain l = `And l end