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:longint;
procedure afisare;
begin
for i:=1 to m do
begin
write(x[i],' ');
end;
writeln(g);
end;
procedure bkt;
var k:longint;
begin
k:=1;
x[k]:=-1;
while k<>0 do
  if x[k]<n then
     begin
     inc(x[k]);
     if  k=m then
        afisare
        else
        begin
        inc(k);
        x[k]:=x[k-1];
        end;
     end
     else
     dec(k);
end;

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