Evaluated proc cats {} {lindex_random $cats}