var f,f2:text;
    niv,i2,n,m:byte;
    fol:array[1..18] of boolean;

procedure Back(k:byte);
 var i:byte;
 begin
  fol[k]:=true;
  niv:=niv+1;
  if niv<m then
   begin
    for i:=k+1 to n do
     begin
      Back(i);
     end;
   end
  else
   begin
    for i:=1 to n do
     begin
      if fol[i] then write(f2,i,' ');
     end;
    writeln(f2);
   end;
  niv:=niv-1;
  fol[k]:=false;
 end;

begin
assign(f,'combinari.in');
assign(f2,'combinari.out');
reset(f);
readln(f,n,m);
close(f);
rewrite(f2);
niv:=0;
for i2:=1 to n do fol[i2]:=false;
for i2:=1 to n do
 begin
  Back(i2);
 end;
close(f2);
end.