Simple Language change macro help?!

[pauen]

i want a macro that will change the language you're speaking to like orcish or common to what ever language your race has, and that language to orcish or common
a while back i had a something like this.
/run ChatFrameEditBox.language = (ChatFrameEditBox.language == GetLanguageByIndex(1) and GetLanguageByIndex(2) or GetLanguageByIndex(1)) ChatFrame1:AddMessage(" "..ChatFrameEditBox.language)

i want one that will work with any race any side so you dont have to change macro text to work with your race.
thanks