program p1;
var f1,f2:text;
    i,n,k,m,j:integer;
    a,b:array[1..1024]of byte;
    c:array[1..100,1..100]of byte;
begin
 assign(f1,'scmax.in'); reset(f1);
 assign(f2,'scmax.out'); rewrite(f2);
 read(f1,n,m);
 for i:=1 to n do
  read(f1,a[i]);
 for i:=1 to m do
  read(f1,b[i]);

 for i:=1 to n do
  for j:=1 to m do
   if a[i]=b[j] then
                 c[i,j]:=1;


 for i:=1 to n do
  begin
   for j:=1 to m do
    write(f2,c[i,j],' ');
   writeln(f2);
  end;

 close(f1); close(f2);
End.