Program combinari;
var N,K:byte;
	St:array[1..16] of byte;
	FI,FO:text;

Procedure initializare;
	var i:byte;
	Begin
	For i:=1 to k do
	St[i]:=0;
	end;


Function valid(p:byte):boolean;
	var ok:boolean;
		i:byte;
	Begin
	ok:=true;
	for i:=1 to p-1 do
		if St[i]=St[p] then ok:=false;
	valid:=ok;
	end;
	

Procedure Tiparire;
	var i:byte;
	begin
	For i:=1 to k do
		Write(FO,St[i]);
	writeln(FO);
	end;
	
Procedure bkt(p:integer);
	var i:byte;
	Begin
	For i:=1 to n do
	begin
	St[p]:=i;
	If Valid(P) then
		if P=k then
			tiparire
		else
		bkt(p+1);
	end;
	end;
	




begin
Assign(FI,'combinari.in'); Reset(FI);
Assign(FO,'combinari.out'); Rewrite(FO);
Readln(FI,N,K);
Close(FI);
Bkt(1);
Close(FO);
end.