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