x <- c(4, 12, 36, 108, 324, 972, 2916, 8748)
quantile(x, 1 / 4)
quantile(x, 2 / 4)
quantile(x, 3 / 4)