var    f,g:text;
       i,j,u,l,nr,n,k,x,y,lmax:longint;
       a:array[1..1000] of longint;
begin
assign(f,'factoriale.in');reset(f);
assign(g,'factoriale.out');rewrite(g);
readln(f,n,k);
for i:=1 to n do begin
    read(f,x);
    for j:=2 to x do begin
        y:=j;l:=1;
        while y>1 do begin
            inc(l);if l>lmax then lmax:=l;
            while (y mod l=0) and (y>1) do  begin
                  y:=y div l;inc(a[l]);
            end;
        end;
    end;
end;
nr:=1;
for i:=2 to lmax do
    if a[i] mod l<>0 then
       for j:=1 to a[i] mod l do
           nr:=nr*i;
writeln(g,nr);
close(g);
end.