#include<bits/stdc++.h>
#define LL long long
using namespace std;
const int mod=1000000007;
int n,a[1010],b[1010],f[2][1010],cnt;
LL ans;
inline int read()
{
	int x=0,w=0;char ch=getchar();
	while(!isdigit(ch)){w|=ch=='-';ch=getchar();}
	while(isdigit(ch)){x=(x<<1)+(x<<3)+(ch^48);ch=getchar();}
	return w?-x:x;
}
int calc()
{
	int temp=1e9;
	memset(f,-0x3f,sizeof f);
	cnt=b[0];b[0]=f[0][0]=0;
	for(int i=1;i<=cnt;i++){
		memset(f[i&1],-0x3f,sizeof f[i&1]);
		for(int j=0;j<=i+3;j++)
		if(f[(i-1)&1][j]>=0){
			if(f[(i-1)&1][j]>=b[i]-b[i-1])
				f[i&1][j]=max(f[i&1][j],f[(i-1)&1][j]-(b[i]-b[i-1]));
			f[i&1][j+1]=max(f[i&1][j+1],19);
			f[i&1][j+3]=max(f[i&1][j+3],74);
		}
	}
	for(int i=0;i<=cnt;i++)
	if(f[cnt&1][i]>=0)
		temp=min(temp,i);
	return temp;
}
int main()
{
	n=read();
	for(int i=1;i<=n;i++)
		a[i]=read();
	for(int i=0;i<(1<<n);i++){
		b[0]=0;
		for(int j=1;j<=n;j++)
		if(i>>(j-1)&1)
			b[++b[0]]=a[j];
		(ans+=calc())%=mod;
	}
	cout<<ans*2%mod<<'\n';
}