Uses Crt;
var  a:array[0..10] of integer; n,q,i:integer;
   function Suma:boolean;  //смотрим суму вектора, если равна N значит ответ TRUE
   var S,i:integer;
   begin
     S:=0;
     for i:=1 to q do
     S:=S+a[i];
     Suma:=(S=n);
   end;
   procedure Print; 
   var i:integer;
   begin
    for i:=1 to q do
     write(a[i],' ');
   { readln;}
   end;
  procedure BackTr(k:integer);
  var i:integer;
     begin
     if q=k-1 then  Print  //но тут ещё if Suma then Print надо поставить
      else  begin
       i:=a[k-1]+1; 
         while  not Suma do begin
         a[k]:=i;
         BackTr(k+1);
         inc(i);
       end;
      end;
    end;
 Begin ClrScr;
 readln(n,q);
 BackTr(1);
 readln;
 end. 

Uses Crt;
var n,q,i:integer; a:array[1..3] of integer; flag:boolean;
  function Ok:boolean; //смотрим если можем продолжать добовлять
  var i,S:integer;
  begin
  S:=0;
     for i:=a[1] to q+a[1]-1 do
     S:=S+i;
     if S<n  then Ok:=True
     else ok:=False;
  end;
   function Suma:boolean; 
    var i,S:integer;
    begin
      S:=0;
      for i:=1 to q do
      S:=S+a[i];
     Suma:=(S>=N);
    end;
  procedure Print;
    var i:integer;
    begin
     for i:=1 to q do
      write(a[i],' ');
     writeln;
    end;
  begin     CLrSCr;
        readln(n,q);
        for i:=1 to q do
        a[i]:=i;  
             repeat
             flag:=false; //флаг ставим на 0
             while not Suma do begin
             a[i]:=a[i]+1;
             flag:=true;    // флаг 1
             end;
       if flag=false then dec(i) 
                                else Print;
        if Ok then
        begin
        if flag=false then begin
        dec(i);
        a[i]:=a[i]+1;
        repeat
            inc(i);
            a[i]:=a[i-1]+1;
         until i=q end
           else begin
           dec(i);
           a[i]:=a[i]+1;
           inc(i);
           a[i]:=a[i-1]+1;
          end;
         if  (OK=False) and (Suma) then Print;
         end;
      until OK=False;
Readln;
end.