Evaluated proc qwerty2dvorak str {set qwe {qwertyuiopasdfghjklzxcvbnm,./}; set dvo {',.pyfgcrlaoeuidhtn;qjkxbmz}; set out ""; for {set i 0} {$i < [string length $str]} {incr i} {set fuck [string first [string index $str $i] $qwe]; if {$fuck > -1} {append out [string index $dvo $fuck]} {append out [string index $str $i]}};. $out}