(loop(format(>(count-if(lambda(c)(find c"aeiou"))(set'l(read-line)))(/(length l)2))"~A
"l))