#define F;readln(s);for i:=1to length(s)do a:=a+[s[i]] var a,b:set of char;s:string;i:word;begin F;b:=a;repeat a:=[]F;if(a=b)then writeln(s)until 1=0end.