var fi,fo:text;
    i,n,k:longint;
    a:array[0..100]of longint;

procedure comb(p:longint);
 begin
  if p=n then
          begin for i:=1 to k do write(fo,a[i],' '); writeln(fo) end
  else
   for i:=a[p]+1 to n do
    begin
     a[p+1]:=i;
     comb(p+1);
    end;
 end;

BEGIN
 assign(fi,'combinari.in'); reset(fi); assign(fo,'combinari.out'); rewrite(fo);

  readln(fi,n,k);
  comb(0);

 close(fi); close(fo);
END.