It's worked on every WorldScript compatible region that I've tried
(and has a more robust 'feel' than the tid-based solution I was
initially playing with). FWIW, I've just been tinkering with this
slight variation:
------------
tell "1 1 1" to tell my date it
set day to 25
set w to date string's words
set day to 32
considering case
tell date string's words to repeat with i from 1 to count
tell item i to if it is not w's item i and it is not "1"
then
set l to {w's item i, it}
exit repeat
end if
end repeat
end considering
repeat 10 times
set day to 32
set l's end to date string's word i
end repeat
end tell
choose from list l
