reverseWords <- function(words) { return( sort( words, decreasing=TRUE)) }