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

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
if p>n then exit;
for val:=s[p-1]+1 to n do
  begin
  s[p]:=val;
  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.