x <- c(4, 12, 36, 108, 324, 972, 2916, 8748)
quantile(x, 3 / 10)
quantile(x, 5 / 10)
quantile(x, 6 / 10)