program Main;
var
  i: integer;
  s,s1 : string;
begin
  readln(s);
  for i := 1 to length(s) do
    s[i] := upcase(s[i]);
  for i := 1 to length(s) do
    if s[i] in ['A', 'O', 'Y', 'E', 'U', 'I'] then
    delete(s, i, 1);
  s1 := '';
  for i := 1 to length(s) do
    s1 := s1 + s[i];
  writeln(s1);
end.