mygreet <- function(place, greeting = "Hello")
  cat(paste(greeting, " ", place, "!\n", sep = ""))