sig
  type t =
      Basic
    | Group of (string * Command.Shape.t) list
    | Exec of (unit -> Command.Shape.t)
end