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