Evaluated proc triggers {} { set out ""; set arr [first [a triggers]]; for {set i 0} {$i < [llength $arr]} {incr i 2} {append out "[^C][bif [third [first [lindex $arr [+ $i 1]]]] 09 04][^B][first [lindex $arr $i]]\n [first [first [lindex $arr [+ $i 1]]]]   =>  [first [second [lindex $arr [+ $i 1]]]]\n \n"}; . $out }