RosettaCodeData/Task/Pick-random-element/Scheme/pick-random-element.scm

; for Chicken Scheme
(import (chicken random))

(define (pick_random x)
    (list-ref x (pseudo-random-integer (length x)))
    )