program ex;
var a,b:array[1..1000000] of int64;
 i,t,n,m,c,k:int64;
begin
readln(n);
 For i:=1 to n do read(a[i]);
 readln(m);
 for i:=1 to m do read(b[i]);
 c:=0;
for i:=1 to n do
begin
k:=0;
 for t:=1 to m do if a[i]=b[t] then k:=1;
if k=1 then c:=c+k;
end;
 write(c);
 end.


"There were 4 errors compiling module, stopping"