#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

char*mmap();
#define RD(v) int v=0;{int _c;while(_c=*rp++-48,_c>=0)v=v*10+_c;}

char wbuf[1<<28];

#define WTHI(v) {long _z=v,_n=0,_d=0;while(++_n,_d=_d<<8|0x30|_z%10,_z/=10);*(long*)wp=_d;wp+=_n;}
#define WTLO(v) {long _z=v,_n=8,_d=0;while(_d=_d<<8|0x30|_z%10,_z/=10,--_n);*(long*)wp=_d;wp+=8;}
#define WT(v) if(v>=100000000){WTHI(v/100000000);WTLO(v);}else{WTHI(v);}

#define MD 1000000007

long modpow(long a, int b){
  long r=1;
  while(b){
    if(b&1){
      r=r*a%MD;
    }
    b>>=1;
    a=a*a%MD;
  }
  return r;
}

int inverse(int a){
  int b=MD;
  int u=1;
  int v=0;
  while(b){
    int q=a/b,t;
	t=b, b=a-q*b, a=t;
	t=v, v=u-q*v, u=t;
  }
  if(u<0){
    u+=MD;
  }
  return u;
}

a[100000];

main(){
	char*rp=mmap(0l,1l<<28,1,2,0,0ll);
	RD(n);
	long d=1;
	int b=1,c=1,l=0;
	for(int r=0;r<n;++r){
		RD(ar);
		a[r]=ar;
		b=(long)b*modpow(ar,r-l+1)%MD;
		d*=ar;
		for(;d>=1000000000;d/=a[l++])b=(long)b*inverse(d%MD)%MD;
		c=(long)c*b%MD;
	}
	char*wp=wbuf;
	WT(c);
	write(1,wbuf,wp-wbuf);
	_exit(0);
}