File standardInput readLines map($,c:=0;$foreach(i,c=c+if("aeiou"contains(i),1,-1))<1or$println)