var
  s: string;
  i: integer;

begin
  readln(s);
  for i := length(s) downto 1 do
    if s[i] in ['A'..'Z', 'a'..'z'] then
      delete(s, i, 1);

  writeln(s);
end.