type vector=array[1..100]of integer;
var a:vector; n,k:integer;
    f,h:text;

procedure afis;
var i,s:integer;
begin
s:=0;
for i:=1 to n do if a[i]=1 then s:=s+1;
  if s=k then begin
              for i:=n downto 1 do if a[i]=1 then write(h,n+1-i,' ');
              writeln(h);
              end;
  end;

procedure bin(p:integer);
var i:integer;
begin
  if p>n then afis
  else
  begin
    a[p]:=0;
    bin(p+1);
    a[p]:=1;
    bin(p+1);
    end;
  end;

begin
assign(f,'combinari.in');
reset(f);
readln(f,n,k);
assign(h,'combinari.out');
rewrite(h);
  bin(1);
  close(f);
  close(h);
  readln;
end.