var
s:string;
i:integer;
begin
    readln(s);
    i:=1;
    while(i<=length(s)) do
    begin
        if(s[i]='а')or(s[i]='о')or(s[i]='у')or(s[i]='э')or(s[i]='ы')or(s[i]='е')or(s[i]='я')or(s[i]='и')or(s[i]='ю')or(s[i]='ё') then
        begin
            delete(s,i,1);
        end
        else inc(i);
    end;
    writeln(s);
end.