program combinari;
var v:array[1..100] of integer;
    n,m:integer;
    f,g:text;
function cont(k:integer):boolean;
var i:integer;
  begin
    cont:=true;
    for i:=1 to k-1 do
      if v[i]=v[k] then
                   begin
                     cont:=false;
                     break;
                   end;
  end;
procedure tipar(k:integer);
var i:integer;
  begin
    for i:=1 to k do
      write(g,v[i],' ');
    writeln(g);
  end;
procedure bkt;
var k:integer;
  begin
    k:=1;
    v[k]:=0;
    while k>0 do
      if v[k]<n then
                begin
                  v[k]:=v[k]+1;
                  if cont(k)=true then
                                if k=m then
                                       tipar(k)
                                       else
                                       if k<m then
                                       begin
                                         k:=k+1;
                                         v[k]:=v[k-1];
                                       end;
                end
                else
                k:=k-1;
  end;
begin
  assign(f,'combinari.in');
  assign(g,'combinari.out');
  reset(f);
  rewrite(g);
  readln(f,n,m);
  bkt;
  close(f);
  close(g);
end.