Evaluated proc kkk {} {set out ""; foreach line [lreverse [log]] { if {[second $line] == "kloeri"} {append out "<@kloeri> [last $line]\n"} }; . $out }