RosettaCodeData/Task/Pick-random-element/Common-Lisp/pick-random-element.lisp

(defvar *list* '(one two three four five))

(print (nth (random (length *list*)) *list*))
(print (nth (random (length *list*)) *list*))
(print (nth (random (length *list*)) *list*))