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