A program to recognize and reward our most engaged community members
length(replaceAll([Text],"[^A-Z]",""))
length(replaceAll([MyTokens],"[^,]",""))+1