Evaluated proc twitter {name {n 3}} { join [map [lrange [twitter_ $name] 0 [- $n 1]] {x { if {[strsame $name [third $x]] == 1} {set c 00} else {set c 03}; twitbox $name $x $c }}] "\n \n" }