Evaluated proc song args {set q [. $args]; set json [fix_slashes [wget "http://tinysong.com/s/[urlencode $q]?format=json&key=ed73443dd986439db4842e34fb1b335c"]];regexp -all -inline {SongName":"(.+?)".+?ArtistName":"(.+?)".+?Url":"(.+?)"} $json}