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