program combinari;
type vector=array[1..18] of longint;
var
  v:vector;
  n,k:longint;
  f:text;

procedure init;
var i:longint;
begin
  for i:=1 to n do
    v[i]:=0
end;

procedure back(j:longint);
var i:longint;
begin
if (j=k) then
  begin
  for i:=1 to k do
    write(f,v[i],' ');
  writeln(f)
  end
else
  for i:=v[j]+1 to n do
    begin
    v[j+1]:=i;
    back(j+1)
    end
end;

begin
assign(f,'combinari.in');
reset(f);
readln(f,n,k);
close(f);
assign(f,'combinari.out');
rewrite(f);
init;
back(0);
close(f)
end.