Program Cmlsc;
type Nmax = 0..1024;
tab = array[Nmax,Nmax] of Nmax;
vect = array[Nmax] of Nmax;
var A,B:vect;
C:tab;
n,m,i,j: Nmax;
f,g:text;
function max (a,b:integer): integer;
 begin
  if a > b then
  max := A
  else
   max:= B;
  end;
function backtrack (C:tab;X,Y:vect;i,j:Nmax) : string;
begin
{while (i <> 0) and (j<>0) do
begin
if X[i] = Y[j] then begin
  str(X[i],l);
  b := l + ' ' + b;
  i:= i - 1;
  j:= j - 1;
  end
  else
  if C[i,j-1] > C[i-1,j] then
   j:= j - 1
   else
   i:= i - 1;}
    if (i = 0) or (j = 0) then
        exit
    else if  X[i] = Y[j] then begin
        backtrack(C, X, Y, i-1, j-1);
        write(g,X[i],' ');
        exit;
        end
    else
        if C[i,j-1] > C[i-1,j] then
            backtrack(C, X, Y, i, j-1)
        else
            backtrack(C, X, Y, i-1, j);
end;
begin
assign(f,'cmlsc.in');
assign(g,'cmlsc.out');
reset(f);
rewrite(g);
readln(f,n,m);
for i:=1 to n do
 read(f,A[i]);
readln(f);
for i:=1 to m do
 read(f,B[i]);
for i:=1 to n do begin
 for j:=1 to m do begin
  if A[i] = B[j] then
   C[i,j]:= C[i - 1,j - 1] + 1
   else
   C[i,j]:= max(C[i,j-1],C[i-1,j]);
  end;
 end;
writeln(g,C[n,m],' ');
writeln(g,backtrack(C,A,B,n,m));
close(f);
close(g);
end.