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