Evaluated proc cur_base {f t} {lindex [regexp -inline {<b>(.*?)</b>} [http://download.finance.yahoo.com/d/quotes.csv?s=[string toupper $f$t]=X&f=l&e=.cvs]] 1}