var
s:string;
procedure sterge(var s:string);
var
x:string;
i:integer;
c:set of char;
begin
c:=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
for i:=1 to length(s) do
if not(s[i] in c) then x:=x+s[i];
s:=x;
end;
begin
read(s);
sterge(s);
write(s);
end.
