var n,nr,i,j:integer;
    c:char;
    f:text;
    a:array[1..10000] of integer;
begin
assign(f,'litere.in');reset(f);
readln(f,n);
for i:=1 to n do begin
                 read(f,c);
                 a[i]:=ord(c);
                 end;
close(f);
nr:=0;
for i:=2 to n do
    for j:=1 to i-1 do if a[i]<a[j] then inc(nr);
assign(f,'litere.out');rewrite(f);
write(f,nr);
close(f);
end.