Evaluated proc wiki_ name { regsub {[(\d+)]} [strip_html [last [regexp -inline {<p>(.+?)<div} [wget http://en.wikipedia.org/wiki/[string totitle $name]]]]] {}}