Evaluated proc irclog_no_tcl num {regsub -line -all {^<.*> tcl .*\n$} [irclog $num] {}}