Evaluated set out ""; set aleph [split [wget http://www.heypasteit.com/download/0TV3] \n\n]; set l {abcdefghijklmnopqrstuvwxyz}; for {set i 0} {$i < [string length $l]} {incr i} {set ::alphabet([string toupper [string index $l $i]]) [join [lrange $a [expr $i*6] [+ 6 [expr $i*6]]] \n]}