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}