Evaluated proc triggers {} { set out ""; set arr [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]]]]  =>  [second [first [lindex $arr [+ $i 1]]]]\n \n"}; . $out }