on listToText from l around d
set text item delimiters to d
tell l to beginning & ({""} & rest)
end listToText
on localizedMonths()
set l to {}
tell "1 1 1" to tell (my date it) - days to repeat 12 times
set day to 32
tell it + days * (9 - (its weekday)) to set l's end to space
& date string & space
end repeat
set tid to text item delimiters
set l to listToText from l around return
repeat with n in "0123456789"
set text item delimiters to n
set l to listToText from l's text items around ""
end repeat
set text item delimiters to space
repeat with i in (get text items of text 2 thru -2 of l's
paragraph 1)
set text item delimiters to space & i & space
if (count l's text items) > 12 then set l to listToText from
l's text items around space
end repeat
set text item delimiters to space & return & space
set l to listToText from text items of l's text 2 thru -2 around
return
set text item delimiters to tid
l's paragraphs
end localizedMonths
