var st:array[0..18] of byte;
    k,n,p,i:byte;


procedure tipar;
var i:byte;
begin
for i:=1 to p do
   write(st[i],' ');
writeln;
end;

function valid:boolean;
var b:boolean;
begin
b:=true;
for i:=1 to k do
 if st[k]=st[i] then b:=false;
valid:=b;
end;


procedure back(k:byte);
var i:byte;
Begin
  if k=p+1 then

  tipar

    else
      for i:=st[k-1]+1 to n
        do
          begin
            st[k]:=i;
            if valid then
            back(k+1);
          end;
End;


Begin
  readln(n,p);
  for i:=0 to p do st[p]:=0;
  for i:=1 to n-p do
  back(i);
End.