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