Program combinari;
var A : array [1..18] of shortint;
    f,g : text;
    m,n : shortint;

procedure tip(p:integer);
var i : integer;
begin
for i := 1 to p do
write(g,A[i]);
writeln(g);
end;


function valid(p:integer):boolean;
var ok : boolean;
    i : integer;
begin
ok := true;
for i := 1 downto p-1 do
if A[i]>=A[p] then begin
                  ok := false;
                  break;
                  end;
valid := ok;
end;


procedure back(p:integer);
var pval : integer;
begin
for pval := 1 to n do begin
A[p] := pval;
if valid(p) then if p=m then tip(p)
                        else back(p+1);
end;
end;

begin
assign(f,'combinari.in');
reset(f);
assign(g,'combinari.out');
rewrite(g);
readln(f,n,m);
close(f);
back(1);
close(g);
end.