vec <- c(30, 6, 15, 16, 0, 45, 6, 4, 23)