Evaluated proc translate {cc str} {set data [wget "http://translate.google.ca/translate_a/t?client=t&hl=en&sl=auto&tl=$cc&ie=UTF-8&oe=UTF-8&multires=1&oc=1&otf=2&ssel=0&tsel=4&uptl=$cc&alttl=en&sc=1&q=[urlencode $str]"]; lindex [regexp -inline {"(.+?)"} $data] 0}