An R script to produce a wordcloud