Program p2_back_combinari;
var fi,fo :text;
    n,k : byte;
    st:array[0..20] of byte;

procedure tipar;
var i:byte;
begin
    for i:=1 to k do write(fo,st[i], ' ');
    writeln(fo);
end;

Procedure back(l:byte);
var i:integer;
begin
    if k=l then tipar
           else for i:=st[l]+1 to n do begin
                                      st[l+1]:=i;
                                      back(l+1);
                                      end;
end;

begin
    assign(fi,'combinari.in'); reset(fi);
    assign(fo,'combinari.out'); rewrite(fo);
    read(fi,n,k);  st[0]:=0;

    back(0);

    close(fi); close(fo);
end.