var s:string;
i,a:longint;
begin
read(s);
a:=length(s);
for i:=1 to a do
if (s[i]='a')or(s[i]='e')or(s[i]='i')or(s[i]='o')or(s[i]='u') then begin write(i);break;end;
if i=a then write(0);
end.
/**************************************************************
	Problem: 1844
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/