anarchy golf - the source code

Vowel Heavy by pooq

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).