Here is something silly:

Buffalo <- function(){
  word <- match.call()[[1]]
  sentence <- rep(as.character(word), 8)
  indices <- !(1:8 %in% c(1, 3, 7))
  sentence[indices] <- tolower(sentence[indices])
  return(paste0(paste(sentence, collapse=' '), '.'))
}
Buffalo()
# [1] "Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo."

Inspired by the relevant wiki page.

Making this site with the help of Jekyll. I’m excited to see what I can do with it.