program combinari;
const fi='combinari.in';
      fo='combinari.out';
var f,g:text;
bufout:array[0..65000] of char;
x:array[0..20] of longint;
n,m,i,nr:longint;
procedure afisare;
begin
if nr<>1 then
writeln(g);
for i:=1 to m do
begin
write(g,x[i],' ');
end;
end;
procedure bkt;
var k:longint;
begin

k:=1;
x[k]:=0;
while k<>0 do
  if x[k]<n then
     begin
     inc(x[k]);
     if  k=m then
     begin
     inc(nr);
        afisare;
        end
        else
        begin
        inc(k);
        x[k]:=x[k-1];
        end;
     end
     else
     dec(k);
end;

begin
nr:=0;
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,n,m);
bkt;
close(f);
close(g);
end.