#include <iostream>
#include <cstdio>
#include <vector>
#include <string>
#include <cstring>
#include <algorithm>
using namespace std;
//英语 7*7*7 7*7*7*7 抄博友程序
int val[26]={2,5,4,4,1, 6,5,5,1,7, 6,3,5,2,3, 5,7,2,1,2, 4,6,6,7,5,7};//a f k p u
int hs[26];
int bj[26];
char da[4000][5];
int main()
{
char a[10];
scanf("%s",a);
for(int i=0;i<strlen(a);i++)
{
hs[a[i]-'a']++;
}
int jg=0;
int js=0;
while(1)
{
char b[10];
scanf("%s",b);
if(b[0]=='.')
{
break;
}
int flag=0;
memset(bj,0,sizeof(bj));
int sum=0;
for(int i=0;i<strlen(b);i++)
{
bj[b[i]-'a']++;
sum=sum+val[b[i]-'a'];
}
for(int i=0;i<26;i++)
{
if(hs[i]<bj[i])
{
flag=1;
}
}
if(flag==0)
{
jg=max(jg,sum);
if(strlen(b)<=4)
{
for(int i=0;i<5;i++)
da[js][i]=b[i];
}
js++;
}
}
for(int i=0;i<js;i++)
{
for(int j=i+1;j<js;j++)
{
if(strlen(da[i])+strlen(da[j])<=7)
{
int sum=0;
memset(bj,0,sizeof(bj));
for(int k=0;da[i][k];k++)
{
bj[da[i][k]-'a']++;
sum=sum+val[da[i][k]-'a'];
}
for(int k=0;da[j][k];k++)
{
bj[da[j][k]-'a']++;
sum=sum+val[da[j][k]-'a'];
}
int flag=0;
for(int i=0;i<26;i++)
{
if(hs[i]<bj[i])
{
flag=1;
}
}
if(flag==0)
{
jg=max(jg,sum);
}
}
}
}
cout<<jg<<endl;
return 0;
}