const max=100;
type hint=array[0..max]of longint;
var st,s1,s2:string; k,ok:longint;
    a:array[0..11]of hint;
    b:array[0..9]of longint;
    circle:array[0..max]of longint;
    tot:hint;
    n,start:hint; sc,ss:hint;
    i,j,ij,l,m:longint;
procedure multi(var a:hint;b,c:hint);
var i,j,e:longint;
begin
  fillchar(a,sizeof(a),0);
  for i:=0 to k-1 do
    for j:=0 to k-1 do
      if i+j<=k-1 then inc(a[i+j],b[i]*c[j]);
  e:=0;
  for i:=0 to k-1 do begin
    a[i]:=a[i]+e;
    e:=a[i] div 10;
    a[i]:=a[i] mod 10;
  end;
end;
procedure mult(var a:hint; b:longint);
var i,e:longint;
begin
  for i:=0 to a[max] do a[i]:=a[i]*b;
  e:=0;
  for i:=0 to a[max]+1 do begin
    a[i]:=a[i]+e;
    e:=a[i] div 10;
    a[i]:=a[i] mod 10;
  end;
  if a[a[max]+1]>0 then a[max]:=a[max]+1;
end;
begin
  assign(input,'circle.in'); reset(input);
  assign(output,'circle.out'); rewrite(output);
  readln(st);
  s1:=copy(st,1,pos(' ',st)-1); delete(st,1,pos(' ',st)-1);
  s2:=st; while pos(' ',s2)>0 do delete(s2,pos(' ',s2),1);
  val(s2,k,ok);
  s2:=copy(s1,length(s1)-k+1,k);
  while length(s2)<k do s2:='0'+s2;
  for i:=1 to k do n[k-i]:=ord(s2[i])-48; n[max]:=k-1;
  start:=n; ss:=n; a[1]:=ss;
  for i:=0 to k-1 do begin
    fillchar(b,sizeof(b),0); b[a[1,i]]:=1;
    j:=2;
    while true do begin
      multi(a[j],a[j-1],ss);
      if b[a[j,i]]=0
      then begin b[a[j,i]]:=j; inc(j); end
      else begin
             sc:=ss; ij:=b[a[j,i]];
             if ij<>1
               then begin writeln(-1); close(input); close(output); halt;end;
             circle[i]:=j-1;
             for ij:=2 to j-1 do multi(ss,sc,ss);
             {a[1]:=a[b[a[j,i]]];} j:=2; break;
           end;
    end;
  end;
  fillchar(tot,sizeof(tot),0); tot[0]:=1;
  for i:=1 to k do mult(tot,circle[i-1]);
  for i:=k-1 downto 0 do if tot[i]>0 then break;
  for j:=i downto 0 do write(tot[j]);
  close(input); close(output);
end.