program p_1;
 var s:string;
   a:array[1..1000,1..1000]of longint;
   q,l,k,m,i,n,j:integer;
   f,g:text;
   begin
   assign(f,'tablete.in');
   reset(f);
   assign(g,'tablete.out');
   rewrite(g);
   read(f,n,k);
   q:=0;
   for i:=1 to n do
   for j:=1 to k do
        begin
        q:=q+1;
        a[i,j]:=q;
        end;
   if k mod 2=1 then
            begin
            i:=1;
            while i<=n-1 do
            begin
            a[i,k]:=a[i,k]+1;
            a[i+1,1]:=a[i+1,i]-1;
            i:=i+2;
            end;
            end;
   for i:=1 to n do
        for j:=k+1 to n do
        begin
        q:=q+1;
        a[i,j]:=q;
        end;
   if (n mod 2=1) and (k mod 2=1) then
    begin
    a[1,k+1]:=a[1,k+1]-1;
    a[n,k]:=a[n,k]+1;
    end;
    for i:=1 to n do
       begin
       for j:=1 to n do
         write(g,a[i,j],' ');
       writeln(g);
    end;
   close(g);
   close(f);
 end.