type vector=array[0..10000]of longint;
var v,x,z,a,b,c:vector;
    p,n,m,i,j,nr:longint;
    rez:int64;

begin
  assign(input,'nextseq.in');reset(input);
  assign(output,'nextseq.out');rewrite(output);
  readln(n,m,p);
  for i:=1 to n do read(v[i]);
  for i:=1 to m do read(x[i]);
  for i:=1 to p do read(z[i]);
  for i:=1 to n do begin
    nr:=0;
    for j:=1 to n do if v[j]<=v[i] then inc(nr);
    a[i]:=nr;
  end;
  for i:=1 to m do begin
    for j:=1 to n do if x[i]=v[j] then begin b[i]:=a[j];break;end;
  end;
  for i:=1 to p do begin
    for j:=1 to n do if z[i]=v[j] then begin c[i]:=a[j];break;end;
  end;
  v[0]:=0;
  while m>0 do begin
    inc(v[0]);
    v[v[0]]:=c[p]-b[m];
    dec(p);dec(m);
  end;
  for i:=1 to p do begin
    v[v[0]+i]:=c[p];
    dec(p);
    inc(v[0]);
  end;
  p:=1;
  for i:=1 to v[0] do begin
    rez:=rez+v[i]*p;
    p:=p*n;
  end;
  writeln(rez-1);
  close(input);close(output);
end.