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