procedure main()
every r:=|read()&(n:=0)+:=*find(!r,"aeiou")|*write(*r<n*2&r)
end