Var a:array[0..18] of integer;n,x:integer;g,f:text;
    exista:array[1..18] of boolean;
    afost:array[1..18] of boolean;
procedure afisare;
var i:integer;
begin
for i:=1 to n do
write(g,a[i],' ');
writeln(g);
end;

procedure citire;
begin
readln(f,x);
readln(f,n);
end;

Procedure back(i:integer);
var j:integer;
begin
If i>n then
begin
afisare;
end
else
   for j:=a[i-1]+1 to x do
     If (exista[j]=false) or (i<2) then
        begin
        a[i]:=j;
        exista[j]:=true;
        back(i+1);
        exista[j]:=false;
        end;
end;

Begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
citire;
back(1);
readln;
close(g);
end.