Title Case with Applescript - applescript

Question

I have a string in title case except the articles should be lower case. I'm trying to change the articles to lower case. Here's what I have now:
set theStringTitleCase to "Iranian General Killed In Syria"
set theListTitleCase to every word of theStringTitleCase
set articles_in_title to {"in", "to", "at"}
set fixed_words_in_title to {}
repeat with the_word in theListTitleCase
repeat with the_article in articles_in_title
if the_word contains the_article then
set the end of fixed_words_in_title to the_article
else
set the end of fixed_words_in_title to the_word
end if
end repeat
end repeat
set theStringTitleCase to fixed_words_in_title as string
return theStringTitleCase
Not sure where I'm going wrong

Answer 1

this should do the trick.
set theStringTitleCase to "Iranian General Killed In Syria"
set lowerCasedArticles to small_articles(theStringTitleCase)
log lowerCasedArticles
--> (*Iranian General Killed in Syria*)
to small_articles(aString)
set capArticles to {" In ", " To ", " At "} # spaces are mandatory!
set smallArticles to {" in ", " to ", " at "}
# fail early conditions . . .
if (count capArticles) ≠ (count smallArticles) then error "unequal number of elements in lists "
if aString is "" then return ""
# we replace capitalized articles with lower cased ones below.
tell (a reference to my text item delimiters)
set tids to contents of it
repeat with i from 1 to (count capArticles)
set contents of it to item i of capArticles
set oldlist to text items of aString
set contents of it to item i of smallArticles
set aString to oldlist as string
end repeat
set contents of it to tids
return aString
end tell
end small_articles