Evaluated set temp [list]; map [aa? triggers] {x {set ct [first [aa triggers $x]]; lappend temp $x; lappend temp [list [first $ct] [second $ct] [third $ct]] }}; . done