gsub("[aeiou]","&")>length()/2