var comb : array[0..20] of integer;
    i,j,n,k : integer;
    f,g : text;
procedure back(q : integer);
var i : integer;
begin
  if q>k then
  begin
    for i:=1 to k do write(g,comb[i],' ');
    writeln(g);
  end
  else
    for i:=comb[q-1]+1 to n do
    begin
      comb[q]:=i;
      back(q+1);
    end;
end;

begin
  assign(f,'combinari.in');reset(f);
  assign(g,'combinari.out');rewrite(g);
  read(f,n,k);
  back(1);
  close(g);
end.