program lecsychny_perebir;
 {$apptype console}
 var ii,kt,n,i,k,j:integer;
  x:array [0..100] of char;
  t:char;
 function next:boolean;
 var k,j:integer;
 temp:char;
  found:boolean;
  begin
 i:=n;
 found:=false;
 while (not found)and(i>1)do
 begin
 found:=x[i-1]<x[i];
 if(not found)then i:=i-1 else k:=i-1;
 end;

 if found then begin
               i:=n;
                while x[i]<=x[k] do i:=i-1;
                 temp:=x[i];
                 x[i]:=x[k];
                 x[k]:=temp;

  i:=k+1;
  j:=n;
  while i<j do
   begin
  temp:=x[j];
  x[j]:=x[i];
  x[i]:=temp;
  i:=i+1;
  j:=j-1;
   end;
  end;
  next:=found;
  end;

  begin
assign(input,'input.txt);
reset(input);
assign(output,'output.txt);
rewrite(output);

  readln(kt);

  for ii:=1 to kt do begin
n:=0;
while not(eln(input))do
begin
n:=n+1;
read(x[n]);
end;
readln;
writeln(n);
  for i:=1 to n-1 do
  for j:=1 to n-1 do
    if x[j]>x[j+1] then begin t:=x[j];x[j]:=x[j+1];x[j+1]:=t;end;
for i:=1 to n do write(x[i]);
writeln;
  k:=1;
  while next do begin   for i:=1 to n do write(x[i]);
  writeln;
  k:=k+1;
  end;
  end;
close(input);
close(output);  
  end.