struct

  type t = Ketrew_target.Condition.t

  let (&&) a b = `And [a; b]
  let chain_and l = `And l
  let never = `Never
  let program ?(returns=0) ?host p =
    `Command_returns (Ketrew_target.Command.program ?host p, returns)

end