Evaluated proc twitbox info { set c [widen [ujpeg [first $info] 8] 100]; embed $c "[second $info] | @[third $info]" 9 1 }