记录编号	137520	评测结果	AAAAAAAAAA
题目名称	分组	最终得分	100
用户昵称	helloworld123	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2014-11-04 20:54:30	内存使用	0.24 MiB

program cogs26;
var
 n,m,i,j,tt:longint;
 a:array[0..20] of longint;
 b:array[1..1000,0..20] of longint;
procedure dfs(k,ans,w:longint);
var
  i,j:longint;
begin
   if (k=m) then begin
   if ans=n then
   begin
     inc(tt);
     for i:=1 to m do
      b[tt,i]:=a[i];
   end;
     exit;
   end;
   for i:=w to (n-ans) div (m-k) do
     begin
       inc(a[0]);
       a[a[0]]:=i;
       dfs(k+1,ans+i,i);
       dec(a[0]);
     end;
end;
begin
   assign(input,'dataa.in'); reset(input);
   assign(output,'dataa.out'); rewrite(output);
    readln(n,m);
    tt:=0;
    for i:=1 to n div m do
    begin
     inc(a[0]);
     a[a[0]]:=i;
     dfs(1,i,i);
     dec(a[0]);
    end;
    writeln(tt);
    for i:=1 to tt do
    begin
     for j:=1 to m-1 do
      write(b[i,j],' ');
      writeln(b[i,m]);
          end;

   close(input); close(output);
end.