707 One liner function in R