Evaluated proc twitbox {name info {col 00}} { set t 14; set o ""; if { $col == 03 } { set o " [^C]09@$name[^C]03 |"; set t 03 }; set c [twitpic [first $info]]; . [embed $c "[^_][^C]$col[second $info][^_]   [^C]$t@[third $info] |$o [fourth $info]\n[wrap [strip_html [fifth $info]] 55]" 10 1] }