Evaluated proc memos who {set i 0; join [map $::memo($who) {x {incr i; . [^B]#$i)[^O] "[second $x]" from [first $x] - [duration [third $x]] ago}}] \n }