RosettaCodeData/Task/Pick-random-element/TXR/pick-random-element.txr

@(do (defun randelem (seq)
       [seq (random nil (length seq))]))
@(bind x @(randelem #("a" "b" "c" "d")))