beerTune <- function() {
  for (i in 99:3) {
    
    ## cat out the verse about i bottles
    ## of beer on the wall
    
    ## then cat out a blank line:  cat("\n")
  }
  
  ## then cat out the verse for two bottles of beer
  ## then a blank line
  
  ## then cat out the verse for one bottle of beer
}