program cogs26;
var
 n,m,i,j:longint;
 a:array[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
     for i:=1 to m-1 do write(a[i],' ');
     writeln(a[m]);
   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);
    for i:=1 to n div m do
    begin
     inc(a[0]);
     a[a[0]]:=i;
     dfs(1,i,i);
     dec(a[0]);
    end;
   close(input); close(output);
end.