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