Evaluated proc chatrate ltime { set c 0; set min [- [clock seconds] $ltime] foreach line [lreverse [log]] { set t [first $line]; if {$t > $ltime} { incr c } }; . $c }