program tablete;
type vector=array [1..1000,1..1000] of longint;
var f1,f2:text;
    n,k:longint;
    v:vector;
    i,j:integer;
begin
assign(f1,'tablete.in');
reset(f1);
read(f1,n,k);
close(f1);
assign(f2,'tablete.out');
rewrite(f2);
for i:=1 to n do
  for j:=1 to n do
    v[i,j]:=0;
if k mod 2=0 then
  begin
  for i:=1 to n do
    for j:=1 to n do
      begin
      writeln(f2,v[i,j]);
      v[i,j]:=v[i,j]+1;
      end;
  end;





close(f2);
end.