Program combinari;
 var f,g:text; a:array[0..18]of 0..18;
     n,k:byte;
 procedure scrie;
  var x:byte;
  begin
   for x:=1 to k do write (g,a[x],' ');
   writeln (g);
  end;
 procedure generare (x:byte);
  var y:byte;
  begin
   if x>k then scrie else
     for y:=a[x-1]+1 to n-k+x do begin
       a[x]:=y;
       generare (x+1);
     end;
  end;
 begin
  assign (f,'combinari.in'); reset (f);
  assign (g,'combinari.out'); rewrite (g);
  readln (f,n,k);
  generare (1);
  close (f); close (g);
 end.