Evaluated proc irclog {{n 3}} { set ll [lrange [last [log] [+ 1 $n]] 0 [- $n 1]]; join [map $ll {{x} { . "<[second $x]> [lindex $x 3]" }}] \n }