var
   n,f,k:longint;
   s:string;
begin
   readln(n,s);
   f:=1;
   k:=length(s);
   if n=0 then
   begin
      writeln('1');
      halt;
   end;
   if k>=n then
   begin
      writeln(n);
      halt;
   end;
   while (n>=k) do
   begin
      f:=f*n;
      n:=n-k;
   end;
   writeln(f);
end.

because if k>=n or n=0 you will write 2 answers :)