Evaluated proc +t {name expr rep} { aa triggers $name [list $expr $rep 1] }