program jkj;
var f,g:text;
   n,i,j,k:integer;
   x:array[0..17] of integer;
procedure bkt(k:integer);
var pval:integer;
   begin
     for pval:=x[k-1]+1 to n do
        begin
           x[k]:=pval;
             for i:=1 to k do
                write(g,x[i],' ');
             writeln(g);
             bkt(k+1);
        end;
    end;
begin
assign(f,'submultimi.in'); reset(f);
assign(g,'submultimi.out'); rewrite(g);
  read(f,n,k);
  for i:=0 to 25 do
     x[i]:=0;
  x[0]:=0;
  bkt(1);
close(f);
close(g);
end.