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