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