ymin: -0.04
ymax: 0.26
xmax: 11
xmin: -2
ylabel = RotateText("Probability", π / 2)
a = BinomialDist(10, 0.5)
dy: 0.05
list1 = Sequence(Segment[(xmin, (i * dy)), (xmax, (i * dy))], i, 1, ymax / dy)
dy2: 0.01
list2 = Sequence(Segment[(xmin, (i * dy2)), (xmax, (i * dy2))], i, 1, ymax / dy2)