proc y_stock_info args {
  set symbols [join $args]
  set symbols [string toupper $symbols]
  set html    [120~http://finance.yahoo.com/q/cq?d=v1&s=[join [concat $symbols {.IXIC .DJI}]]]
  set table   [last [regexp -inline {<table.*?class="yfi_columnar_data">\s*(.+?)\s*</table>} $html]]  
  set rows    [lrange [evens [regexp -all -inline {(.*?)(?:</tr>)} $table]] 1 end]
  set info    [list]
  
  foreach row $rows {
    foreach {name pattern} {
      symbol      {<td class=symbol>.*\n\s*(.*?)</a>}
      name        {<td class=localName>.*?\n\s*<a[^>]+>(.*?)</a>}
      last_trade  {<td class=lastTrade>(.*?)</td>}
      change      {<td class=change .*?<span.*?\n(.*?)</span>}
      change_rate {<td class=changeRate .*?<span.*?\n\((.*?)\)}
      market_cap  {<td class=mktCap>(.*?)</td>}
    } {
      set i($name) [string trim [html [last [regexp -inline $pattern $row]]]]
    }
    if {! [string match "-*" $i(change_rate)]} {set i(change_rate) "+$i(change_rate)"}
 
    if {[lsearch -exact $symbols $i(symbol)] != -1} {
      lappend info [array get i]
    }
  }
  
  return $info
}