Program combinari;
 var a:array [0..20] of byte;
    n,k:byte;
    fi,fo:text;
procedure back(l:byte);
var i:byte;
begin
 if l=k then begin
              for i:=1 to k do write(fo,a[i],' ');
              writeln(fo);
              end
  else for i:=a[l]+1 to n do begin
                           a[l+1]:=i;
                           back(l+1);
                           end;
end;
begin
 assign(fi,'combinari.in');
  assign(fo,'combinari.out');
 reset(fi);
  rewrite(fo);
 readln(fi,n,k);
  back(0);
 close(fo);
end.