Evaluated proc wlog {who {n 1000}} { set ok [list]; map [top [lreverse [log]] $n] {x { if { [second $x] == $who } { lappend ok [list [first $x] [last $x]] } }}; join [lreverse $ok] \n }