{combinari}

var n,p:byte;
    st:array[0..18] of byte;
    marc:array[1..18] of boolean;
    f,g:text;

procedure citire;
begin
assign(f,'combinari.in'); reset(f);
readln(f,n,p);
close(f);
end;

procedure afisare(k:integer);
var i:byte;
begin
for i:=1 to k do write(g,st[i],' ');
writeln(g);
end;

procedure back(k:integer);
var i:byte;
begin
for i:=st[k-1]+1 to n do
    begin
    st[k]:=i;
    marc[st[k]]:=true;
    if marc[st[k]] then
       if k=p then afisare(k)
              else back(k+1);
    marc[st[k]]:=false;
    end;
end;

begin
assign(g,'combinari.out'); rewrite(g);
citire;
st[0]:=0;
back(1);
close(g);
end.