Evaluated proc massmemo str { map [names] {w { +memo $w $str }}; . done }