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