n = 12 (slider from 1 to 50, step 1)
p = 0.59 (slider from 0 to 1, step 0.01)
d = BarChart(0, 10, Sequence[BinomialDist[n, p, i, false], i, 0, n])