#include<iostream>
#include<cstring>
using namespace std;
long long cal[100][7];
int main()
{
	memset(cal,0,sizeof(cal));
	int n;
	cin>>n;
	for(int i=1;i<=n;i++)
	{
		char ch;
		int v;
		cin>>ch>>v;
		cal[ch][(v%7+7)%7]++; 
	}
	long long ans=0;
	for(int b=0;b<7;b++)
 	  for(int e=0;e<7;e++)
	    for(int s=0;s<7;s++)
	      for(int i=0;i<7;i++)
	        for(int m=0;m<7;m++)
	          for(int o=0;o<7;o++)
	            for(int g=0;g<7;g++)
	     		{
					if(((b+e+s+s+i+e)*(g+o+e+s)*(m+o+o))%7==0)
						ans+=(cal['B'][b]*cal['E'][e]*cal['S'][s]*cal['I'][i]*cal['M'][m]*cal['O'][o]*cal['G'][g]);	    	
	     		}
	cout<<ans<<endl;	
}