Evaluated proc lyrics_ args {set info [split [join $args " "] " - "]; last [regexp -inline {class="songLyricsV14 iComment-text">(.+?)</div>} [wget "<pre>(.+?)</pre>" http://www.songlyrics.com/[join [first $info] -]/[join [second $info] -]-lyrics]]}