Change the say.R function to accept alternative ASCII art ?

Just a random idea on a Saturday morning: 

What if you change the say.R function to accept a custom string for the ASCII art?

Something like:

```r
say <- function(what, asciiArt=NULL){
 if (is.null(asciiArt)) {
  asciiArt <- whale...
 }
...
} 
```

So you could have a collection of whale ASCII art and phrases and combine both... just for fun!