(module (bd random) ()
(import scheme
	(chicken base)
	(chicken module)
	(chicken random))

(export random)
(export rand-int)
(define random pseudo-random-real)
(define rand-int pseudo-random-integer)

(export pick-random)
(define (pick-random lst)
  (list-ref lst (rand-int (length lst))))
)