main=interact$unlines.filter(\x->length x<sum[2|y<-x,elem y"aeiou"]).lines