program comb;
var st:array[0..20] of integer;
   n,k:integer;
   fi,fo:text;
procedure back(b:integer);
var i:integer;
begin
 if b=k then begin
          for i:=1 to k do write(fo,st[i],' ');writeln(fo);
          end
     else begin
     for i:=st[b]+1 to n do begin
                            st[b+1]:=i;
                            back(b+1);
                            end;
     end;
 end;
begin
assign(fi,'combinari.in');reset(fi);
assign(fo,'combinari.out');rewrite(fo);
read(fi,n,k);
back(0);close(fi);close(fo);
end.