chickadee » srfi-27 » make-random-geometrics

(make-random-geometrics [#:p 0.5] [#:randoms (make-uniform-random-reals)])) => (procedure () integer)procedure