Evaluated proc raw_irclog {{n 3}} {set lines [list]; set ll [lrange [last [log] [+ 1 $n]] 0 [- $n 1]]; map $ll {{x} {uplevel {linsert $lines end [list [second $x] [lindex $x 3]]}}};. $lines}