program rps;
var w:array[0..4,0..4]of longint=
      ((0,0,1,1,0),(1,0,0,1,0),(0,1,0,0,1),(0,0,1,0,1),(1,1,0,0,0));
    n,na,nb,i,j,k,wa,wb:longint;
    a,b:array[0..500]of longint;
begin
 readln(n,na,nb);
 for i:=1 to na do
 read(a[i]);readln;
 for i:=1 to nb do
 read(b[i]);readln;
 i:=na+1;
 while i<=n do
  begin
   a[i]:=a[i-na];
   inc(i);
  end;
 i:=nb+1;
 while i<=n do
  begin
   b[i]:=b[i-nb];
   inc(i);
  end;
 wa:=0;wb:=0;
 for i:=1 to n do
  begin
   inc(wa,w[a[i],b[i]]);
   inc(wb,w[b[i],a[i]]);
  end;
 writeln(wa,' ',wb);
end.
/**************************************************************
	Problem: 2334
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/