var v:array[1..18] of 1..18;
n,k,i,j:integer;
f,g:text;
ok:boolean;
begin
assign(f,'combinari.in');
assign(g,'combinari.out');
reset(f);rewrite(g);
read(f,n,k);
for i:=1 to k do
    begin
    v[i]:=i;
    write(g,v[i],' ');
    end;
writeln(g);
if n<>k then
   repeat
         i:=k;
         while k-i>n-v[i]-1 do
               i:=i-1;
         v[i]:=v[i]+1;
         for j:=i+1 to k do
             v[j]:=v[i]+j-i;
         for i:=1 to k do
             write(g,v[i],' ');
         writeln(g);
         ok:=true;
         if v[k]=n then
            begin
            for i:=k downto 2 do
                if v[i]<>v[i-1]+1 then
                   begin
                   ok:=false;
                   break;
                   end;
            end
         else
             ok:=false;
   until ok=true;
close(f);close(g);
end.