Program combinari;
var a:array[1..20] of byte;
    f,q:text;
    i,j,n,p:longint;
procedure afis(p:longint);
var i:longint;
begin
        for i:=1 to p do write(q,a[i],' ');
        writeln(q);
end;
function check(k:longint):boolean;
var i:longint;
begin
        check:=true;
        if k>1 then
        if a[k-1]>=a[k] then check:=false;
end;
procedure back(i:longint);
var j:longint;
begin
        if i<=p then
        begin
                for j:=1 to n do begin a[i]:=j; if check(i)=true then back(i+1);
        end;

        end
        else afis(p);
end;
begin
assign(f,'combinari.in');
reset(f);
assign(q,'combinari.out');
rewrite(q);
readln(f,n,p);
back(1);
close(f);
close(q);
end.