Simple R script to dump out tables