Evaluated proc chats {who {n 100000}} { join [lrange [map [lreverse [log]] {x { if {[second $x] == $who} {. <$who> [last $x]}  }}] 0 [- $n 1]] \n }