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