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