var v:array[1..1000000] of 0..1;
n,k:integer;  indd,spatiu,i,j,nr,ind:longint;
f:text;     ok:boolean;
procedure citire;
begin
assign(f,'tablete.in');reset(f);
read(f,n,k);
close(f);
end;
begin
citire; nr:=2;
ind:=1;
if k*n mod 2=1 then ok:=true;
indd:=k*n;
assign(f,'tablete.out'); rewrite(f);
for i:=1 to n do
    begin
    for j:=1 to k-1 do
         begin
         if (v[ind]=i*k) or (v[ind]=i*k+1) or (v[ind]=1) then inc(ind);
         write(f,ind,' ');
         inc(ind);
         end;
      if i*k mod 2=0 then
                begin
                write(f,i*k,' ');
                v[i*k]:=1;
                end
            else
                begin
                write(f,i*k+1,' ');
                v[i*k+1]:=1;
                end;
    for j:=k+1 to n do
        begin
        inc(indd);
        if v[indd]=1 then inc(indd);
        write(f,indd,' ');
        if ok then begin
                   inc(indd);
                   ok:=false;
                   end;
        end;
    writeln(f);
    end;
close(f);
end.