uses crt;
var i,j,n,m,max,vt:longint; a,b,c,t,l:array[1..100000]of longint; d:text;
function tim(k:longint):longint;
   var i:longint;
   begin
      tim:=0;
      for i:=1 to m do if a[k]=b[i] then tim:=i;
   end;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,n,m);
      for i:=1 to n do read(d,a[i]);
      for i:=1 to m do read(d,b[i]);
   close(d);
       l[n]:=1;
   assign(d,'output.pas');rewrite(d);
      for i:=n downto 1 do
         begin
            c[i]:=tim(i);
            for j:=1 to n do
               if (l[j]>=l[i]+1)and(c[i]<c[j]) then begin l[i]:=l[j]+1; t[i]:=j; end;
            if l[i]>max then begin max:=l[i]; vt:=i; end;
         end;
         writeln(d,l[vt]);
   While vt<>0 do
      begin
         write(d,a[vt],' ');
         vt:=t[vt];
      end;
      close(d);
end.