type
 treetype=record
  father:integer;
  lc,rc:integer;
 end;
var a,b:array[1..1000] of integer;
    i,j,k,m,n,x,y:integer;
procedure  init;
 begin
 readln(n,k);
  for i:=1 to n do
   begin
    read(x);
    a[i]:=x;
   end;
   end;
procedure chaxun;
 begin
 for i:=1 to k do
  begin
   read(y);
   b[i]:=y;
  end;
 end;
procedure chenggong;
 begin
 for j:=1 to k do
  begin
  m:=0;
 for i:=1 to n do
 begin
   if b[j]=a[i] then m:=m+1;
 end;
   if m=0 then write('0',' ');
   if m>0 then write('1',' ');
  end;
 end;
begin
 init;
 chaxun;
 chenggong;
end.
/**************************************************************
	Problem: 2169
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/