//combinari
var fi,fo:text;
    n,k:byte;
    v,viz:array[0..18]of byte;
procedure print;
var i:byte;
begin
  for i:=1 to k do
    write(fo,v[i],' ');
  writeln(fo);
end;
procedure back(p:byte);
var i:byte;
begin
  for i:=v[p-1]+1 to n do
    begin
      v[p]:=i;
      if p=k then print
             else back(p+1);
    end;
end;
begin
  assign(fi,'combinari.in'); reset(fi);
  assign(fo,'combinari.out'); rewrite(fo);
  read(fi,n,k);
  back(1);
  close(fi);
  close(fo);
end.