program z_14_27_a;
var letter: set of 'a'..'z'; c: char;
begin
letter:=[];
read(c);
while c<>'.' do
begin
  if (not(c in letter)) then
  begin
  write(c);
  letter:=letter+[c];
  end;
read(c);
end;
end.