var f,g:text;
    s:array[0..20] of longint;
    n,k:longint;
procedure back(l:longint);
var i:longint;
  begin
    if (l=k) then
       begin
         for i:=1 to k do
           write(g,s[i],' ');
         writeln(g);
       end
  else
  begin
    for i:=s[l]+1 to n do
       begin
         s[l+1]:=i;
         back(l+1);
       end;
  end;
end;
begin
  assign(f,'combinari.in'); reset(f);
  assign(g,'combinari.out'); rewrite(g);
  read(f,n,k);
  back(0);
  close(f); close(g);
end.