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\"}