program pascal;
var f,g:text;
    n,i,j,k,poz:longint; nr:int64;
    v:array[1..10002] of char;
    ok:boolean; aux:char;


begin
 assign(f,'litere.in'); reset(f);
 assign(g,'litere.out'); rewrite(g);
  readln(f,n);
  for i:=1 to n do
   begin
     read(f,v[i]);
   end;

 i:=2;
 while i<=n do
 begin
 ok:=false;
 aux:=v[i];
 for k:=i-1 downto 1 do
  if v[i]<v[k] then nr:=nr+1
               else
                if i>2 then
                 begin
                  for j:=i downto k+2 do v[j]:=v[j-1];
                  v[k+1]:=aux;
                  ok:=true;
                  break;
                 end;
 i:=i+1;
 end;

 write(g,nr);
 close(f);
 close(g);
end.