Evaluated proc memos who {set i 0; join [map [lreverse $::memo($who)] {x {incr i; . [bold #$i)] [bold \"][tc 0 [second $x]][bold \"][^O] from [bline [first $x]] about [bold [timesince [third $x]]] ago}}] \n }