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