type vector=array[1..1000]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]=0 then inc(s);
  if s=k then begin
  for i:=1 to n do if a[i]=0 then write(h,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);
assign(h,'combinari.out');
rewrite(h);
  readln(f,n,k);
  bin(1);
  close(f);
  close(h);
end.