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