var f,g:text;
i,j,nr,n:longint;
aux:char;
a:array[1..10000] of char;
begin
assign(f,'litere.in'); reset(f);
assign(g,'litere.out'); rewrite(g);
readln(f,n);
for i := 1 to n do read(f,a[i]);
 for i := 1 to n-1 do
       for j := i to n do
          if a[i]>a[j] then begin
                       aux:=a[i];
                       a[i]:=a[j];
                       a[j]:=aux;
                       inc(nr);
                             end;
writeln(g,nr);
for i := 1 to n do write(g,a[i]);
close(f);
close(g);
end.