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