var s:array[1..18]of byte;
    n,k,i:byte;

function valid(p:byte):boolean;
begin
valid:=false;
for i:=1 to p-1 do if s[i]>=s[i+1] then exit;
valid:=true;
end;

procedure afsol;
begin
for i:=1 to k-1 do write(s[i],' ');
writeln(s[k]);
end;

procedure back(p:byte);
var val:byte;
begin
for val:=1 to n do
  begin
  s[p]:=val;
  if valid(p) then if p=k then afsol
                          else back(p+1);
  end;
end;

begin
assign(input,'combinari.in');
reset(input);
assign(output,'combinari.out');
rewrite(output);
read(n,k);
fillchar(s,sizeof(s),0);
back(1);
close(input);
close(output);
end.