Liste1 = Sequence(Random[1, 6], i, 1, 1000)
Liste2 = Frequency(Liste1)
d = BarChart(Liste1, 1)
m: y = Mean[Liste2]