procedure main()
    vowels := 0
    every !!&input == !"aeiouAEIOU" do
	    vowels +:= 1
    write(vowels, " vowels")
end