var st:array[0..20] of 0..20;
    n,k:byte;
    f,g:text;

procedure bktr(l:integer);
var i:integer;
begin
if (l=k) then
        begin
        for i:=1 to k do
                write(g,st[i],' ');
        writeln(g);
        end
else
        begin
        for i:=st[l]+1 to n do
                begin
                st[l+1]:=i;
                bktr(l+1);
                end;
        end;
end;

begin
assign(f,'combinari.in');reset(f);
readln(f,n,k);
close(f);
assign(g,'combinari.out');rewrite(g);
bktr(0);
close(g);
end.