(require (planet "discrete.ss" ("williams" "science.plt")
                 "random-distributions"))
(require (planet "discrete-graphics.ss" ("williams" "science.plt")
                 "random-distributions"))

(let ((d (make-discrete #(.1 .4 .9 .8 .7 .6 .5 .4 .3 .2 .1))))
  (discrete-plot d))