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