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

(let ((s (make-random-source))
      (h (make-discrete-histogram)))
  (random-source-randomize! s)
  (do ((i 0 (+ i 1)))
      ((= i 10000) (void))
    (let ((die1 (+ (random-uniform-int 6) 1))
          (die2 (+ (random-uniform-int 6) 1)))
      (discrete-histogram-increment! h (+ die1 die2))))
  (discrete-histogram-plot h "Histogram of Sum of Two Dice"))