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]]) [lindex $aleph $i]}