var f,g:text;
    i,n,k,p:byte;
    x:array[1..19] of byte;

procedure citire;
  begin
    assign(f,'combinari.in');
    reset(f);
    readln(f,n,p);
    close(f);
    assign(g,'combinari.out');
    rewrite(g);
  end;

function cont(k:integer):boolean;
  var i:byte;
  begin
    for i:=1 to k-1 do if (x[i]>=x[k]) then begin
      cont:=false;
      exit;
    end;
    cont:=true;
  end;

procedure afisare;
  var i:byte;
  begin
    for i:=1 to p do write(g,x[i],' ');
    writeln(g);
  end;

procedure back(k:byte);
  var i:byte;
  begin
    for i:=1 to n do begin
      x[k]:=i;
      if cont(k) then
        if k=p then afisare
          else back(k+1);
    end;
  end;

begin
  citire;
  back(1);
  close(g);
end.