I found a site that lists "99 bottles" programs in 1000 languages, but they don't correct for proper grammar and they don't accept inputs that aren't 99. One guy wrote a shorter 99 bottles program in Arc but it used more high-level functions than mine did.
I can't think of a language that could do the proper grammar, accepting any initial # of bottles, with fewer tokens than Arc.