var x:array[0..18] of longint;
n,i,j,k,p:longint;
procedure back(k:byte);
var i,j:byte;ok:boolean;
begin
if k=p+1 then
			begin
			for i:=1 to p do write(x[i],' ');
			writeln;
			end
		else
		for i:=x[k-1]+1 to n do
		begin
		x[k]:=i;
		ok:=true;
		for j:=1 to k-1 do if x[j]=x[k] then ok:=false;
		if ok then back(k+1);
		end;
end;
begin
assign(input,'combinari.in');
assign(output,'combinari.out');
reset(input);
rewrite(output);
readln(N,p);
back(1);close(output);close(input);
end.