var x:array[0..18] of byte;
    n,k:byte;
    f,g:text;

procedure back(lep:byte);
var i:byte;
begin
if (lep=k) then begin
           for i:=1 to k do
            write(x[i],' ');
           writeln;
           end
           else begin
            for i:=x[lep]+1 to n do begin
             x[lep+1]:=i;
             back(lep+1);
            end;
           end;
end;

begin
assign(f,'combinari.in'); reset(f);
assign(g,'combinari.out'); rewrite(g);
readln(f,n,k);
back(0);
close(f); close(g);
end.