load("descriptive")$
gen_sample(n) := makelist(random(1.0), n)$
test_samples: map(gen_sample, [100, 1000, 10000])$
map(mean, test_samples);
map(std, test_samples);
histogram(test_samples[1])$
histogram(test_samples[2])$
histogram(test_samples[3])$