Evaluated proc song args {set q [. $args]; set json [fix_slashes [wget "http://tinysong.com/s/[urlencode $q]?format=json&key=ed73443dd986439db4842e34fb1b335c"]]; set out ""; set results [regexp -all -inline {Url":"(.+?)".+?SongName":"(.+?)".+?ArtistName":"(.+?)"} $json]; for {set i 1} {$i < [llength $results]} {incr i 4} { append out "\x02[lindex $results [+ $i 2]]\x02 - [lindex $results [+ $i 1]] ([lindex $results $i])\n" };. $out }