var n,m,c:integer;
var
a :array of integer;
i :byte;
var
b :array of integer;
j :byte;
begin
read(n);
read(m);
setlength(a,n);
setlength(b,m);
for i:=0 to n-1 do
begin
read(a[i]);
end;
    for j:=0 to m-1 do
    begin
    read(b[j]);
    end;
        for i:=0 to n-1 do
       begin
       c:=1;
          for j:=0 to m-1 do
         begin
         if a[i]=b[j] then
         begin
         c:=c+0;
         end
         else
         begin
         c:=c+1;
         break
         end;
         if c=1 then
           begin
         writeln(a[i]);
           end;
          end
        end;
end.