program wordcode;
var n,i,tot,bot:integer;
    st:string;
    a,s:array[1..26] of integer;

function leave:boolean;
var can:boolean;
begin
 can:=true;
 for i:=1 to 26 do if a[i]<>s[i] then begin can:=false; break; end;
 leave:=can;
end;

begin
 assign(input,'wordcode.in'); reset(input);
 assign(output,'wordcode.out'); rewrite(output);
 readln(n);
 readln(st);
 fillchar(a,sizeof(a),0);
 for i:=length(st) downto 1 do a[i]:=ord(st[i])-ord('a')+1;
 fillchar(s,sizeof(s),0);
 s[1]:=1; tot:=1; bot:=1;

 while not leave do
 begin
  if s[bot]=n then begin s[bot]:=0; inc(s[bot-1]); dec(bot); inc(tot); end
  else begin inc(bot); s[bot]:=s[bot-1]+1; inc(tot); end;
 end;

 writeln(tot);
 close(input); close(output);
end.