4.3BSD/usr/contrib/icon/book/f/vcount.icn

procedure main()
   vowel := 'aeiouAEOIU'
   count := 0
   while line := read() do
      every upto(vowel,line) do count +:= 1
   write(count)
end