sig
type
'
a t = { flags : unit
Command
.
Flag
.t list; get : unit
->
'
a; }
end