#lang scheme
(require (planet "geometric-graphics.ss" ("williams" "science.plt")
                 "random-distributions"))

(geometric-plot .5)