var n,k:longint;
    sol:array[0..20] of longint;
	
	f,g:text;

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

begin

assign(input,'combinari.in');reset(input);
assign(output,'combinari.out');rewrite(output);
readln(n,k);

back(0);

close(input); close(output);
end.