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