var

a,b,c:array[1..20] of longint;

n,m,total:longint;

procedure init;

var

i:longint;

begin

read(n,m);

for i:=1 to n do

a[i]:=i;

end;

procedure print;

var

k:longint;

begin

for k:=1 to n do write(b[k],' ');

end;

procedure f(i:longint);

var

j:longint;

begin

if i>n then

begin

inc(total);

if total=m then

begin

print;

end;

end;

for j:=1 to n do

if c[j]=0 then

begin

b[i]:=a[j];

c[j]:=1;

f(i+1);

c[j]:=0;

end;

end;

procedure main;

begin

f(1);

end;

begin

init;

main;

end.