var
   m,k,l,i,j:integer;
   s:string;
   t:char;
  begin
  readln(m);
  for k:=1 to m do
   begin
   readln(s);
   l:=length(s);
   for i:=1 to l-1 do
    for j:=i+1 to l do
    if s[i]>s[j] then
     begin
      t:=s[i];
      s[i]:=s[j];
      s[j]:=t;
     end;
     writeln(s);
     end;
  end.



/**************************************************************
	Problem: 2211
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/