Text Swankifier - Replacing char in string with char in list

This little script will take a string, compare each char against a list and then replaces that char with the corresponding item in another list.

Now, swankified!

ⓣⓗⓘⓢ ⓛⓘⓣⓣⓛⓔ ⓢⓒⓡⓘⓟⓣ ⓦⓘⓛⓛ ⓣⓐⓚⓔ ⓐ ⓢⓣⓡⓘⓝⓖ, ⓒⓞⓜⓟⓐⓡⓔ ⓔⓐⓒⓗ ⓒⓗⓐⓡ ⓐⓖⓐⓘⓝⓢⓣ ⓐ ⓛⓘⓢⓣ ⓐⓝⓓ ⓣⓗⓔⓝ ⓡⓔⓟⓛⓐⓒⓔⓢ ⓣⓗⓐⓣ ⓒⓗⓐⓡ ⓦⓘⓣⓗ ⓣⓗⓔ ⓒⓞⓡⓡⓔⓢⓟⓞⓝⓓⓘⓝⓖ ⓘⓣⓔⓜ ⓘⓝ ⓐⓝⓞⓣⓗⓔⓡ ⓛⓘⓢⓣ.

property thecount : missing value
property theAlphabet : missing value
property theSwankabet : missing value

set theAlphabet to {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
set theSwankabet to {"ⓐ", "ⓑ", "ⓒ", "ⓓ", "ⓔ", "ⓕ", "ⓖ", "ⓗ", "ⓘ", "ⓙ", "ⓚ", "ⓛ", "ⓜ", "ⓝ", "ⓞ", "ⓟ", "ⓠ", "ⓡ", "ⓢ", "ⓣ", "ⓤ", "ⓥ", "ⓦ", "ⓧ", "ⓨ", "ⓩ"}
set thecount to 1


display dialog "Text to swank:" default answer ""
set theText to the text returned of the result

repeat with t in theAlphabet
	set tA to t
	set tS to item thecount of theSwankabet
	set AppleScript's text item delimiters to tA
	set theTextItems to text items of theText
	set AppleScript's text item delimiters to tS
	set theText to theTextItems as string
	set thecount to (thecount + 1)
end repeat
set AppleScript's text item delimiters to {""}


set the clipboard to theText
beep