program p1;
var f1,f2:text;
    n,k,i,j:byte;
    a:array[1..100] of byte;
    ok:boolean;
    begin
    assign(f1,'combinari.in');
    reset(f1);
    readln(f1,n,k);
    close(f1);
    for i:=1 to k do
    a[i]:=i;
    assign(f2,'combinari.out');
    rewrite(f2);
    repeat
    ok:=true;
    for i:=1 to k do
    write(f2,a[i],' ');
    writeln(f2);
    inc(a[k]);
    if a[k]=n+1 then
    for i:=k downto 2 do begin
    if a[i]>=n-k+i+1 then
    begin
    inc(a[i-1]);
    for j:=i to k do
    a[j]:=a[j-1]+1;
    end;
    end;
    if a[1]=n-k+1 then
    ok:=false;
    until ok=false;
    for i:=1 to k do
    write(f2,a[i],' ');
    close(f2);
    end.