(require (planet "discrete.ss" ("williams" "science.plt" 2 0)
                 "random-distributions"))
(require (planet "discrete-histogram-with-graphics.ss"
                 ("williams" "science.plt" 2 0)))

(let ((h (make-discrete-histogram))
      (d (make-discrete #(.1 .4 .9 .8 .7 .6 .5 .4 .3 .2 .1))))
  (do ((i 0 (+ i 1)))
      ((= i 10000) (void))
    (discrete-histogram-increment! h (random-discrete d)))
  (discrete-histogram-plot h "Histogram of Discrete Distribution"))