Evaluated proc cats {} {upvar #0 cats cats; lindex_random $cats}