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);
readln(f,n,k);
back(0);
close(g);
end.