program regiuni;
var fin,fout:text;
    n,m:longint;

function putere(a:longint):longint;
var b,i:longint;
begin
 b:=1;
 for i:=1 to a do
     b:=b*a;
 putere:=b;
end;

begin
 assign(fin,'regiuni.in'); reset(fin);
 read(fin,n,m);
 n:=putere(n);
 if m<n then n:=m;
 randomize;
 assign(fout,'regiuni.out'); rewrite(fout);
 inc(n);
 repeat
 m:=random(n);
 until m>0;
 write(fout,m);
 close(fin);
 close(fout);
end.