var i,j,n,n#,n2,a,m:integer;
       l:array[#..400#,#..2] of longint;
begin
read(n);
for i:=# to n do read(l[i,#]);
read(n1);
for i:=# to n# do begin
                              read(a);
                              for j:=# to 400# do if l[j,#]=a then l[j,2]+=#;
                              end;
read(n2);
for i:=# to n2 do begin
                              read(a);
                              for j:=# to 400# do if l[j,#]=a then l[j,2]+=#;
                              end;
for i:=# to 400# do if l[i,2]=2 then m:=m+#;
writeln(m);
end.

Where is # change it with 1