var i,n,m,j,num:longint;
ans:array[1..1000,1..22] of longint;
temp:array[1..22] of longint;
procedure dfs(cur,cnt,last:longint);
var i:longint;
begin
	if cnt>n then exit;
	if (cur = m) and (last<=(n-cnt)) then 
		begin
			inc(num);
			for i:= 1 to m-1 do
				ans[num,i]:=temp[i];
				ans[num,m]:=n-cnt;
				exit;
		end;
		for i:=last to n do
			begin
				temp[cur]:=i;
				dfs(cur+1,cnt+i,i);
			end;
end;
begin
	assign(input,'dataa.in');reset(input);
	assign(output,'dataa.out');rewrite(output);
	readln(n,m);
	num:=0;
	dfs(1,0,1);
	writeln(num);
	for i:=1 to num do
	begin 
		for j:=1 to m-1 do
			write(ans[i,j],' ');
				writeln(ans[i,m],' ');
	end;
	close(input);close(output);
end.