Evaluated proc youtube_title id {set info [youtube_info $id]; . [^C]01,00You[^C]00,04Tube[^C] [^C]01,00 [unescape_html_entities [first $info]][^C] [^C]14,00\[[ytvidlen $id]]\n[vprepend [string range [wrap [unescape_html_entities [second $info]] 80] 0 400]... [^C]01,15]\nhttp://www.youtube.com/watch?v=$id}