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