sum(lsum(if member(v,split("aeiou",""))then 1 else-1,v,charlist(x:?read\-line()))<1or dispterms(x),i,1,150);