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 l 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.