Evaluated set out ""; set asc [ascii2map [ascii ak47]]; for {set i 1} {$i < [llength $asc]} {incr i 2} { for {set x 1} { $x < [llength [lindex $asc $i]] } {incr x 2} { set bloque [lindex [lindex $asc $i] $x]; if {[string length "[lindex $bloque 5][lindex $bloque 3]"] > 0} { append out "[lindex $bloque 5],[lindex $bloque 3][lindex $bloque 1]" } else { append out "\x03[lindex $bloque 1]" } }; append out "\n" };. $out