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