var f1,f2:text;
i,j,k,n,m:word;tam:qword;
b,g,y,nhob,nhog:array[1..1000] of qword;
function dk(a:qword):boolean;
   begin
       if (1<=a) and (a<=1000000000000000) then dk:=true
          else dk:=false;
   end;
begin
    assign(f1,'TIMBAN.INP');reset(f1);
    assign(f2,'TIMBAN.OUT');rewrite(f2);
    repeat
         readln(f1,n,m);
    until (1<=n) and (n<=1000) and (1<=m) and (m<=1000);
    k:=0;
    for i:=1 to n do
      repeat
         read(f1,b[i]);
      until dk(b[i])=true;
    readln(f1);
    for i:=1 to m do
      repeat
         read(f1,g[i]);
      until dk(g[i])=true;
    readln(f1);
    for i:=1 to m do
      repeat
         read(f1,y[i]);
      until dk(y[i])=true;
    readln(f1);
    for j:=1 to m do
       for i:=1 to n do
           if b[i]=y[j] then
              begin
                  inc(k);
                  nhob[k]:=b[i];
                  nhog[k]:=g[j];
              end;
    for i:=1 to k-1 do
       for j:=i+1 to k do
          if nhog[i]>nhog[j] then
              begin
                  tam:=nhog[i];
                  nhog[i]:=nhog[j];
                  nhog[j]:=tam;
                  tam:=nhob[i];
                  nhob[i]:=nhob[j];
                  nhob[j]:=tam;
              end;
    writeln(f2,k);
    for i:=1 to k do writeln(f2,nhob[i],' ',nhog[i]);
    close(f1);close(f2);
end.