Evaluated proc youtube_title id {set info [youtube_info $id]; set title [. [^C]01,00You[^C]00,04Tube[^C] [^C]01,00 [unescape_html_entities [first $info]][^C] [^C]14,00\[[clock format [third $info] -format %T -gmt 1]]]; . $title\n[vprepend [string range [wrap [unescape_html_entities [second $info]] [+ 5 [strlen [strip_all $title]]]] 0 200]... [^C]01,15]\nhttp://www.youtube.com/watch?v=$id}