functor (X : sig val option_name : string val help : string val arg_name : string val default : Datatype.String.Set.t end) -> String_set