const
MaxN1 = 20;
MaxN2 = 20;
MaxN3 = 20;
MaxV = MaxN1+2*MaxN2+MaxN3;
MaxC = 2*MaxN2;
var
a:array [0..MaxV, 1..MaxV] of byte;
Ka:array [0..MaxV] of integer;
c,f,cf: array [0..MaxV, 0..MaxV] of shortint;
i,j, Finish: integer;
ia:array [0..MaxV, 1..MaxV] of shortint;
Kia:array [0..MaxV] of integer;
Max: longint;
const
MaxP=127;
var
N1:0..MaxN1;
N2:0..MaxN2;
N3:0..MaxN3;
cn,np,N,k,tn,all:byte;
input,output: text;
Procedure InputData;
begin
assign(input,'is1131.in');
reset(input);
readln(input,N1,N2,N3);
Finish:=N1+2*N2+N3+1;
All:=N1+N2+N3;
for i:=0 to Finish do
begin
for j:=1 to MaxC do a[i,j]:=0;
ka[i]:=0;
end;
ka[0]:=N1;
for i:=1 to N1 do
begin
a[0,i]:=i;
c[0,i]:=i;
end;
for i:=1 to N2 do
begin
readln(input,cn);
a[N1+i,1]:=all+i;
c[N1+i,all+i]:=cn;
ka[N1+i]:=1;
end;
for i:=1 to N1 do
begin
read(input,k);
ka[i]:=k;
for j:=1 to k do
begin
read(input,a[i,j]);
c[i,a[i,j]]:=MaxP;
end;
end;
for i:=1 to N2 do
begin
read(input,k);
ka[all+i]:=k;
for j:=1 to k do
begin
read(input,np);
a[all+i,j]:=np;
c[all+i,a[all+i,j]]:=MaxP;
end;
readln(input);
end;
N:=N1+N2;
for i:=1 to N3 do
begin
ka[N+i]:=1;
a[N+i,1]:=Finish;
c[N+i,Finish]:=1;
end;
close(input);
end;
Procedure OutputData;
begin
assign(output,'is1131.out');
rewrite(output);
Max:=0;
for i:=1 to N1 do
Max:=Max+f[0,i];
writeln(output,Max);
close(output);
end;
Begin
InputData;
OutputData;
End.