#include<stdio.h>
#include<string>
#include<map>
#include<iostream>
#include<string.h>

const int LIMIT=5000;
const int M=5;

std::map<std::string,int> strToNo;
long long int ansC[M]={0,0,0,0,0};
long long int counts[3][M][M][M];
double ans=0;
int as[3][3];
int noToCoin[M];
int cols[3][LIMIT];
int colSize[3];

void f(long long int p){
	int a=as[0][0];
	if((a==as[0][1])&&(a==as[0][2])){
		ansC[a]+=p;
		ans+=p*noToCoin[a];
	}
	a=as[1][0];
	if((a==as[1][1])&&(a==as[1][2])){
		ansC[a]+=p;
		ans+=p*noToCoin[a];
	}
	a=as[2][0];
	if((a==as[2][1])&&(a==as[2][2])){
		ansC[a]+=p;
		ans+=p*noToCoin[a];
	}
	a=as[0][0];
	if((a==as[1][1])&&(a==as[2][2])){
		ansC[a]+=p;
		ans+=p*noToCoin[a];
	}
	a=as[2][0];
	if((a==as[1][1])&&(a==as[0][2])){
		ansC[a]+=p;
		ans+=p*noToCoin[a];
	}
}
void read(int col){
	int n;
	scanf("%d",&n);
	colSize[col]=n;
	for(int i=0;i<n;i++){
		std::string str;
		std::cin>>str;
		cols[col][i]=strToNo[str];
	}
}
void regist(int no){
	int c=colSize[no];
	for(int i=0;i<c;i++){
		int a1=cols[no][i];
		int a2=cols[no][(i+1)%c];
		int a3=cols[no][(i+2)%c];
		counts[no][a1][a2][a3]++;
	}
}

void search(int deep,long long int perm){
	if(deep==3){
		f(perm);
	}else{
		for(int i=0;i<M;i++){
			as[0][deep]=i;
			for(int j=0;j<M;j++){
				as[1][deep]=j;
				for(int k=0;k<M;k++){
					as[2][deep]=k;
					search(deep+1,perm*counts[deep][i][j][k]);
				}	
			}
		}
	}
}

int main(){
	memset(counts,0,sizeof(counts));
	for(int i=0;i<M;i++){
		std::string str;
		int coin;
		std::cin>>str>>coin;
		noToCoin[i]=coin;
		strToNo[str]=i;
	}
	read(0);
	read(1);
	read(2);
	regist(0);
	regist(1);
	regist(2);
	search(0,1);
	
	double all=colSize[0];
	all*=colSize[1];
	all*=colSize[2];
	printf("%lf\n",ans/all);
	for(int i=0;i<M;i++){
		std::cout<<ansC[i]<<std::endl;
	}
}