var     f,g:text;
        ok:array[1..100] of boolean;
        b,a:array[1..100] of integer;
        i,j,ci,nr,z,y,x,n,k:integer;
        num:int64;
begin
assign(f,'factoriale.in');reset (f);
assign(g,'factoriale.out');rewrite (g);
fillchar(ok,sizeof(ok),true);
for i:=2 to 100 do
 if ok[i] then begin
  ci:=i;
  while ci<=100 do begin
   ci:=ci+i;
   ok[ci]:=false;
  end;
 end;
nr:=0;
for i:=2 to 100 do
 if ok[i] then begin
  inc(nr);
  a[nr]:=i;
  b[nr]:=0;
end;
readln (f,n,k);
for i:=1 to n do begin
 read (f,x);
 for j:=1 to nr do begin
  y:=a[j];
  while y<=x do begin
   b[j]:=b[j]+(x div y);
   y:=y*a[j];
  end;
 end;
end;
num:=1;
for i:=1 to nr do begin
 z:=b[i] mod k;
 for j:=1 to z do
  num:=num*a[i];
end;
writeln (g,num);
close(f);close(g);
end.