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