var f,g:text;
    n,k:longint;
    a:array[0..20] of longint;
    v:array[1..20] of boolean;

procedure com(p:longint);
var i:longint;
begin

  if p>k then begin
    for i:=1 to k do
      write(g,a[i],' ');
    writeln(g);
  end
  else begin
    for i:=a[p-1]+1 to n-k+p do begin
      a[p]:=i;
      com(p+1);
    end;
  end;

end;

begin

  assign(f,'combinari.in');
  assign(g,'combinari.out');
  reset(f);
  rewrite(g);

  read(f,n,k);
  com(1);

  close(g);

end.