var     a:array[1..100] of integer;
        n,k:integer;
        f1,f2:text;

procedure comb(p,r:integer);
var     i:integer;
begin
  if p>k then
    begin
      for i:=1 to k do
        write(f2,a[i],' ');
        writeln(f2);
    end
  else
    for i:=r to n-k+p do
      begin
        a[p]:=i;
        comb(p+1,i+1);
      end;
end;

begin
  assign(f1,'combinari.in');
  assign(f2,'combinari.out');
  reset(f1);
  rewrite(f2);
  read(f1,n,k);
  comb(1,1);
  close(f2);
end.