# a simple Gaussian random number generator
# using 12 uniformly distributed random numbers

my.rnorm <- function() sum(runif(12)) - 6
n = 10000
x <- rep(0,n)
for(i in 1:n) x[i] = my.rnorm()
hist(x, nc=100, col='cyan')