Evaluated set out ""; set asc [ascii2map [ascii ak47]]; for {set i 1} {$i < [llength $asc]} {incr i 2} { foreach bloque [lindex $asc $i] { 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