program combi;

var x,s: array[1..20] of integer;
  n,k: integer;

procedure sol;
var i: integer;
begin
  for i:=1 to k do
   write(x[i],' ');
  writeln;
end;

procedure C(p:integer);
var i: integer;
begin
  if p=k+1 then sol
  else
  for i:=1 to n do

  if (s[i]=0)and(p=1) then
  begin
    x[p]:=i;
    s[i]:=1;
    C(p+1);
    s[i]:=0;
  end
  else
  if (s[i]=0)and(i>x[p-1]) then
  begin
    x[p]:=i;
    s[i]:=1;
    C(p+1);
    s[i]:=0;
  end
end;

begin
  assign(input,'combinari.in');
  reset(input);
  assign(output,'combinari.out');
  rewrite(output);
  readln(n,k);
  C(1);
  close(input);
  close(output);
end.