Evaluated proc rlpick {mylist {num 1}} {set out [list]; map [seq 1 $num] {x {lappend out [lindex $mylist [rand [llength $mylist]]]}}; . $out}