var s:array[0..20] of longint;   
    n,k:longint;   
  
procedure back(l:longint);   
var i:longint;   
begin   
if (l=k) then   
        begin   
        for i:=1 to k do   
                write(s[i],' ');   
        writeln;   
        end   
else   
        begin   
        for i:=s[l]+1 to n do   
                begin   
                s[l+1]:=i;   
                back(l+1);   
                end;   
        end;   
end;   
  
begin   
assign(input,'combinari.in');reset(input);   
assign(output,'combinari.out');rewrite(output);   
readln(n,k);   
back(0);   
close(input);close(output);   
end.