Evaluated proc kloeri_log {{n 200}} { set out [list]; foreach line [ltop [lreverse [log]] $n] { if {[second $line] == "kloeri"} { lappend out [last $line] }}; . $out  }