values <- c(4, 8, 15, 16, 23, 42)
cat("mean:", mean(values), "\n")
cat("median:", median(values), "\n")