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