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