Module Command.Shape

module Shape: sig .. end 
with type command := t

type t = 
| Basic
| Group of (string * t) list
| Exec of (unit -> t)