var
a,b,c,d,e,j,n,m,k,g:longint;
x:array[0..10]of longint;
y:array[1..18000,1..10]of longint;
begin
assign(input,'dataa.in');
assign(output,'dataa.out');
reset(input);
rewrite(output);
readln(n,m);
for a:=1 to m-1 do
begin
x[a]:=1;y[1,a]:=1;
end;
x[m]:=n-m+1;y[1,m]:=x[m];k:=1;j:=1;
repeat c:=m;
while x[c]=x[c-1] do
c:=c-1;
if c=1 then break;
x[c]:=x[c]-1;g:=c-1;
while x[g]=x[g+1] do
g:=g-1;x[g]:=x[g]+1;
if x[0]=0 then begin
if m-g>=2 then begin
for d:=g+1 to m-1 do
x[d]:=x[g];e:=0;
for d:=1 to m-1 do
e:=e+x[d];x[m]:=n-e;
end;
k:=k+1;
j:=j+1;
for b:=1 to m do
y[j,b]:=x[b];
end;
until x[0]<>0;
writeln(k);
for a:=1 to 18000 do
begin
if y[a,1]=0 then break;
for b:=1 to m do
write(y[a,b],' ');
writeln;
end;
close(input);
close(output);
end.