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