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 [lindex $arr [+ $i 1]]] 09 04][^B][lindex $arr $i]\n [first [lindex $arr [+ $i 1]]]  =>  [second [lindex $arr [+ $i 1]]]\n \n"}; . $out }