Evaluated proc twitbox info { set c [widen [ujpeg3 [first $info] 8] 100]; . [embed $c "[^_][^C]00[second $info][^_]   [^C]14@[third $info] | [fourth $info]\n[wrap [strip_html [fifth $info]] 50]" 10 1] }