Evaluated proc twitbox info { set c [widen [ujpeg3 [first $info] 8] 100]; embed [embed $c "[second $info] | @[third $info]\n[wrap [fifth $info] 80]" 10 1] "[^C]14[timesince [fourth $info]] ago" 10 4 }