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