Program combinari;
Type vector=array[1..25] of integer;
var St:vector; n,k:integer;  Fo,FI:text;

procedure initializare;
var i:integer;
begin
For i:=1 to  25 do St[i]:=0;
end;

Procedure Tipar (p:integer);
var j:integer;
begin
	for j:=1 to p do
		write(FO,St[j]:4,' ');
		writeln(FO);
end;

Function Valid(p:integer):boolean;
var i:integer;
begin
	if (P>1) and (St[p]<=St[p-1]) then valid:=false
								  else valid:=true;
end;

Procedure bktr(p:integer);
var pval:integer;
begin
	for pval:=1 to n do
		begin
		St[p]:=pval;
			if valid(p) then
				if p=k then
				Tipar(P)
				else
				bktr(p+1);
		end;
end;

Begin
initializare;
Assign(FI,'combinari.in'); reset(FI);
Assign(FO,'combinari.out'); rewrite(FO);
readln(FI,N,K);
close(FI);
Bktr(1);
close(FO);
end.