Is it possible to have a comprehensive pluraliser for all words in the English language?
Or is it just too screwed up?

please comment any interesting pluralisations and I'll try to add them in.
I don't think my method is very good, it doesn't work for mouse because you'd have to check all the way back to m! I can't think of any other words that end in "se" that aren't pluralised to "ses"
`@@@@@@@@@@@@@@@@@@@@@@@@@
` Pluraliser
`@@@@@@@@@@@@@@@@@@@@@@@@@
DO
`* Input
input "type a word you want to pluralise> "; a$
lc$=right$(a$,1)
slc$=mid$(a$,len(a$)-1)
`* Process
select lc$
case "s"
if slc$="u" : suffix$="ii" : endif
endcase
case "x"
if slc$= "i" or slc$="e" : suffix$="ices" : endif
endcase
`how do I do "mouse"
case default
suffix$="s"
endcase
endselect
`assemble plural
newa$ = left$(a$,len(a$)-2)+suffix$
`* Display
print "The plural of "; a$; " is "; newa$
wait key
cls
LOOP
"You must be someone's friend to make comments about them." - MySpace lied.
