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 }