program jkj;
var f,g:text;
   n,i,j,k2:integer;
   x:array[0..19] of integer;
procedure bkt;
var k:integer;
    begin
    k:=1; x[k]:=0;
       while k>0 do
          if x[k]<n then
             begin
             x[k]:=x[k]+1;
                if k=k2 then
                  begin
                  for i:=1 to k2 do
                    write(g,x[i],' ');
                  writeln(g);
                  end
                    else
                       begin
                       k:=k+1;
                       x[k]:=x[k-1]
                       end;
             end
             else
             k:=k-1;
    end;
begin
assign(f,'combinari.in'); reset(f);
assign(g,'combinari.out'); rewrite(g);
  read(f,n,k2);
  for i:=0 to 25 do
     x[i]:=0;
  x[0]:=0;
  bkt;
close(f);
close(g);
end.