program gaju;
type vector=array[1..160]of integer;
var n,i,y,k,max,j,aux,p,t,jj:byte;
    a,v:vector;
    x:integer;
    f,g:text;
begin
assign(f,'factoriale.in');
assign(g,'factoriale.out');
reset(f);
rewrite(g);
readln(f,n,k);
max:=0;
for i:=1 to n do begin
    read(f,x);
    for y:=2 to x do begin
        aux:=y;j:=2;
        while aux<>1 do begin
        while aux mod j=0 do begin a[j]:=a[j]+1;
                                   aux:=aux div j;
                                   end;
        inc(j);
        end;
    if j-1>max then max:=j-1;
end;
end;
v[1]:=1;p:=1;
for i:=2 to max do
   if (a[i]mod k<>0)and(a[i]<>0) then begin
      y:=k-(a[i] mod k);
      for j:=1 to y do begin
          t:=0;jj:=1;
          while (v[jj]<>0)or(t<>0)or(jj<=p) do begin
                x:=(v[jj]*i)+t;
                v[jj]:=x mod 10;
                t:=x div 10;
                inc(jj);
          end;
          dec(jj);p:=jj;
      end;end;
for i:=p downto 1 do write(g,v[i]);
close(f);close(g);
end.