Evaluated proc wikipic_ name { . http:[last [regexp -inline {<div class="thumbinner".+?<img .*src="(.+?)"} [wget http://en.wikipedia.org/wiki/[urlencode [string totitle $name]]]]] }