program combinari;
type vector=array [1..18] of byte;
var v:vector;
    n,k:byte;
    f,g:text;
function validare(k:byte):boolean;
 var i:byte;
 begin
 validare:=true;
 for i:=1 to k-1 do if v[i]>=v[k] then validare:=false;
 end;
procedure afisare;
 var i:byte;
 begin
 for i:=1 to k do write (g,v[i],' ');
 writeln(g);
 end;
procedure back(t:integer);
 var i:byte;
 begin
 for i:=1 to n do begin
  v[t]:=i;
  if validare(t) then if t=k then afisare
   else back(k+1);
  end;
 end;
begin
assign (f,'combinari.in');
reset(f);
readln (f,n,k);
assign (g,'combinari.out');
rewrite (g);
if (n>=1) and (n<=18) and (k>=1) and (k<=n) then back(1);
close(f);
close(g);
end.