Evaluated proc qwerty2dvorak str {set qwe "qwertyuiopasdfghjklzxcvbnmwv/"; set dvo "',.pyfgcrlaoeuidhtn;qjkxbmz"; set out ""; for {set i 0} {$i < [string length $str]} {incr i} {a}}