program z932;

var s:string;

procedure delspaces( var s:string);

begin

while (s[1]='') and (length(s)>0) do

s:=copy(s,2,length(s)-1);

end;

procedure words(s:string);

var slovo,sl : string;

i:integer;

use: set of 'A'..'z';

begin

s:=s+'';

delspaces(s);

while s<>'' do begin

slovo:= copy(s,1,pos('',s)-1);

delete(s,1,length(slovo));

use:=[];

sl:='';

for i:=1 to length(slovo) do

if not (slovo[i] in use) then begin

sl:=sl+slovo[i];

use:=use+[slovo[i]];

end;

write(sl,'');

delspaces(s);

end;

end;

begin

writeln('vv tekst:');

readln(s);

words(s);

end.