//Lib
#include<cstdio>
#include<cstring>
#include<cstdlib>
#include<cmath>
#include<ctime>
#include<iostream>
#include<algorithm>
#include<vector>
#include<string>
#include<queue>
#include<stack>
#include<set>
#include<map>
using namespace std;
//Macro
#define rep(i,a,b) for(int i=a,tt=b;i<=tt;++i)
#define drep(i,a,b) for(int i=a,tt=b;i>=tt;--i)
#define erep(i,e,x) for(int i=x;i;i=e[i].next)
#define irep(i,x) for(__typeof(x.begin()) i=x.begin();i!=x.end();i++)
#define read() (strtol(ipos,&ipos,10))
#define sqr(x) ((x)*(x))
#define pb push_back
#define PS system("pause");
typedef long long ll;
typedef pair<int,int> pii;
const int oo=~0U>>1;
const double inf=1e100;
const double eps=1e-6;
string name="", in=".in", out=".out";
//Var
ll mod=1000000007;
int c[16],n;
ll f[16][16][16][16][16][6];
bool vis[16][16][16][16][16][6];
ll DS(int c1,int c2,int c3,int c4,int c5,int c)
{
if(c1+c2+c3+c4+c5==0)return 1;
if(vis[c1][c2][c3][c4][c5][c])return f[c1][c2][c3][c4][c5][c];
ll tmp=0;
if(c1)
tmp+=(c1-(c==2))*DS(c1-1,c2,c3,c4,c5,1);
if(c2)
tmp+=(c2-(c==3))*DS(c1+1,c2-1,c3,c4,c5,2);
if(c3)
tmp+=(c3-(c==4))*DS(c1,c2+1,c3-1,c4,c5,3);
if(c4)
tmp+=(c4-(c==5))*DS(c1,c2,c3+1,c4-1,c5,4);
if(c5)
tmp+=c5*DS(c1,c2,c3,c4+1,c5-1,5);
tmp%=mod;
vis[c1][c2][c3][c4][c5][c]=true;
return f[c1][c2][c3][c4][c5][c]=tmp;
}
void Work()
{
int t;
scanf("%d",&n);
rep(i,1,n)scanf("%d",&t),c[t]++;
cout<<DS(c[1],c[2],c[3],c[4],c[5],0)<<endl;
}
int main()
{
// freopen((name+in).c_str(),"r",stdin);
// freopen((name+out).c_str(),"w",stdout);
// Init();
Work();
return 0;
}
Ly9MaWIKI2luY2x1ZGU8Y3N0ZGlvPgojaW5jbHVkZTxjc3RyaW5nPgojaW5jbHVkZTxjc3RkbGliPgojaW5jbHVkZTxjbWF0aD4KI2luY2x1ZGU8Y3RpbWU+CiAKI2luY2x1ZGU8aW9zdHJlYW0+CiNpbmNsdWRlPGFsZ29yaXRobT4KI2luY2x1ZGU8dmVjdG9yPgojaW5jbHVkZTxzdHJpbmc+CiNpbmNsdWRlPHF1ZXVlPgojaW5jbHVkZTxzdGFjaz4KI2luY2x1ZGU8c2V0PgojaW5jbHVkZTxtYXA+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7Ci8vTWFjcm8KI2RlZmluZSByZXAoaSxhLGIpICBmb3IoaW50IGk9YSx0dD1iO2k8PXR0OysraSkKI2RlZmluZSBkcmVwKGksYSxiKSBmb3IoaW50IGk9YSx0dD1iO2k+PXR0Oy0taSkKI2RlZmluZSBlcmVwKGksZSx4KSBmb3IoaW50IGk9eDtpO2k9ZVtpXS5uZXh0KQojZGVmaW5lIGlyZXAoaSx4KSAgIGZvcihfX3R5cGVvZih4LmJlZ2luKCkpIGk9eC5iZWdpbigpO2khPXguZW5kKCk7aSsrKQojZGVmaW5lIHJlYWQoKSAgKHN0cnRvbChpcG9zLCZpcG9zLDEwKSkKI2RlZmluZSBzcXIoeCkgICgoeCkqKHgpKQojZGVmaW5lIHBiICBwdXNoX2JhY2sKI2RlZmluZSBQUyAgc3lzdGVtKCJwYXVzZSIpOwp0eXBlZGVmIGxvbmcgbG9uZyAgIGxsOwp0eXBlZGVmIHBhaXI8aW50LGludD4gcGlpOwpjb25zdCBpbnQgb289fjBVPj4xOwpjb25zdCBkb3VibGUgaW5mPTFlMTAwOwpjb25zdCBkb3VibGUgZXBzPTFlLTY7CnN0cmluZyBuYW1lPSIiLCBpbj0iLmluIiwgb3V0PSIub3V0IjsKLy9WYXIKbGwgbW9kPTEwMDAwMDAwMDc7CmludCBjWzE2XSxuOwpsbCBmWzE2XVsxNl1bMTZdWzE2XVsxNl1bNl07CmJvb2wgdmlzWzE2XVsxNl1bMTZdWzE2XVsxNl1bNl07CmxsIERTKGludCBjMSxpbnQgYzIsaW50IGMzLGludCBjNCxpbnQgYzUsaW50IGMpCnsKICAgIGlmKGMxK2MyK2MzK2M0K2M1PT0wKXJldHVybiAxOwogICAgaWYodmlzW2MxXVtjMl1bYzNdW2M0XVtjNV1bY10pcmV0dXJuIGZbYzFdW2MyXVtjM11bYzRdW2M1XVtjXTsKICAgIGxsIHRtcD0wOwogICAgaWYoYzEpCiAgICAgICAgdG1wKz0oYzEtKGM9PTIpKSpEUyhjMS0xLGMyLGMzLGM0LGM1LDEpOwogICAgaWYoYzIpCiAgICAgICAgdG1wKz0oYzItKGM9PTMpKSpEUyhjMSsxLGMyLTEsYzMsYzQsYzUsMik7CiAgICBpZihjMykKICAgICAgICB0bXArPShjMy0oYz09NCkpKkRTKGMxLGMyKzEsYzMtMSxjNCxjNSwzKTsKICAgIGlmKGM0KQogICAgICAgIHRtcCs9KGM0LShjPT01KSkqRFMoYzEsYzIsYzMrMSxjNC0xLGM1LDQpOwogICAgaWYoYzUpCiAgICAgICAgdG1wKz1jNSpEUyhjMSxjMixjMyxjNCsxLGM1LTEsNSk7CiAgICB0bXAlPW1vZDsKICAgIHZpc1tjMV1bYzJdW2MzXVtjNF1bYzVdW2NdPXRydWU7CiAgICByZXR1cm4gZltjMV1bYzJdW2MzXVtjNF1bYzVdW2NdPXRtcDsKfQp2b2lkIFdvcmsoKQp7CiAgICBpbnQgdDsKICAgIHNjYW5mKCIlZCIsJm4pOwogICAgcmVwKGksMSxuKXNjYW5mKCIlZCIsJnQpLGNbdF0rKzsKICAgIGNvdXQ8PERTKGNbMV0sY1syXSxjWzNdLGNbNF0sY1s1XSwwKTw8ZW5kbDsKfQppbnQgbWFpbigpCnsKLy8gIGZyZW9wZW4oKG5hbWUraW4pLmNfc3RyKCksInIiLHN0ZGluKTsKLy8gIGZyZW9wZW4oKG5hbWUrb3V0KS5jX3N0cigpLCJ3IixzdGRvdXQpOwovLyAgSW5pdCgpOwogICAgV29yaygpOwogICAgcmV0dXJuIDA7Cn0=