RosettaCodeData/Task/Pick-random-element/Oforth/pick-random-element.fth

: pickRand(l)   l size rand l at ;