Module Shared_flags

type 'a t = {

flags	: unit Flag.t list	;
get	: unit -> 'a	;

}