Evaluated proc addsquid url {upvar #0 squid squid ; lappend squid $url ; return "Squid added."}