set.seed(1)
x <- rbeta(133, 3, 2)
x
set.seed(2)
y <- matrix(sample(colors(), 144, rep=TRUE), 12, 12)
y
z <- iris
w <- list(x=x, y=y, z=z)
w