var 
   n:string; 
   letter:set of char;
begin
  repeat
   readln(n);
   len:=length(n);
  until  len<= 6;
  for i:=1 to len do
    letter:=letter+[n[i]];
  for i:='a' to 'z' do
    if i in letter then write(i,' ');
end.