Evaluated proc yt args {set query [. $args]; set out ""; set result [regexp -all -inline {<title type='text'>(.+?)<.+?/feeds/api/videos/(.+?)/responses} [http get "http://gdata.youtube.com/feeds/api/videos?q=[urlencode $query]"]];for {set i 4} {$i < 50} {incr i 3} {append out "[lindex $result $i] (10http://youtu.be/[lindex $result [expr $i+1]])\\r\\n"};. "$out"}