procedure main()

    vowels := 0

    while line := read() do

        every c := !line do

            if c == !"aeiouAEIOU" then vowels +:= 1

    write(vowels, " vowels")

end