var f,g:text;
    m:array[1..100,1..100]of integer;
    i,j,n,k,o:integer;
procedure ver(k:integer);
var i:integer;
begin
 for i:=1 to n do
  if m[i,k] mod 2=1 then m[i,k]:=m[i,k]+1;
end;
procedure dublu(s:integer);
begin
k:=n+1;
 for i:=1 to n do
  for j:=1 to n do
   if s=m[i,j] then begin m[i,j]:=k; inc(k); end;
end;
begin
assign(f,'tablete.in');reset(f);
assign(g,'tablete.out');rewrite(g);
o:=1;
readln(f,n,k);
 for i:=1 to n do
  for j:=1 to n do
   begin
   m[i,j]:=o;
   o:=o+1;
   end;
   for i:=1 to n do
    ver(m[i,k]);
   for i:=1 to n do
    for j:=1 to n do
     dublu(m[i,j]);
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(g,m[i,j]);
   writeln(g);
  end;
end.