do
input""a$
b=len(a$)
c=0
for i=b^0to b
c=c+!instr("aiueo",mid$(a$,i,1))next
if b-c>c?a$
loop