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 r [regexp -all -inline {Url":"(.+?)".+?SongName":"(.+?)".+?ArtistName":"(.+?)"} $json]; for {set i 1} {$i < [llength $r]} {incr i 4} { append out "\x02[pad_line [lindex $r [+ $i 2]] 25]\x02 [lindex $r [+ $i 1]] ([lindex $r $i])\n" };. $out }