program olx;
const
  maxn=16;
var
 i,j,k,l,m,n,sum,s:longint;
 a:array[1..4,0..maxn]of boolean;
 v:array[1..13]of longint=(-50,-2,-3,-4,-5,-6,-7,-8,-9,-10,-20,-30,-40);
 f:array[1..4]of longint;
 q,t:boolean;
 ch,ch1:char;
 f1,f2:text;
begin
 assign(f1,'heart.in'); 
 reset(f1);
 assign(f2,'heart.out');
 rewrite(f2);
 t:=false;
 while not(eof) do
   begin
    fillchar(a,sizeof(a),false);
     if t then begin
       for j:=1 to 4 do
         write(f[j],' ');
       writeln; end;
      for i:=1 to 4 do
       begin
         read(n);
         read(ch);
         for j:=1 to n do
           begin
             read(ch);
             ch1:=ch;
             s:=0;
             repeat
               read(ch);
               if ch in ['0'..'9'] then
               s:=s*10+ord(ch)-ord('0');
             until not(ch in ['0'..'9']);
             if ch1='H' then  a[i,s]:=true
               else if (ch1='C')and(s=10) then a[i,14]:=true
                 else if (ch1='D')and(s=11) then a[i,15]:=true
                   else if (ch1='S')and(s=12) then a[i,16]:=true;
           end;
         readln;
         q:=true;
         sum:=0;
         for j:=1 to 13 do
           begin
             if not(a[i,j]) then q:=false;
             if a[i,j] then sum:=sum+v[j];
           end;
         if q then
           begin
             sum:=200;
             if (a[i,15])and(a[i,16]) then sum:=500
             else if a[i,15] then sum:=sum+100
             else if a[i,16] then sum:=sum-100;
           end
           else begin
                  if a[i,15] then sum:=sum+100;
                  if a[i,16] then sum:=sum-100;
                end;
         if a[i,14] then sum:=sum*2;
         f[i]:=sum;
       end;
       t:=true;
   end;


  close(f1);close(f2);
end.