program pascal;
var f,g:text;
    n,i:longint; nr:int64;
    v:array[1..10000] 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;

  repeat
  ok:=true;
  for i:=1 to n-1 do
  if v[i]>v[i+1] then begin
                         aux:=v[i];
                         v[i]:=v[i+1];
                         v[i+1]:=aux;
                         ok:=false;
                         nr:=nr+1;
                     end;
  until ok;

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