program permutacio;

const
  maxhossz=18;

type
  index = 0..maxhossz;

var
  n,i,k:byte;
  c: array[index] of byte;
  be,ki:text;

 procedure kiiras;
 var
  i:index;
 begin
  for i:=1 to k do
    write(ki,c[i],' ');
  writeln(ki);
 end;

 procedure kombinacio(i: index);
 var
  j:index;
 begin
  for j:=c[i-1]+1 to n-k+i do
    begin
     c[i]:=j;
     if i<k then
       kombinacio(i+1)
     else
       kiiras;
    end;
 end;


begin
 assign(be,'combinari.in');
 assign(ki,'combinari.out');
 rewrite(ki);
 reset(be);
 readln(be,n,k);
 kombinacio(1);
 close(ki);
end.