var f,g:text;
    n,k:longint;
    a:array[1..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:=p to n-k+p do begin
      if v[i]=false then begin
        a[p]:=i;
        v[i]:=true;
        com(p+1);
        v[i]:=false;
      end;
      v[i]:=false;
    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.