Utilisation
set list {a b c d e f} Tcl: a b c d e f
lindex $list [rand [llength $list]] Tcl: c
lindex $list [rand [llength $list]] Tcl: e
lindex $list [rand [llength $list]] Tcl: b