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 }