var N,M,P,i,j,l,k:integer;
    s,s1,s2,s3:array [1..500] of integer;
    gasit:boolean;
begin
 assign(input,'pedefe.in'); reset(input);
 assign(output,'pedefe.out'); rewrite(output);
  readln (N,M,P);
  for i:=1 to N do read (s1[i]);
  for i:=1 to M do read (s2[i]);
  for i:=1 to P do read (s3[i]);
   j:=1;
   for i:=1 to N do begin
    gasit:=false;
    for k:=j to M do
     if (s1[i]=s2[k]) and (s1[i]>=s[l]) then begin
      l:=l+1; s[l]:=s1[i]; gasit:=true; break;
     end;
    if gasit then j:=k
             else j:=1;
   end;
   j:=0;
   for i:=1 to l do begin
    j:=j+1;
    if s[i]=s[i+1] then j:=j+2;
   end;
  writeln (j);
 close(input); close(output);
end.