Evaluated proc {unknown:2:cmd/img-(.+)$/} {matches cmd args} {upvar img img ; print butts}
Evaluated proc {unknown:2:cmd/img-(.+)$/} {matches cmd args} {upvar img img; print [array get img [last $matches]] }
Evaluated proc {unknown:2:cmd/img-(.+)$/} {matches cmd args} {upvar #0 img img; print [array get $img [last $matches]] }
Evaluated proc {unknown:2:cmd/img-(.+)$/} {matches cmd args} {upvar #0 img img; print [array get img [last $matches]] }
Evaluated array set img [list dogecoin http://cdn2.sbnation.com/entry_photo_images/9571605/Dogecoin_logo_large_verge_medium_landscape.png]
Evaluated proc setimg {name url} {set img [list $name $url]}
Evaluated proc setimg {name url} {upvar #0 img img; set img [list $name $url]}
Evaluated proc setimg {name url} {upvar #0 img img; array set img [list $name $url]}
Evaluated setimg quality http://a.minivanmegafun.com/crap/quality.gif
Evaluated setimg notme http://i.imgur.com/CMngMH1.jpg
Evaluated rename notme {}
Evaluated setimg ohwow http://i.imgur.com/VsMRU6i.jpg