Evaluated proc triggers2 {} { m [aa? triggers] {x { set ct [aa triggers $x]; . $x\n[first $ct] => [second $ct] }} "\n \n" };